[ale7653cs]

Открываю приложение, работаю с ClientDataSet - и возникает желание выйти из программы без сохранения результатов. КАК это реализовать?????

Всё, разобрался )))))

[Aristarh Dark]

Вот и написал бы, чтобы другим понятно было

[ale7653cs]

1 Нужно изучать теорию
2 http://www.delphimaster.ru/cgi-bin/f...&id=1302721117 туточки все расписанно
3 надеюсь, что ссылка на соседний форум не наказуема!

[Admin]

Сообщение от ale7653cs

надеюсь, что ссылка на соседний форум не наказуема!

Если по теме то нет.

[NumLock]

а "обычный" способ не подходит?

вот, запускаю приложение, работаю с 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