freepascal.ru

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

Содержание:
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;

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

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