Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
23. Okt 2005
Wenn du in einem TFileString in eine bestimmte Zeile springen willst, dann schreib Dir einfach eine Funktion, die das macht:
Procedure SeekText (aTextStream : TStream; aRow, aCol : Integer); // aRow = Zeile>0, aCol = Spalte > 0
Const
szCRLF = #13#10;
Var
iRow, j : Integer;
Function NextChar : Char;
Begin
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
22. Okt 2005
Genau! Verwende einen TFileStream. Der ist ordendlich schnell. Dann klappts auch mit dem Seek.