VPF::Опеределить адрес файловой переменной

clever

Дата 16.1.2004, 04:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.1.2004

Репутация: нет
Всего: 1

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

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

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

Vit

Дата 16.1.2004, 05:27 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

TTextRec(f).name

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

clever

Дата 16.1.2004, 07:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.1.2004

Репутация: нет
Всего: 1

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

TTextRec(f).name

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

Это сообщение отредактировал(а) clever - 16.1.2004, 07:15

Vit

Дата 16.1.2004, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

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

--------------------

p0s0l

Дата 18.1.2004, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата

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

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

Код

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;

--------------------

С уважением, г-н Посол.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »