записная книжка

var
Form2: TForm2;
k:integer;
implementation

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);
var i,n,m:integer;
mass:array[1..100] of integer;
a:string;


begin
n:=5;m:=100;
{размеры}
StringGrid1.colwidths[0]:=20; StringGrid1.colwidths[1]:=50;
StringGrid1.colwidths[2]:=100; StringGrid1.colwidths[3]:=100;
StringGrid1.colwidths[4]:=100;
{колво}
StringGrid1.ColCount:=n; StringGrid1.RowCount:=m;
{запись}

begin
if StringGrid1.Cells[1,k]='' then showmessage('Введите данные') else
k:=k+1;
end;

StringGrid1.Cells[1,k]:=edit1.Text;
StringGrid1.Cells[2,k]:=edit2.Text;
StringGrid1.Cells[3,k]:=edit3.Text;
StringGrid1.Cells[4,k]:=edit4.Text;
//if StringGrid1.Cells[1,1]=a then

end;
_________тут вроде не нормально все)
var
f: textfile;
temp, x, y: integer;
tempstr: string;
begin
savedialog1.execute;
assignfile(f, SaveDialog1.FileName);
rewrite(f);
readln(f, temp); // считывание количества колонок
stringgrid1.colcount := temp;
readln(f, temp); // считывание количества строк
stringgrid1.rowcount := temp;
for X := 0 to stringgrid1.colcount - 1 do
for y := 0 to stringgrid1.rowcount - 1 do
begin
readln(F, tempstr);
stringgrid1.cells[x, y] := tempstr; // считывание данных
end;
closefile(f);
end;
а вот тут что то не так(((((( это сохранение ...
procedure TForm2.BitBtn4Click(Sender: TObject);
var
f:textfile;
temp, x, y: integer;
tempstr: string;
begin
If OpenDialog1.Execute then
assignfile(f, OpenDialog1.FileName+'.txt');
reset(f);
readln(f, temp);
stringgrid1.colcount := temp;
readln(f, temp);
stringgrid1.rowcount := temp;
for X := 0 to stringgrid1.colcount - 1 do
for y := 0 to stringgrid1.rowcount - 1 do
begin
readln(F, tempstr);
stringgrid1.cells[x, y] := tempstr;
end;
closefile(f);
end;

чтение из файла тоже что то я намудрил проверьте пожалуйста..

вот вся работа http://files.mail.ru/HANIN8

0