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

[Chicharrr]

База данных MS Access , подключаюсь через ADOConnection,DataSource,ADoTable.
Структура таблицы Выпискадебет
Код=счетчик
Номер=текстовый [20]
дата=Дата/время
Вид операции=числовой
Код банка=текстовый [30]
Счет=текстовый [30]
УНП=текстовый [40]
наименование поставщика=текстовый [60]
Сумма=денежный
Назначение платежа=текстовый [255]

вот код по которому я добавляла из текстового файла в бд

for i:=1 to n do
   begin
     if (Memo1.Lines.Strings[k]<>'') then
     begin
       DataModule2.VipiskaDEB.Insert;
       DataModule2.VipiskaDEB.FieldValues['Номер']:=memo1.Lines.Strings[k];
       DataModule2.VipiskaDEB.Post;
       k:=k+18;
     end;
   end;

DataModule2.VipiskaDEB.Active:=false;
DataModule2.VipiskaDEB.Active:=true;

___________
Вы когда научитесь код форматировать!?!?!

Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!
Модератор.

[Chicharrr]

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

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

[Serge_Bliznykov]

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

СТОП!
Раз Вы его ПРОЧИТАЛИ в мемо без ошибок, значит структура записи СООТВЕТСТВУЕТ содержимому файла!

[Chicharrr]

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

[Serge_Bliznykov]

делайте кнопочку.
на кнопку примерно такой код:

var
  s: string;
  MyVar: MyRec;
  f: file of MyRec;
begin
  AssignFile(f, 'e:\MyFile.bin');

  try
    Reset(f); // открыть для чтения

{     Memo1.Lines.Clear; }  // очистим мемо, куда будем сбрасывать строчки

     // читаем пока не конец файла
    while not EOF(f) do
    begin
      Read(f, MyVar); // считываем ЗАПИСЬ из файла

{      with MyVar do
         s := 'Номер='+Nom + ' Дата= '+DateToStr(data)+' VidOp='+ IntToStr(VidOp)+
                ' kodb = '+ kodb + ' shet = ' + shet +' unp='+unp+
                ' name ='+ name+
                ' sum=' + FloatToStr(  sum )+
                ' naz=' + naz;
       Memo1.Lines.Add(s);  //заносим эту строку в поле мемо1
}
      DataModule2.VipiskaDEB.Insert;
      with MyVar do begin
        DataModule2.VipiskaDEB.FieldValues['Номер'] := Nom;
        DataModule2.VipiskaDEB.FieldValues['дата'] := data;
        DataModule2.VipiskaDEB.FieldValues['Вид операции'] := VidOp;
        DataModule2.VipiskaDEB.FieldValues['Код банка'] := kodb;
        DataModule2.VipiskaDEB.FieldValues['Счет'] := shet;
        DataModule2.VipiskaDEB.FieldValues['УНП'] := unp;
        DataModule2.VipiskaDEB.FieldValues['наименование поставщика'] := name;
        DataModule2.VipiskaDEB.FieldValues['Сумма'] := sum;
        DataModule2.VipiskaDEB.FieldValues['Назначение платежа'] := naz;
      end;
      DataModule2.VipiskaDEB.Post;
    end;

    DataModule2.VipiskaDEB.Active := false;
    DataModule2.VipiskaDEB.Active := true;


    CloseFile(f); // закрываем файл
  except
    MessageDlg('Ошибка при доступе или чтении файла, либо файл не найден' +
      fName,
      mtError, [mbOk], 0); exit;
  end;
end;

вывод в мемо я закомментировал. Ибо не нужен он для работы.
Но если есть желание/необходимость - расскомментируйте нужные строчки...

[=master=]

Зачем вам файл?

[Chicharrr]

Огромное спасибо!!Заработало!!!