VPF::Содержимое таблицы в ini-файл - Форум программистов

Mick Winder

Дата 25.2.2005, 12:29 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 15.10.2004
Где: Москва Рязанка

Репутация: нет
Всего: -1

Дана таблица StringGrid. Как всё содержимое таблицы записать в ini-файл?

Александра

Дата 25.2.2005, 12:44 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 20.2.2005
Где: Москва

Репутация: 7
Всего: 12

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 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

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

Александра

Дата 25.2.2005, 13:08 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 20.2.2005
Где: Москва

Репутация: 7
Всего: 12

Pakshin A. S.
а что если у него например табличка из цифер 10 на 10? БД использовать? smile

ему видней ))

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

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