Bestimmte Zeilen aus Stringlist extrahieren

[lxo]

Hallo,
vielleicht sowas in der Art?

Delphi-Quellcode:

   for i := Pred( <TStringList>.Count) downto 0 do
   begin
     if not  <TStringList>[i].Contains( ':') then
     begin
        <TStringList>.Delete( i);
     end;
   end;

Alternativ bei älteren Delphi-Versionen so:

Delphi-Quellcode:

   for i := ( <TStringList>.Count -1) downto 0 do
   begin
     if Pos( ':', <TStringList>[i]) = 0 then
     begin
        <TStringList>.Delete( i);
     end;
   end;