Registriert seit: 6. Apr 2005
10.109 Beiträge
|
Re: Schleife - tstringlist - Einträge einfügen und löschen
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
|
|
Zitat
|