Текущий архив: 2007.04.01;
Скачать: CL | DM;
Вниз
Переменная типа Файл в качестве параметра Найти похожие ветки
← →
Megabyte © (2007-03-09 11:09) [0]Хотел сделать процедуру с параметром типа TextFile.
Компилятор ругнулся: "File type not allowed here"
Неужели правда нельзя применять параметры типа файл?
← →
Сергей М. © (2007-03-09 11:14) [1]
> Неужели правда нельзя применять параметры типа файл?
А зачем ?
Чем, скажем, не угодил TFilestream ?
← →
Ega23 © (2007-03-09 11:16) [2]
> Хотел сделать процедуру с параметром типа TextFile.
А что тебе мешает сделать процедуру с параметром FileName?
А если с одним файлом надо в разных местах работать - с параметром TStrings?
← →
Megabyte © (2007-03-09 11:20) [3]
> А зачем ?
Чем, скажем, не угодил TFilestream ?
А хз. Что-то не подумал. Просто производится запись в файл, но в зависимости от условий:While not adst.Eof do
begin
for i := 0 to adst.FieldCount-1 do
if (i < 7) then
write(afile, adst.Fields.Fields[i].Value, ";")
else
if (i = 7) then
begin
date_time := ConvertDateTime(adst.Fields.Fields[i].Value);
write(afile, date_time, "");
end
else
begin
if (alast < adst.Fields.Fields[i].Value) then
alast := adst.Fields.Fields[i].Value;
end;
writeln(afile);
adst.Next;
end;
С утра еще не проснулся видать :)
← →
Сергей М. © (2007-03-09 11:28) [4]
> С утра еще не проснулся видать :)
Похоже на то)
Ибо "запись в файл" и в Африке есть "запись в файл", а уж условная она там или безусловная - это по барабану
← →
begin...end © (2007-03-09 11:44) [5]> Megabyte © (09.03.07 11:09)
> Неужели правда нельзя применять параметры типа файл?
Можно. Только они должны быть var- или const-параметрами.
← →
Megabyte © (2007-03-09 16:10) [6]
> begin...end © (09.03.07 11:44) [5]
> Megabyte © (09.03.07 11:09)
> Неужели правда нельзя применять параметры типа файл?
Можно. Только они должны быть var- или const-параметрами.
Спасибо!
Страницы: 1 вся ветка
Текущий архив: 2007.04.01;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.045 c
