Скачать: CL | DM;

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

← →
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 поставь точку с запятой!!!!!!!!!!!!

---

← →
Андрей Сенченко ©   (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:48) [11]

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

---

← →
Amoeba ©   (2004-04-21 14:52) [12]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.027 c