[Sm1t1k]

Сообщение от Alegun

Как заполняется любимый Вами StringGrid, покажите процедуру.

StringGrid1.Editing:=true;

Ниже код для сохранения и открытия StringGrid с введенными данными.

Открыть :

Код:

procedure LoadTab(Tab: TStringGrid; const FileName: TFileName); 
var
f:TextFile;
iTmp,i,k:Integer;
strTemp:String;
begin
AssignFile(f, FileName);
Reset(f);
with Tab do
begin
Readln(f, iTmp);
ColCount := iTmp;
Readln(f, iTmp);
RowCount := iTmp;
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
begin
Readln(f, strTemp);
Cells[i, k] := strTemp;
end;
end;
CloseFile(f);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
if OpenDialog1.Execute then
LoadTab(Tab, OpenDialog1.FileName);
Tab.Visible:=True;
N3.Enabled:=True;
N8.Enabled:=True;
N9.Enabled:=True;
end;

Сохранить как :

Код:

procedure SaveTab(Tab: TStringGrid; const FileName: TFileName); 
var
f:TextFile;
i,k:Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with Tab do
begin
Writeln(f, ColCount);
Writeln(f, RowCount);
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveTab(Tab, SaveDialog1.FileName);
N2.Enabled:=True;
end;

Tab это имя моей StringGrid,