Geum.ru

Разработка информационной системы обучения информатике иностранных студентов

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

ute(Sender: TObject);

//вывод окна помощи.Memo1.Lines.LoadFromFile(spravki\справка (главное меню).txt);.ShowModal;;

.

(Новый тест):ntest;

 

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons;

= class(TForm): TGroupBox;: TLabel;: TSpeedButton;: TLabel;: TEdit;: TEdit;: TBitBtn;: TBitBtn;: TSaveDialog;SpeedButton1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm8;

 

 

{$R *.dfm}

TForm8.SpeedButton1Click(Sender: TObject);SaveDialog1.Execute then.Text := SaveDialog1.FileName;;

.

(Выбор ресурса учебника):selbook;

 

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, DBCtrls;

= class(TForm): TLabel;: TDBLookupComboBox;: TBitBtn;

{ Private declarations }

{ Public declarations };

: TForm5;

 

 

{$R *.dfm}

.

(Настройка переводчика):setups;

 

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons;

= class(TForm): TGroupBox;: TBitBtn;: TCheckBox;: TEdit;: TEdit;: TLabel;: TLabel;: TBitBtn;: TOpenDialog;: TBitBtn;SelectFile(Sender: TObject);CheckBox1Click(Sender: TObject);BitBtn3Click(Sender: TObject);FormCreate(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm4;

 

 

{$R *.dfm}TForm4.SelectFile(Sender: TObject);

//ввод имени файла в строку вводаOpenDialog1.Execute then.Text := OpenDialog1.FileName;;

TForm4.CheckBox1Click(Sender: TObject);.Enabled := CheckBox1.Checked;.Enabled := CheckBox1.Checked;;

TForm4.BitBtn3Click(Sender: TObject);: textfile;(f, trans.ini); Rewrite(f);CheckBox1.Checked then(f, 1)(f, 0);(f, Edit1.Text);(f, Edit2.Text);(f);;

TForm4.FormCreate(Sender: TObject);: textfile;: integer;: string;

0thenExit;(f,k);.Checked:=k=1;(f,s);.Text:=s;(f,s);.Text:=s;(f);;">{$i-} AssignFile(f, trans.ini); Reset(f); {$I+}IOResult <> 0 then Exit;(f, k);.Checked := k = 1;(f, s);.Text := s;(f, s);.Text := s;(f);;

.

(Помощь):help;

 

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ExtCtrls;

= class(TForm): TPanel;: TBitBtn;: TMemo;

{ Private declarations }

{ Public declarations };: TForm9;

 

{$R *.dfm}.