新しい行を入れても認識してないような？？ (ID：48076)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

すみません、geが重なっていましたね。
showmessageは無視されています。
別の文を入れても無視されます。
何かDelphiが新たな文を拒否しているような気がします。
下のshowmessage以外は以前から作っていたものです。

try
    StrL.LoadFromFile(DrtPath+'\'+ProgramName+DrtPath4+'Mo*****');
    for i:=1 to StrL.count-1 do
    begin
      s:=StrL[i];
      If S<>'' then
      begin
        FileCut(11,S);
        if (StrToInt(CutF[1])<MS-2) then
        begin
          CutF3:=StrToInt(CutF[3]);
          M:=1;
          repeat
           if  H[M]=CutF3 then begin L:=M; M:=Hmax; end;
           inc(M);
          until M>Hmax;
          s:=CutF[4]+intToStr(1000+L)+IntToStr(RoundOff(10000000000+StrToFloat(CutF[6])))+',';
          for j:=1 to 11 do S:=S+Copy3(CutF[j],1,length(CutF[j]))+',';
        end           
        else
          s:='';
      end;
      StrL[i]:=S;
    end;
    StrL.Sort;
showmessage('S');
    for i:=1 to StrL.count-1 do
    begin
      s:=StrL[i];
      if S<>'' then
      begin
        FileCut(12,S);       s:='';
        for j:=2 to 12 do S:=S+CutF[j]+',';
      end;
      StrL[i]:=S;
    end;

←解決時は質問者本人がここをチェックしてください。

戻る