ій ігровий досвід! '); error: = true; end; Platformerbox.ItemIndex = -1 then begin ShowMessage (' Ви не вказали як ставитеся до платформер! '); error: = true; end; Pristavkagroup . ItemIndex = -1 then begin ShowMessage ('Ви не вказали чи є у вас приставка!'); error: = true; end; error then l: = 2;;
: beginOsbox.ItemIndex = -1 then begin ShowMessage ('Ви не вказали свою ОС!'); error: = true; end; error then l: = 3;;; Not error then smena ( l);; TForm1.FormCreate (Sender: TObject);: boolean;: = false; Donatbox.ItemIndex = -1 then begin ShowMessage ('Ви не вказали витрачаєте ви гроші на ігри'); error: = true; end;
if (povtorSave) and (messagebox (0, 'Можливо ви намагаєтеся зберегти вже існуючі дані!' + # 13 # 10 + 'У цьому випадку вони будуть збережені під новим номером! Продовжити?', ' Повторне збереження ', MB_YesNo or MB_ICONINFORMATION) = mrNo) then error: = true; (not error) then begin: = DefinitionId;. SQL.Text: =' insert into table_1 (ID, name, fam, otch, pol, datar, professia, TimeGame, OpitGame, GanrGame, Platformer, OS, ConfigPC, Pristavka, Game, GameInfo, Donat, Film, Info) ';. SQL.add (' values ​​(: ID,: name,: fam,: otch,: pol ,: datar,: professia,: TimeGame,: OpitGame,: GanrGame,: Platformer,: OS,: ConfigPC,: Pristavka,: Game,: GameInfo,: Donat,: Film, povtorSave: = true; (0, 'Дані успішно збережені!', 'Збереження', MB_Ok or MB_ICONINFORMATION);
except ('Помилка при записі даних!');
end; else messagebox (0, 'Дані не збережені', 'Збереження', MB_Ok or MB_ICONERROR);; TForm1.BdataKeyPress (Sender: TObject; var Key: Char);: set of char = ['0 '.. '9', # 8, '.']; (not (key in abc)) then key: = # 0;; TForm1.N5Click (Sender: TObject);. ShowModal;; TForm1.N1Click (Sender: TObject);;; TForm1.N3Click (Sender: TObject);. Close;; TForm1.N2Click (Sender: TObject);. CreateForm (TInfoForm, InfoForm);. ShowModal;;. Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls; = class (TForm): TLabel;: TLabel;: TLabel;: TButton;: TImage;
{Private declarations}
{Public declarations};: TAboutForm;
{$ R *. dfm}. Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, DB, ADODB, DBGrids; = class (TForm): TStringGrid;: TButton;: TButton;: TDataSource;: TDBGrid;: TADOQuery;: TLabel;: TButton;: TLabel;: TButton;: TLabel;: TEdit; FormCreate (Sender: TObject); PriorButtonClick (Sender: TObject); NextButtonClick (Sender: TObject); CloseButtonClick (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TInfoForm; Mainform;
{$ R *. dfm} SelectInfo; InfoFo...
