Schleife - tstringlist - Einträge einfügen und löschen

[marabu]

Hallo Susanne,

hier mein Versuch:

Delphi-Quellcode:

uses
  StrUtils;

procedure DoProcess(Lines: TStrings);
var
  i, iLine: Integer;
  s: TStrings;
begin
  s := TStringList.Create;
  s.QuoteChar := '^';
  for iLine := Pred(Lines.Count) downto 0 do
  begin
    if AnsiStartsText('^,', Lines[iLine]) then
    begin
      s.DelimitedText := Copy(Lines[iLine], 3, MaxInt);
      Lines.Delete(iLine);
    end else
    if AnsiStartsText('^', Lines[iLine]) then
    begin
      Lines.Delete(iLine);
      for i := Pred(s.Count) downto 0 do
        Lines.Insert(iLine, s[i]);
      s.Clear;  // substitute once
    end else
    if AnsiStartsText('@', Lines[iLine]) then
      Lines.Delete(iLine);
  end;
  s.Free;
end;

Grüße vom marabu