TStringGrid

[Dark Ichigo]

Спасибо все, кто мне помогал и помогает в решении нубовских задач. Решил сделать что-то полезное для проекта. По мере свободного времени буду добавлять сюда разное. Надеюсь, не я один. Если что не так - поправляйте.

Содержание:
TStringGrid и БД в текстовом файле XML


TStringGrid и БД в текстовом файле XML
Делаем таблицу, ставим на кнопку сохранения следующий код:

Код: Выделить всё

procedure TForm1.SaveToFileClick(Sender: TObject);
begin
  StringGrid1.SaveOptions:=[soDesign, soAttributes, soContent];
  StringGrid1.SaveToFile('bd.txt');
  Close;
end;

где bd.txt - пустой текстовый файл, если он лежит не в корневой директории программы, то надо прописать путь.
Далее заполняем таблицу (Options: goEditing) в запущенной программе, нажимаем кнопку сохранить и ву-а-ля - текстовый файл заполняется как нужно.
Потом уже ставим Form1.Create:

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.LoadFromFile('bd.txt');
end;

Запускаем прогу, мы счастливы.

[Vadim]

Dark Ichigo
Вы только забыли перед LoadFromFile() опции загрузки выставить, иначе если сохранённая таблица по объёму больше, чем та, что Lazarus создаёт по умолчанию, часть данных загружена не будет. Поэкспериментируйте у себя на компе и посмотрите, что получится...