Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Да как же открыть типиз-й файл для чтения? даже смешно :) Найти похожие ветки
← →
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
Помогите, плиз.
← →
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-объектом ? Ностальжи по старому-доброму паскалю ? Или как ?
← →
Digitman © (2004-04-21 13:40) [1]
> 1013
что это за строка в исх.тексте ?
почему не воспользоваться для чтения из файла TFileStream-объектом ? Ностальжи по старому-доброму паскалю ? Или как ?
← →
Goida © (2004-04-21 13:41) [2]http://delphimaster.net/view/1-1082540158/
← →
Goida © (2004-04-21 13:41) [2]http://delphimaster.net/view/1-1082540158/
← →
uny (2004-04-21 13:45) [3]packed record
← →
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 - ощутимой разницы не заметил, по крайней мере по времени выполнения. В чем еще могут быть плюсы ?
← →
Андрей Сенченко © (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 строчку пристально вглядись
← →
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-й строке кода ... что это за код тогда ?
← →
Андрей Сенченко © (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)); //прочитали запись
← →
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 поставь точку с запятой!!!!!!!!!!!!
← →
KapitanSerg © (2004-04-21 14:09) [8]>[Error] MainUnit.pas(1013): Missing operator or semicolon
В конце строки 1012 поставь точку с запятой!!!!!!!!!!!!
← →
Андрей Сенченко © (2004-04-21 14:15) [9]KapitanSerg © (21.04.04 14:09) [8]
:bravo:
Смайликов тут к сожалению нет. В некоторых случаях полезны были бы
← →
Андрей Сенченко © (2004-04-21 14:15) [9]KapitanSerg © (21.04.04 14:09) [8]
:bravo:
Смайликов тут к сожалению нет. В некоторых случаях полезны были бы
← →
4aynik (2004-04-21 14:36) [10]спасибо, а как с этим TFileStream
прочитать каждую запись последовательно, допустим их 6.
← →
4aynik (2004-04-21 14:36) [10]спасибо, а как с этим TFileStream
прочитать каждую запись последовательно, допустим их 6.
← →
4aynik (2004-04-21 14:48) [11]Удалено модератором
Примечание: Создание пустых сообщений\
← →
4aynik (2004-04-21 14:48) [11]Удалено модератором
Примечание: Создание пустых сообщений\
← →
Amoeba © (2004-04-21 14:52) [12]Идешь на http:\\www.delphikingdom.com, находишь там раздел "Лицей" и читаешь соответствующий материал.
Если это не устраивает, то не обессудь:
http://lleo.aha.ru/na/index.shtml
← →
Amoeba © (2004-04-21 14:52) [12]Идешь на http:\\www.delphikingdom.com, находишь там раздел "Лицей" и читаешь соответствующий материал.
Если это не устраивает, то не обессудь:
http://lleo.aha.ru/na/index.shtml
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.035 c
