Bestimmten Teil aus einer Textdatei löschen

[bitsetter]

Moin,

so müsste es gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SList: TStringList;
  Pfad, SText: AnsiString;
  KennAnfang, Field, Position: integer;
begin
  Pfad:= 'Test.csa';
  SList:= TStringList.Create;
  try
    if FileExists(Pfad) then
    begin
      SList.LoadFromFile(Pfad);
      SText:= SList.Text;
      KennAnfang:= Pos('@@', SList.Text);
      FIELD:= 1;
      Position:= pos('@@@@FIELD:', String(@SText[Field]));
      while(Position<> 0) and (Field+ Position<= length(SText)) do
      begin
        inc(Field, Position);
        Position:= pos('@@@@FIELD:', String(@SText[Field]));
      end;
      delete(SText, KennAnfang, Field+ 22- KennAnfang);
      SList.Text:= SText;
      SList.SaveToFile('Test.pcl');
    end;
  finally
    SList.Free;
  end;
end;

Bei Delphi 6 gibt es wohl noch kein PosEx.