Как-то Poseidon мне подсказал, что для того чтобы сохранить всю таблицу StringGrid, нужно воспользоваться таким кодом (т.е. при нажатии на кнопочку ToolButton1, нужно сохранить таблицу, а при нажатии на другую ToolButton2, нужно открыть таблицу) :
Я делаю так:

Код

procedure TForm1.ToolButton1Click(Sender: TObject); //далее код сохранения function SaveGrid(StringGrid: TStringGrid; fileName: string):boolean; var f:textfile; x,y:integer; begin assignfile (f,fileName); rewrite (f); writeln (f,stringgrid.colcount); writeln (f,stringgrid.rowcount); For X:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do writeln (F, stringgrid.cells[x,y]); closefile (f); Result:= True; end;

Для обратной загрузки

Код

procedure TForm1.ToolButton2Click(Sender: TObject); //далее код для открытия function LoadGrid(StringGrid: TStringGrid; fileName: string):Boolean; var f: textfile; temp,x,y:integer; tempstr:string; begin assignfile (f,fileName); reset (f); readln (f,temp); stringgrid.colcount:=temp; readln (f,temp); stringgrid.rowcount:=temp; For X:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do begin readln (F, tempstr); stringgrid.cells[x,y]:=tempstr; end; closefile (f); Result:= True; end;

Я раньше с функциями не общался, в основном процедуры (я пока новичок в программировании и много не знаю). Не знаю где прописывать функции (в процедуре или нет).

Пример вызова:
Этот код, где его нужно прописывать, не пойму.
SaveGrid(StringGrid1, 'File1.txt')

LoadGrid(StringGrid1, 'File1.txt')


C использованием SaveDialog можно так
SaveGrid(StringGrid1, SaveDialog1.FileName)

Это сообщение отредактировал(а) Alex - 21.6.2005, 09:29

1) Простой способ
Пишешь описалово в секции implementation сверху, до основных процедур

Код

... implementation {$R *.DFM} // По-моему так procedure Proc1...; begin end; function Proc2...; begin end;

2) Лучший способ
Описываешь в типе формы

Код

interface  TForm1 = TForm...  private   function Func1;   function FUnc2;  end;

Потом в implemeantion

Код

implementation function TForm1.Func1; begin end; function TForm1.Func2; begin end;

Это под твой пример подойдет

3) Создать отдельный модуль

Код

UnitFuncs; interface   function F1;   funciton F2; implementation function F1; begin end; function F2; begin end;

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

P. S.
Я правильно понял вопрос?
Добавлено @ 08:51
Это разумеется отдельные описалова... потом создаешь событие Onclick для каждого Button (в Object Inspector в событиях)
и пишешь:

Код

procedure TForm1.ToolButton1Click(Sender: TObject); begin  SaveGrid() end; procedure TForm1.ToolButton2Click(Sender: TObject); begin  LoadGrid() end;

Соответственно все параметры запишешь самостоятельно...
Добавлено @ 08:52
А вообще в любом учебнике, который толще 100 страниц подробно все рассказывается...

И в нете доков куча!!!
Добавлено @ 08:55
Кстати еще вот так можно записать процедуру:

Код

(*сразу пример тупой*) function ShowSumIncUnoEach(x,y: integer): integer;  function Sum: integer; // Вложенная функция  begin   Reasul:=x+y  end; begn  inc(x);  inc(y);  Result:=Sum end; procedure TForm1.ToolButton1Click(Sender: TObject); begin  ShowMessage(IntToStr(ShowSumIncUnoEach(1, 2))) end;

Pakshin A. S. , ты прости меня но я понять не могу. А молчать думаю не стоит.
В коде:

Код

interface  TForm1 = TForm... //что за троеточие?  private   function Func1;   function FUnc2;  end; А потом: implementation             function TForm1.Func1; begin // получается здесь нужно порписывать функции? . . . end; function TForm1.Func2; begin . . . end; //А после, процедуры для кнопок: procedure TForm1.ToolButton1Click(Sender: TObject); begin LoadGrid(StringGrid1, 'File1.txt') end; procedure TForm1.ToolButton2Click(Sender: TObject); begin   SaveGrid(StringGrid1, 'File1.txt') end; end.

Ага? Или не ага?

А вот и я
Не нужно ничего мудрить, делай так:

Код

function SaveGrid(StringGrid: TStringGrid; fileName: string):boolean; var f:textfile; x,y:integer; begin assignfile (f,fileName); rewrite (f); writeln (f,stringgrid.colcount); writeln (f,stringgrid.rowcount); For X:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do writeln (F, stringgrid.cells[x,y]); closefile (f); Result:= True; end; function LoadGrid(StringGrid: TStringGrid; fileName: string):Boolean; var f: textfile; temp,x,y:integer; tempstr:string; begin assignfile (f,fileName); reset (f); readln (f,temp); stringgrid.colcount:=temp; readln (f,temp); stringgrid.rowcount:=temp; For X:=0 to stringgrid.colcount-1 do For y:=0 to stringgrid.rowcount-1 do begin readln (F, tempstr); stringgrid.cells[x,y]:=tempstr; end; closefile (f); Result:= True; end; procedure TForm1.ToolButton1Click(Sender: TObject); begin  SaveGrid(StringGrid1,'file1.txt') end; procedure TForm1.ToolButton2Click(Sender: TObject); begin  LoadGrid(StringGrid1,'file1.txt') end;

В Инете нашел такие слова:

"Вообще StringGrid нужен только для отображения данных. Поэтому его нет смысла сохранять. Записывать в файл надо структуру, из которой данные подаются в StringGrid. У Вас есть она?"

Для меня это "темный лес". Как возможно записать в файл структуру, а потом подать их в StringGrid?
Структура я понимаю это столбцы, строки, данные находящиеся в таблице. Так?

Pakshin A. S., Poseidon, Спасибо

Только...

Poseidon, у меня еще один мааааааленький вопросик.
После закрытия формы, обычно сообщение появляется о сохранении документа
здесь можно вот так сделать:

if form1.Close//тут помоему что-то еше нужно написать// then MessageDlg ('Vnimanie',mtWarning,[mbYes, mbNo],1);

Обрабатывай событие OnClose формы:

Код

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   //здесь пищи то, что должно произойти при закрытии, например:   if SaveDialog1.Execute  then SaveGrid(StringGrid1,SaveDialog1.FileName);  end;

Добавлено @ 12:30
или так

Код

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   MessageDlg ('Сохранить',mtConfirmation,[mbYes, mbNo],0);  end;

Но при этом нужно обработать нажатие на кнопку Yes. Но это уже другой вопрос, не касающийся этой темы.

А может стоит обработать CanClose... чтобы в случае отказа не дать программе закрыться?

В случае отказа делаем

Код

Action:= caNone

и все

1) Эта код добавляет строку в StringGrid новую строку нажатием Enter

if key=vk_return then StringGrid1.RowCount:=StringGrid1.RowCount+1

Подскажите, что зачит "key=vk_return"?

2)А, какой код на удаление строки, нажатием например, "Delete"?

М	Один топик - один вопрос! Тема закрыта.