[QUOTE=PeSch;1145074]
Delphi-Quellcode:
SetLength(Positionen,FrameNumber+1);
For i:=1 To Datensatz.Count-1 Do
Begin
If Pos('Frame',Datensatz.Strings[i])>0 Then
Begin
Positionen[i]:=i;
ListBox1.Items.Add(IntToStr(Positionen[i]));
End;
end;
Wofür das gut sein soll,verstehe ich nicht.
Du hast eine FrameNumber, die Du nutzt um die Größe von Postionen zu definieren.
Dann trägst Du in Positionen die Zeilennummer ein, in der "Frame" gefunden wurde.
Da wäre es wesentlich sinnvoller
SetLength(Positionen,Datensatz.Count);
zu verwenden.
Und warum löschst Du die Zeilen die "Frame" enthalten nicht gleich?
Delphi-Quellcode:
for i:=Datensatz.Count-1 downto 0 do
if pos('Frame',Datensatz[i])>0 then Datensatz.Delete[i];
Gruß
K-H
Roter Kasten auf Urlaub in Österreich?