grono.net

• 12/05/2009 18:18
• 

unit pola;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;

type
TForm1 = class(TForm)
Button1: TButton;
Wysokosc: TEdit;
Promien: TEdit;
H: TLabel;
R: TLabel;
lblPolecal: TLabel;
lblPolebocz: TLabel;
lblObjetosc: TLabel;
procedure Button1Click(Sender: TObject);


private
{ Private declarations }
public
function Objetosc: real;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function Objetosc: real;
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
var
r,h,P,Pc:real;
begin
r:=StrToFloat(Promien.Text);
h:=StrToFloat(Wysokosc.Text);
P:=2*pi*r*h;
Pc:=2*(pi*r*r)+P;
lblPolecal.Caption:='Pole calkowite: '+FloatToStr(RoundTo(Pc,-2));
lblPolebocz.Caption:='Pole powierzchni boczne: '+FloatToStr(RoundTo(P,-2));
end;

end.

piszę prosty program do obliczania pola i objetosci walca, brakuje mi tylko funkcji objetosci, nigdy nie uczylem sie delphi i nie wiem jak ja zadeklarowac i wywolac w" procedure TForm1.Button1Click(Sender: TObject); . bardzo prosze o szybka pomoc
funkcje juz sobie napisałem ale jak ja i gdzie zadeklarowac
var
V,r,h:real;
Begin
r:=StrToFloat(Promien.Text);
h:=StrToFloat(Wysokosc.Text);
V:=pi*r*r*h;
lblObjetoscl.Caption:='Pole calkowite: '+FloatToStr(RoundTo(V,-2));
end;

• 12/05/2009 22:02
• 

jeżeli wszystko jest napisane ok, to wystarczy wywołanie procedury obliczającej pole w procedurze obsługującej zdarzenie TForm1.Button1Click, jedynym co sprawia czasem błędy początkującym w delphi to fakt, iż nie wystarczy tego na pałę dodać w kodzie modułu, trzeba też przeklikać zdarzenie dla TForm w ObjectInspectorze

• 12/05/2009 22:22
• 

poprawka:

chyba nie to było problemem.

wrzucenie procedury do modułu polega na wpisaniu kodu do modułu i nagłówka do odpowiedniej sekcji (prywatnej/publicznej).

type
TForm1 = class(TForm)
private
procedure liczPole();
public
end;

implementation

procedure TForm1.liczPole();
begin
/ /obliczanie pola
end;

potem wystarczy w procedurze ButtonClick wywołać odpowiednią procedurę następująco

procedure TForm1.Button1Click(Sender: TObject);
begin
liczPole();
end;