Вот пример!!!!
Только Опиши Сначало мои процедуры
| Код |
procedure TDesSLAU.load(fs:string);
var
i,j:integer;
begin
Assign(input,fs);
reset(input);
read(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for j:=1 to m do
read(b[j]);
close(input);
end;
procedure TDesSLAU.save(fs:string);
var
i,j:integer;
begin
Assign(output,fs);
rewrite(output);
writeln(n,' ',m);
for i:=1 to n do
for j:=1 to m do
writeln(a[i,j]);
for j:=1 to m do
writeln(b[j]);
close(output);
end;
// обработчик загрузки
procedure TForm1.ToolButton3Click(Sender: TObject);
var
i,j:integer;
begin
if opend.Execute then
begin
slau.load(opend.FileName);
coledit.Value:=slau.n;
rowedit.Value:=slau.m;
for i:=1 to slau.n do
for j:=1 to slau.m do
matur.Cells[j,i]:=floattostr(slau.a[i,j]);
for j:=1 to slau.m do
matur.Cells[slau.n+1,j]:=floattostr(slau.b[j]);
end;
// обработчик сохранения
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
if saved.Execute then
begin
slau.save(saved.FileName);
end;
end;
|
|
Подскажите плз, как сохранить содержимое СтрингГрида в файл а потом загрузить обратно? 
