Delphi
Delphi . .
.1 ˳ Delphi
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton8Click(Sender: TObject);
procedure RadioButton9Click(Sender: TObject);
procedure RadioButton10Click(Sender: TObject);
procedure RadioButton11Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add('².');
Memo1.Lines.Add(' Samples.');
Memo1.Lines.Add(' .');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text:= '';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Text:= '';
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' , , , , '', ..');
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' , , , , , .');
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
|
|
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' SpinEdit, , , , .');
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' , / .');
end;
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' .');
end;
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' . , .');
end;
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' , .');
end;
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' Windows, .');
end;
procedure TForm1.RadioButton9Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' Windows, .');
end;
procedure TForm1.RadioButton10Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' Windows, .');
end;
procedure TForm1.RadioButton11Click(Sender: TObject);
begin
Memo1.Text:= '';
Memo1.Lines.Add(':');
Memo1.Lines.Add(' Windows. .');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;
end.