VPF::StringGrid и SaveDialog - Форум программистов

Гость_Elvis

Дата 14.6.2005, 16:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Подскажите пожалуйста: Нужно сохранить внесенные данные в таблицу (StringGrid) в момент выполнения приложения, код для кнопочки "Сохранить" такой:

If SaveDialog1.Execute then
StringGrid1.Cells.SaveToFile(SaveDialog1.FileName);

После Cells нужно ввести номера столбца и строки. А, что нужно вводить когда нужно сохранить всю таблицу?

Poseidon

Дата 14.6.2005, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата

А, что нужно вводить когда нужно сохранить всю таблицу?

Если хочешь сохранить всю таблицу StringGrid, то пользуйся этим:

Код

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;

Пример вызова:

Код

SaveGrid(StringGrid1, 'File1.txt')

Код

LoadGrid(StringGrid1, 'File1.txt')

C использованием SaveDialog можно так

Код

SaveGrid(StringGrid1, SaveDialog1.FileName)

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Guest

Дата 14.6.2005, 20:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Poseidon, спасибо Тебе большое за столь подробное описание!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »