freepascal.ru • Просмотр темы - TStringGrid
 

TStringGrid

Модератор: Модераторы

TStringGrid

Сообщение Dark Ichigo » 16.07.2009 15:46:00

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

Содержание:
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
новенький
 
Сообщения: 44
Зарегистрирован: 12.03.2009 19:06:51

Re: TStringGrid

Сообщение Vadim » 16.07.2009 17:28:54

Dark Ichigo
Вы только забыли перед LoadFromFile() опции загрузки выставить, иначе если сохранённая таблица по объёму больше, чем та, что Lazarus создаёт по умолчанию, часть данных загружена не будет. Поэкспериментируйте у себя на компе и посмотрите, что получится... ;)
Vadim
долгожитель
 
Сообщения: 2749
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск


Вернуться в Компоненты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Рейтинг@Mail.ru