Да как же открыть типиз-й файл для чтения? даже смешно :)

← →
4aynik (2004-04-21 13:34) [0]

пробовал по-разному, блин, не как не заработает!
Делаю так:
type
but_rec = record
a,b,c,d: integer;
end;

var FP: file of but_rec;
......

AssignFile(FP,"c:\MyFile");
Reset(FP);

а оно:
[Error] MainUnit.pas(1013): Missing operator or semicolon

Помогите, плиз.

← →
Digitman © (2004-04-21 13:40) [1]

> 1013

что это за строка в исх.тексте ?
почему не воспользоваться для чтения из файла TFileStream-объектом ? Ностальжи по старому-доброму паскалю ? Или как ?

← →
Goida © (2004-04-21 13:41) [2]

http://delphimaster.net/view/1-1082540158/

← →
uny (2004-04-21 13:45) [3]

packed record

← →
Андрей Сенченко © (2004-04-21 13:47) [4]

Digitman © (21.04.04 13:40) [1]

А что делает TFileStream ?
Ностальжи тут непричем. может я конечно и консервативен, но предпочитаю считывать файлы сам через Assign - Reset - ReadLn - Close. Несколько раз ради любопытства переделывал на TFileStream.LoadFrom и TStringList.loadfrom - ощутимой разницы не заметил, по крайней мере по времени выполнения. В чем еще могут быть плюсы ?

← →
MBo © (2004-04-21 13:49) [5]

> MainUnit.pas(1013): Missing operator or semicolon
в 1012 строчку пристально вглядись

← →
Андрей Сенченко © (2004-04-21 14:02) [6]

MBo © (21.04.04 13:49) [5]

ИМХО не в этом дело. Скорее чужой код, криво скопированный или изначально некорректный.
Написать 1000 с лишним строк кода без единой предварительной компиляции и промежуточного сохранения - это надо сильно хорошо относиться к своим способностям и надежности виндусов. При этом впервые нарваться на потерянный ";" только в 1013-й строке кода ... что это за код тогда ?

← →
Digitman © (2004-04-21 14:05) [7]

> Андрей Сенченко © (21.04.04 13:47) [4]

насчет LoadFrom - это ты не в ту степь немного ...

type
but_rec = record
a,b,c,d: integer;
end;

var FS: TStream;
MyRec: but_rec;
......

FS := TFileStream.Create("c:\MyFile", fmRead); //открыли
FS.ReadBuffer(MyRec, sizeof(MyRec)); //прочитали запись

← →
KapitanSerg © (2004-04-21 14:09) [8]

>[Error] MainUnit.pas(1013): Missing operator or semicolon
В конце строки 1012 поставь точку с запятой!!!!!!!!!!!!

← →
4aynik (2004-04-21 14:36) [10]

спасибо, а как с этим TFileStream
прочитать каждую запись последовательно, допустим их 6.

← →
4aynik (2004-04-21 14:48) [11]

Удалено модератором
Примечание: Создание пустых сообщений\

Идешь на http:\\www.delphikingdom.com, находишь там раздел "Лицей" и читаешь соответствующий материал.
Если это не устраивает, то не обессудь:
http://lleo.aha.ru/na/index.shtml

Да как же открыть типиз-й файл для чтения? даже смешно :) Найти похожие ветки