|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ClientDataSet закрытие приложения без сохранения результатов
Открываю приложение, работаю с ClientDataSet - и возникает желание выйти из программы без сохранения результатов. КАК это реализовать?????
Всё, разобрался ))))) Последний раз редактировалось ale7653cs, 14.04.2011 в 00:44. |
#2
|
||||
|
||||
Вот и написал бы, чтобы другим понятно было
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
1 Нужно изучать теорию
2 http://www.delphimaster.ru/cgi-bin/f...&id=1302721117 туточки все расписанно 3 надеюсь, что ссылка на соседний форум не наказуема! |
#4
|
||||
|
||||
Цитата:
|
#5
|
||||
|
||||
а "обычный" способ не подходит?
вот, запускаю приложение, работаю с TClientDataSet и выхожу, не сохраняя результат: Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, DBClient, StdCtrls; type TForm1 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; ButtonClose: TButton; ClientDataSet1: TClientDataSet; procedure FormCreate(Sender: TObject); procedure ButtonCloseClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin with ClientDataSet1 do begin FieldDefs.Clear; FieldDefs.Add('id', ftInteger); FieldDefs.Add('name', ftString, 20); CreateDataSet; Append; FieldByName('id').AsInteger:=1; FieldByName('name').AsString:='Bill Gates'; Post; Append; FieldByName('id').AsInteger:=2; FieldByName('name').AsString:='Paul Allen'; Post; Append; FieldByName('id').AsInteger:=3; FieldByName('name').AsString:='Steven Ballmer'; Post; end; // PostQuitMessage(0); // можно и сразу послать сообщение прекратить работу end; procedure TForm1.ButtonCloseClick(Sender: TObject); begin Close; // при нажатии на кнопку закрываем программу end; end. http://data.cod.ru/97402 Пишу программы за еду. __________________ |