Показать сообщение отдельно
  #5  
Старый 19.07.2011, 12:29
everlast everlast вне форума
Прохожий
 
Регистрация: 19.07.2011
Сообщения: 3
Репутация: 10
Радость Эта программа "Записная книжка". Сохраняет данные при выходе, и загружать при входе!

"Это начало кода программы"
Код:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;

type
  TDryzi = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BaseForm (Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SaveGrid(Sender: TObject);
    procedure LoadGrid{(Sender: TObject)};
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dryzi: TDryzi;

implementation

Тэги не забываем!!!
Ответить с цитированием