Мини БД, Проблема со стринггридом Опции

[Zundell]

Подскажите пожалуйста,как из файла вывести в стринггрид,ну вот например вводим Имя Фамилию Отчество жмем кнопку вывести и из файла выводится так:в первой ячейке имя,во второй фамилия,в третьей Отчество.Я сделал это для Мемо,но со стринг гридом никак не разберусь...Заранее очень благодарен

unit apprec_;

interface

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

type
  TForm1 = class(TForm)
    Label3: TLabel;
    Edit1: TEdit; // ìåäàëü
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

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



  // çàïèñü ôàéëà
  TStud=record
     Imya: string[25];
     Fam:  string[20];
     Ot: string[20]


   end;

var
  Form1: TForm1;
  f: file of TStud;

implementation

{$R *.DFM}


procedure TForm1.FormActivate(Sender: TObject);
var
  resp : word;
begin
AssignFile(f, 'c:\ÁàçàÄàííûõ.txt');
{$I-}
Reset(f);  Seek( f, FileSize(f));
{$I+}
memo1.Clear;
if IOResult = 0
then button1.enabled:=TRUE
else
begin
resp:=MessageDlg('Ôàéë áàçû äàííûõ íå íàéäåí.'+
'Ñîçäàòü íîâóþ ÁÄ?',mtInformation,[mbYes,mbNo],0);
if resp = mrYes then
begin
{$I-}
rewrite(f);
{$I+}
if IOResult = 0
then button1.enabled:=TRUE
else ShowMessage('Îøèáêà ñîçäàíèÿ ôàéëà ÁÄ.');
end;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Stud: TStud;
begin
  with Stud do
  begin
  Imya:=Edit1.Text;
  fam:= Edit2.Text;
  Ot:=Edit3.Text;
  end;
  write(f, Stud);
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     CloseFile( f );
end;

procedure TForm1.Button2Click(Sender: TObject);
var
f:file of TStud;
rec:TStud;
st:string[80];
begin
AssignFile(f,'c:\ÁàçàÄàííûõ.txt');
{$I-}
Reset(f);
{$I-}
While not EOF(f) do
begin
read(f,rec);
st:=rec.Imya+' '+rec.Fam+' '+rec.Ot;
Memo1.Lines.Add(St);
end;
closeFile(f);
end;
end.

[Zundell]

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

[klem4]

В дефолтовый грид с одной фиксированной строкой и одним фиксированным столбцом:

StringGrid1.Cells[1, 1] := 'Вася';
StringGrid1.Cells[2, 1] := 'Пупкин';
StringGrid1.Cells[3, 1] := 'Петрович';

Добавлено через 2 мин.

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

StringGrid1.Options := StringGrid1.Options + [goEditing];