TextFile auslesen

[renekr]

Hi,
also hier mal der Code,
allerdings bekom i ab und zu doppelte einträge.
Denke die Schleife ist noch nciht sauber.
Der Komplette String ist ca. 4000 Zeichen lang.

Delphi-Quellcode:

function Str_offset(const s, s1, s2: String;posanf:integer): String; //return a string between two other strings
var
  iPos, iPosLeft, iPosRight: Integer;
begin
  Result := '';
  iPos := Posex(s1, s,posanf);

  if iPos >= posanf then
  begin
    iPosLeft := iPos + Length(s1);
    iPos := PosEx(s2, s, Succ(iPosLeft));

    if iPos > posanf then
    begin
      iPosRight := iPos;
      Result := MidStr(s, iPosLeft, iPosRight - iPosLeft);
    end;

  end;

end;

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var 
F: Textfile;
s, Info: String;
anf_2,len:integer;
  I: Integer;
begin 
  AssignFile(f, TXTFile); {Assigns the Filename}
  Reset(f); {Opens the file for reading}
  Memo2.Lines.clear;


        ReadLn(f, s);
        len:=length(s);
        anf_2:=0;
 for I := 0 to 5000 do
begin
          if ((Pos('%05', s) > 0) and (Pos('%05', s) < len)) then
            begin
            strl
                Info := Str_offset(s, '%05','%05',anf_2);
                Memo2.Lines.add(Info);
                anf_2:=anf_2+Length(Info);
             if anf_2 > Length(s) then break;
             
            end ;

end;

CloseFile(f);
end;