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

[Chicharrr]

Подскажите пожалуйста! Делаю диплом нужно сделать загрузку из клиент-банка выписок. Решила сделать с помощью типизированного файла..Создать получилось , но вот с загрузкой проблемы. Вот так создаю..Но а как в memo загрузить..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
            MyRec=Record
           Nom:string[20];
            data:TDate;
           VidOp:integer;
           kodb:string[30];
           shet:string[30];
           unp:string[40];
           name:string[60];
           sum:Currency;
           naz:string[255];
          end;
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject); 

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   Var MyVar:MyRec;
    Var f:File of MyRec;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  AssignFile(f,'e:\MyFile.bin');
Rewrite(f);
MyVar.Nom:='123';
MyVar.data:=Now;
MyVar.VidOp:=6;
MyVar.kodb:='12345';
MyVar.shet:='34985';
 MyVar.unp:='34956';
  MyVar.name:='ИВЦ';
  MyVar.sum:=12345;
  MyVar.naz:='Оплата';
Write(f,MyVar);
Closefile(f);
end;

end.

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

[=master=]

И что вы хотите в меме увидеть?

[tmtm]

Используйте Memo1.Lines.Append(Строка) или Memo1.Lines.Add(Строка)

[Chicharrr]

Из memo я хочу дальше загружать в бд..с текстовыми файлами все получалось..
Memo1.Lines.Add(Строка) пыталась. Все время ошибки из-за несоответсвия типов.так как использую record

[Chicharrr]

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons, ComCtrls, DBCtrls;
 const
 max=100;
type
 MyRec=Record
           Nom:string[20];
            data:TDate;
           VidOp:integer;
           kodb:string[30];
           shet:string[30];
           unp:string[40];
           name:string[60];
           sum:Currency;
           naz:string[255];
          end;


          f1=File of MyRec;

     TForm6 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Label4: TLabel;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    Label5: TLabel;
    BitBtn2: TBitBtn;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    Edit1: TEdit;
    BitBtn3: TBitBtn;

    procedure BitBtn2Click(Sender: TObject);
   
   
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

   // файл
  fName: String[80]; // имя файла

  f:f1; 
   n:integer;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit7;

{$R *.dfm}


procedure TForm6.BitBtn2Click(Sender: TObject);
var i:integer;

begin
 if OpenDialog1.Execute=true then
  begin
   edit1.Text:=OpenDialog1.FileName;

fName := Edit1.text;
AssignFile(f, fName);
  {$i-}
  Reset(f); // открыть для чтения
  {$I+}
  
  if IOResult <> 0 then
  begin
    MessageDlg( 'Ошибка при доступе к файлу,либо файл не найден' + fName,
      mtError, [mbOk], 0); exit;
  end;

  // читаем пока не конец файла
  while not EOF(f) do
  begin

    Readln(f, str.Nom); // считываем строку из файла
    Memo1.Lines.Add(Nom);//заносим эту строку в поле мемо1
     n:=n+1;
  end;

   CloseFile(f); // закрываем файл









end;

    end;

end.

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

[Chicharrr]

вот такую ошибку выдает [Ошибка] Unit6.pas(92): Incompatible types: 'MyRec' and 'ShortString'

[=master=]

Readln(f, str.Nom); // считываем строку из файла
Memo1.Lines.Add(Nom);//заносим эту строку в поле мемо1

вы работаете с типизированным файлом, при чем тут строка?

[Chicharrr]

Начиталась разных примеров. Все напутала уже в голове. Так это вообще возможно из типизированного в memo, а дальше в БД?

[tmtm]

Ну, а почему бы и нет?
Сначала в Memo, потом в БД. Не из Memo, а сразу.

[Chicharrr]

) не подскажите как?