Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Содержимое таблицы в ini-файл


Автор: Mick Winder 25.2.2005, 12:29
Дана таблица StringGrid. Как всё содержимое таблицы записать в ini-файл?

Автор: Александра 25.2.2005, 12:44
Mick Winder

примерно так:

Код
uses IniFiles;
...
var f: TIniFile;
   i, j: integer;
begin
 f := TIniFile.Create('c:\example.ini');

 f.WriteInteger('grid', 'rows', StringGrid1.RowCount);
 f.WriteInteger('grid', 'cols', StringGrid1.ColCount);
 f.WriteInteger('grid', 'frows', StringGrid1.FixedRows);
 f.WriteInteger('grid', 'fcols', StringGrid1.FixedCols);

 for i := 0 to StringGrid1.ColCount - 1 do
   for j := 0 to StringGrid1.RowCount - 1 do begin
     f.WriteString('data', Format('%d%d', [i, j]), StringGrid1.Cells[i, j]);
   end;

 f.free;
...

Добавлено @ 12:47
читаем это так:

Код
var f: TIniFile;
   i, j: integer;
begin
 f := TIniFile.Create('c:\example.ini');

 StringGrid1.RowCount := f.ReadInteger('grid', 'rows', 0);
 StringGrid1.ColCount := f.ReadInteger('grid', 'cols', 0);
 StringGrid1.FixedRows := f.ReadInteger('grid', 'frows', 0);
 StringGrid1.FixedCols := f.ReadInteger('grid', 'fcols', 0);

 for i := 0 to StringGrid1.ColCount - 1 do
   for j := 0 to StringGrid1.RowCount - 1 do begin
     StringGrid1.Cells[i, j] := f.ReadString('data', Format('%d%d', [i, j]), '');
   end;

 f.free;

Добавлено @ 12:47
обработку всяких исключений сам добавь ;)

Автор: Pakshin A. S. 25.2.2005, 12:48
А оно вам нужно? Для чего использовать ин, если можно просто сделать одну табличку (скажем, Paradox) и работать с ней.... Ведь ини не резиновый... smile

Автор: Александра 25.2.2005, 13:08
Pakshin A. S.
а что если у него например табличка из цифер 10 на 10? БД использовать? smile ему видней ))

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)