Написал програмку, все через форму вроде как надо, мучался 2 дня но все же получилось.
Так вот, когда запускаю, то выдает сообщение (Проект "lab10_1" успешно собран.
) и появляется окно => clip но хотелось бы что бы появлялась сама форма где вбиваю свои данные =>clip что делаю не так подскажите пожалуйста, я в этом совсем не шарю. Вот текст программы => unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, Interfaces;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var c1,c2:integer;
c3:real;
begin
VAL(Edit1.Text,c1);
VAL(Edit2.Text,c2);
c3:=(c1-c2)/(c1+c2);
Edit3.Text:= FloatToStr(c3);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
initialization
{$I unit1.lrs}
end.
