Ja korrekt!
Zitat:
Wobei Seek und ReadLn garnicht zusammen funktionieren sollte.
Bei mir schon wobei ich nicht Seek sondern FSeekTo verwende was ein sehr großer Unterschied ist.
Ich fülle damit meine Variablen um nachher den start und endpunkt eines Textes über eine Abfrage besser
identifizieren zu können.
Delphi-Quellcode:
procedure FSeekTo(nReading: Integer; sBuffer: string);
begin
New(FPBuffer);
if nReading = 0 then
Begin
New(FToPBuffer);
LineStart := FToPBuffer;
end;
FPBuffer^.Nr := nReading;
FPBuffer^.Str := sBuffer;
LineStart^.Max := nReading;
FToPBuffer^.Ptr := FPBuffer;
FToPBuffer := FPBuffer;
end;
Delphi-Quellcode:
FPBuffer := LineStart;
while (FPBuffer.Nr <= LineStart.Max) do
begin
usw..
Aber wie schon gesagt.
Jeder so wie er am besten zurecht kommt.
EDIT:
So schlecht wie er hier hingestellt wird ist mein Code gar nicht
Einfacher wäre natürlich Copy/Paste hier aus dem Forum.
gruss