Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Опеределить адрес файловой переменной

Автор: clever 16.1.2004, 04:07

#задаётся переменная файловая
var
f: text;

#связывается переменная с адресом
assign(f, 'c:/file.txt');

#Вопрос: какая функция возвращает адрес переменной?
#чтобы было
function(f)='c:file.txt'

Автор: Vit 16.1.2004, 05:27

TTextRec(f).name

Автор: clever 16.1.2004, 07:13

Цитата(Vit @ 16.1.2004, 05:27)

TTextRec(f).name

Что то не работает. Может ещё что дописать надо?
У меня Турбо Паскаль

Автор: Vit 16.1.2004, 16:28

В Турбо Паскаль скорее всего никак.

Автор: p0s0l 18.1.2004, 13:45

Цитата

В Турбо Паскаль скорее всего никак.

Почему ? Как раз это делается так, как ты и сказал:

Код

function GetTextFileName (var f : Text) : string;
type
  TFileRec = record
    Handle: Word;
    Mode: Word;
    RecSize: Word;
    Private: array[1..26] of Byte;
    UserData: array[1..16] of Byte;
    Name: array[0..79] of Char;
  end;
var
  FileRec : TFileRec absolute f;
begin
  GetTextFileName := FileRec.Name;
end;