Zitat:
ein 2. Mal über AssignFile/Reset (also Pascal-Routinen).
Danke habe ich auch gerade bemerkt als ich meine zeilen nochmal überflogen habe.
Globale Variablen habe ich rausgeschmissen und deklariere sie nun in meiner procedure direkt.
Ich glaube den Mist habe ich vor langer zeit mal selbst verzapft.
Ich denke weil ich zu der zeit (und immer noch nicht weis) wie ich hFile durch
eine EOF schleife laufen lassen kann.
Das ich die Datei dadurch 2 mal öffne ist mir nicht wirklich aufgefallen.
EDIT:
Sehe gerade kann hFile gar nicht mit EOF öffnen da EOF zu Pascal und hFile zur
Win32 Api gehört.
grrr.. muss dann wieder alles umschreiben.
Ok geht jetzt..
Habe meine procedure umgeschrieben.
Delphi-Quellcode:
procedure FBuffin(FileName: string);
var
sBuffer: string;
f : TextFile;
begin
if not FExist(FileName) then
Exit;
Assignfile(f, FileName);
reset(f);
while not eof(f) do
begin
ReadLN(f, sBuffer);
FSeekTo(nReading, sBuffer);
inc(nReading);
end;
CloseFile(f);
end;
Die Datei dann nochmals über hFile zu öffnen macht dann nicht wirklich sinn.
gruss