[B10r]

Есть вот такой код ! Надо зделать вод в два едита а вывод в Стринггрид !

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Button3: TButton;
    StringGrid1: TStringGrid;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
type
TMember = record
   Name : string[50];
   eMail : string[30];
   Posts : LongInt;
end;
var Members : array[1..50] of TMember;
  var F : file of TMember;
{$R *.dfm}
procedure ChangeEMail
(const RecN : integer; const NewEMail : string);
var DummyMember : TMember;
begin{связывание, открытие, блок обработки исключений}
Seek(F, RecN);
Read(F, DummyMember);
DummyMember.Email := NewEMail;
{чтение перемещается на следующую запись, для этого необходимо
вернуться на первоначальную запись, а затем записать}
Seek(F, RecN);
Write(F, DummyMember);
{закрываем файл}
end;

procedure TForm1.Button1Click(Sender: TObject);
var F : file of TMember;
member:Tmember;
i:integer;
st:string;
begin
AssignFile(F,'members.dat');
Rewrite(F);
try
for i:= 1 to 50 do
  Write (F, Members[i])

finally
CloseFile(F);
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
F:file of TMember;
member:Tmember;
begin
AssignFile(F,'members.dat');
Reset(F);
try
while not Eof(F) do begin
  Read (F, Member);{  Что-нибудь делаем с данными; }

end;
finally
CloseFile(F);
end;

end;


procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('members.dat');
end;

end.