Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#6

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

  Alt 26. Okt 2006, 13:50
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
  Mit Zitat antworten Zitat