Gut dass du fragst, Peter.
Delphi-Quellcode:
function TextPos(
var tf: TextFile): cardinal;
var
f: TTextRec
absolute tf;
begin
if f.Mode = fmClosed
then
raise Exception.Create('
TextPos: file not open');
Result := SetFilePointer(f.Handle, 0,
nil, FILE_CURRENT);
with f
do
if (Mode = fmOutput)
then
Inc(Result, BufPos)
else if (BufEnd <> 0)
then
Dec(Result, BufEnd - BufPos);
end;
Bin mir nicht sicher, ob jeder TextFile-Fetischist sofort den Wert dieses unscheinbaren Codes erkennt...
marabu
PS: und nicht vergessen den i/o-buffer mit SetTextBuffer() auf zig-kb raufzusetzen - mit 128 Byte standard buffer lernt die wutz das Fliegen nicht.