Загрузка из типизированного файла в memo

[Chicharrr]

попробывала read не помогло((

[tmtm]

Вам точно известна структура вашего файла, из которого вы считываете данные? Она действительно соответствует объявленной вами записи? Кроме того, компонентой вашего файла является запись. Зачем вы каждое поле из файла читаете по отдельности?

[=master=]

вам же показали как читать данные из файла, что там не понятно?

[Chicharrr]

Сообщение от tmtm

Вам точно известна структура вашего файла, из которого вы считываете данные? Она действительно соответствует объявленной вами записи?

если чесно не совсем понимаю.делаю впервые делала по примеру.создала запись и занесла в файл..

[Chicharrr]

Сообщение от tmtm

Вам точно известна структура вашего файла, из которого вы считываете данные? Она действительно соответствует объявленной вами записи? Кроме того, компонентой вашего файла является запись. Зачем вы каждое поле из файла читаете по отдельности?

тогда нужно прочитать просто запись? а счетчик нужен?

[Serge_Bliznykov]

Вы мой пост вообще видели?!
#13

внимательно прочитали? Код попробовали?!

[Chicharrr]

да.но я решила пробовать сразу в бд.

[Chicharrr]

пробую как вы написали. в memo заносит.сейчас буду пробывать в бд.. спасибо всем большое.

[Chicharrr]

Номер=123 Дата= 12.05.2012 Вид операции=6 kodb = 12345 shet = 34985 unp=34956 name =ИВЦ sum=12345 naz=Оплата

вот в таком виде оно в мемо.только вот в бд мне нужно занести без названий полей.как это сделать?

[Serge_Bliznykov]

Сообщение от Chicharrr

да.но я решила пробовать сразу в бд.

Ок.
Для начала забыли про типизированный файл!

Какая БД (СУБД)? Через что подключаетесь?
Какая структура таблицы (кстати, одной или несколько таблиц)?
И, главное,
напишите строчки кода, которые могут добавить ОДНУ запись в нужную таблицу.


теперь возвращаясь к типизированному файлу.
файл на диске должен СТРОГО (байт в байт) соответствовать вашему типу MyRec (точнее, Ваш тип MyRec должен с точностью до байта соответствовать типизированному файлу.

прочитать файл (перебрать все записи можно либо так):

var f : file of MyRec;
   One : MyRec;
   i : integer;
begin
  AssignFile(f, 'ИМяТипизированногоФайла.bin' );
  Reset(f);
  for i:=1 to FileSize(f) do begin
     Read(f, One);
     <тут что-то делаем с прочитанными данными из One>
  end;
  CloseFile(f);
end;

либо так

var f : file of MyRec;
   One : MyRec;
   i : integer;
begin
  AssignFile(f, 'ИМяТипизированногоФайла.bin' );
  Reset(f);
  while not eof(f) do begin
     Read(f, One);
     <тут что-то делаем с прочитанными данными из One>
  end;
  CloseFile(f);
end;

в любом случае чтение из типизированного файла выволняется
Read(f, ПеременнаяТипаКомпонентаФайла)
где f : file of ТипаКомпонентаФайла;