Unit Unit1;
interface
uses System, System.Drawing, System.Windows.Forms, unit2;
type
Form1 = class(Form)//После слова class в скобках может быть указано имя класса-предка
procedure label1_Click(sender: Object; e: EventArgs);
procedure distBut_Click(sender: Object; e: EventArgs);
procedure sqBut_Click(sender: Object; e: EventArgs);
procedure button1_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.Form1.resources}
distBut: Button;
x1tbox: TextBox;
y1tbox: TextBox;
x2tbox: TextBox;
y2tbox: TextBox;
x3tbox: TextBox;
y3tbox: TextBox;
dist1tbox: TextBox;
dist3tbox: TextBox;
dist2tbox: TextBox;
sqtbox: TextBox;
sqBut: Button;
label2: &Label;
label3: &Label;
label4: &Label;
label5: &Label;
label6: &Label;
label7: &Label;
label8: &Label;
button1: Button;
label1: &Label;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;
implementation
procedure Form1.label1_Click(sender: Object; e: EventArgs);
begin
end;
procedure Form1.distBut_Click(sender: Object; e: EventArgs); //расстояние
var
m: Model;
begin
try
m := new Model(strToInt(x1tbox.Text), strToInt(y1tbox.Text), strToInt(x2tbox.Text), strToInt(y2tbox.Text), strToInt(x3tbox.Text), strToInt(y3tbox.Text));
dist1tbox.Text := floatToStr(m.getSides[1]);
dist2tbox.Text := floatToStr(m.getSides[2]);
dist3tbox.Text := floatToStr(m.getSides[3]);
except
on system.FormatException do messageBox.Show('Ошибка ввода');
end;
end;
procedure Form1.sqBut_Click(sender: Object; e: EventArgs); //Площадь
var
m: Model;
begin
try
m := new Model(strToInt(x1tbox.Text), strToInt(y1tbox.Text), strToInt(x2tbox.Text), strToInt(y2tbox.Text), strToInt(x3tbox.Text), strToInt(y3tbox.Text));
sqtbox.Text := floatToStr(m.getSq);
except
on system.FormatException do messageBox.Show('Ошибка ввода');
end;
end;
procedure Form1.button1_Click(sender: Object; e: EventArgs); //Выход
begin
halt;
end;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.