sers leute
also ich habe folgendes problem ... ich habe 2 strings die ich angebe nach denen sucht mein programm in einer textdatei mit 9000 zeilen gibt diese Zeilen aus inder er diese Strings gefunden hat jetzt zu meinem Probelm
Also ich will zwischen den ausgegeben Zeilen die dazwsichenligeneden auch noch ausgeben
ich habe das so geschrieben bisher
Delphi-Quellcode:
with dbmemo1 do
scrollBars:=SSboth;
ReSet(f); //Datei zum Lesen öffnen
DBMemo1.Clear; //Memo leeren
r1:=0;
ZNr:=0;
Repeat
ZNr:=ZNr+1;
ReadLn(f,Zeile); //Zeile lesen
If Pos(EditZeit.Text,Zeile)>0 Then //wenn String in Zeile gefunden
begin
DBMemo1.Lines.Add( 'Zeilennr.: '+IntToStr(ZNr)+': '+Zeile);
repeat
r1:=r1+1;
ZNr:=ZNr+1;
Readln(f,Zeile);
DBMemo1.Lines.Add( 'Zeilennr.: '+IntToStr(ZNr)+': '+Zeile );
[color=red]
//hier sollte er nun alle dazwischenliegenden Zeilen auch ausgene
//nur er bricht wenn er eine Zeile hat ab was iss das er bricht
//die schleife einfach ab[/color]
p:=pos(';',DBmemo1.Lines.Strings[r1]);
while (p>0) do
begin
if p-1 >0 then
begin
s1:=copy(DBmemo1.Lines.Strings[r1],1,p-1);
showmessage(s1);
end;
delete(DBmemo1.Lines.Strings[r1],1,p);
p:=pos(';',DBmemo1.Lines.Strings[r1]);
end;
until Pos(Editzeit.Text,Zeile)=0;
end;
If Pos(EditZeit2.Text,Zeile)>0 then
DBMemo1.Lines.Add( 'Zeilennr.: '+IntToStr(ZNr)+': +'Zeile );
Until EOF(f);
Bidde bidde um hilfe bei fragen noch einfach stellen dann erklär ich was ihr nich versteht zum problem
