Program z rekordami i z stringgrid

[Vergras]

Witam. Utknąłem na tworzeniu programu w Delphi. Mam stringgrid, rekordy. I chciałbym by z pliku były odczytywane rekordy i wpisywane do kolumn tabeli z stringgrid.

Kod programu:

 

 

unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Grids;
type
TForm5 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Label6: TLabel;
Button2: TButton;
Edit5: TEdit;
UpDown1: TUpDown;
Button3: TButton;
CheckBox1: TCheckBox;
g: TStringGrid;
Edit6: TEdit;
UpDown2: TUpDown;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
// procedure Button4Click(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit3Click(Sender: TObject);
// procedure Edit7Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
rekord = packed record
imie:string[20];
nazw:string[30];
data:string[20];
klasa:string[10];
end;
var
Form5: TForm5;
plik:file of rekord;
rek:rekord;
implementation
{$R *.dfm}
//function w(a,b,c:double):double;
//var w:double;
//begin
//end;
procedure TForm5.Button1Click(Sender: TObject);
begin
rek.imie:=edit1.text;
rek.nazw:=edit2.text;
rek.data:=edit3.text;
rek.klasa:=edit4.text;
seek(plik,filesize(plik));
write(plik,rek);
label6.caption:=inttostr(filesize(plik));
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
seek(plik,strtoint(edit5.text));
truncate(plik);
label6.caption:=inttostr(filesize(plik));
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
rek.imie:=edit1.text;
rek.nazw:=edit2.text;
rek.data:=edit3.text;
rek.klasa:=edit4.text;
seek(plik,strtoint(edit5.text));
write(plik,rek);
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
end;
procedure TForm5.Button4Click(Sender: TObject);
begin
end;
//procedure TForm5.Button4Click(Sender: TObject);
//begin
//form5.Caption:=floattostr(w(3,4,5));
//end;
procedure TForm5.CheckBox1Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
end;
procedure TForm5.Edit3Click(Sender: TObject);
begin
edit3.Text:='';
end;
procedure TForm5.Edit6Change(Sender: TObject);
begin
g.rowcount:=strtoint(edit6.text)+1;
end;
//procedure TForm5.Edit7Change(Sender: TObject);
//begin
//g.rowcount:=strtoint(edit1.text)-1;
//end;
procedure TForm5.FormCreate(Sender: TObject);
begin
// MkDir('c:\baza1\');
assignfile(plik,'c:\baza1\dane.dat');
if fileexists('c:\baza1\dane.dat') then reset(plik)
										 else rewrite(plik);
g.Cells[0,0]:='Dane:';
g.Cells[1,0]:='Imie';
g.Cells[2,0]:='Nazwisko';
g.Cells[3,0]:='Data';
g.Cells[4,0]:='Klasa';
end;
//function CreateDir(const Dir: string): Boolean;
//begin
// Write('Wpisz ścieżkę katalogu jaki chcesz utworzyć: ');
// Readln(Dir);
// if not DirectoryExists(Dir) then
// begin
// if CreateDir(Dir) then
//	 Writeln('Zakończone sukcesem ')
// else
//	 Writeln('Błąd');
// end else
// Writeln('Katalog o tej nazwie już istnieje!');
// Readln;
//end;
end.