string in dateien die 1000. :D

[foxy]

OK mal wieder String in txt-dateien ... iss warscheins ganz simpel aber ich komm nich dahinter .... also zu meinem problem wie kann ich wenn ich 2 gegebene strings habe von dem ersten bis ende der datei alles ausgeben und von anfang der datei bis zu dem anderen .

bisher habe ich das so, das ich von dem einen bis zu dem anderen alles ausgeben kann in einer listbox

Delphi-Quellcode:

if ioResult <> 0 then halt;
 While Not EoF(f) Do Begin
   ZNr:=ZNr+1;
   ReadLn(f,zeile);
   gefzeit:=StrToTime( copy(zeile,12,8) );
   if (gefzeit>=zeit1) AND (gefzeit<=zeit2) Then
      begin
      ListBox1.Items.Add( copy(zeile,1,19)+': '+IntToStr(zNr)+' --> '+Kammertext(zeile,KammerNr));
      X:=StrToDateTime(copy(zeile,12,8));
      Y:=StrToInt(Kammertext(zeile,KammerNr));
      FTabelle.Series1.AddXY(X,Y);
      end;
end;

jo aber muss ich da ne andere abfrage machen??ß
pls um hilfe bye foxy

[foxy]

Jungs ich habs scho