Filename from File handle

[Glenn9999]

I got a question I've been struggling to seek an answer on. Is there a way to get a filename out of the system for an open file handle? Say something like:

program test;
  var
    f: file;
    filename: string;
  begin
    assign(f, 'test.txt');
    reset(f);
    filename := GetFileNameFromAttr(f);
    writeln(filename);
  end.

Filename should be 'test.txt'.

Can this be done?

 

[roo0047]

Not with an untyped file. It will work with textfile:

var
  f: [b][red]textfile[/red][/b];
  filename: string;
begin
  assign(f, 'c:\test.txt');
  reset(f);
  filename:= [red]TTextRec(f).Name[/red];
  writeln(filename);
  close(f);
end.

Roo
Delphi Rules!

 

[Glenn9999]

Unfortunately, I need for it to be able to work with any defined file handle (text, file of, file). Sorry.

 

[Glenn9999]

Okay, I got it. I wanted to typecast the file variable to TFileRec to get what I wanted. Seems to work with any file type I feed it. Thanks for the pointer in the right direction to look.

 

[roo0047]

Can you post your solution? I looked at TFileRec last night and did not see how you could us it.

Roo
Delphi Rules!

 

[Glenn9999]

procedure SetFAttr(var F; Attr: Word);
  begin
    doserror := 0;
    doserror := FileSetAttr(TFileRec(f).Name, attr);
  end;