Willkommen im Forum !
Wie F34r0fTh3D4rk schon sagt schau dir mal den Crashcurs an, der ist sehr gut wenn man noch gar keine Erfahrungen hat mit Delhi.
Unten mal ein Code Bsp.
Real, FloatToString, StringToFloat findest Du alles im DF oder deiner Delphihilfe dann müsstest Du das schon verstehen.
Deshalb unkommentiert.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| private
public
end;
var
Form1: TForm1;
Hoehe,Breite,Tiefe,Volumen:Real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Hoehe:=StrToFloat(Edit1.Text);
Breite:=StrToFloat(Edit2.Text);
Tiefe:=StrToFloat(Edit3.Text);
Volumen:=Hoehe*Breite*Tiefe;
Label1.Caption:=FloatToStr(Volumen)+' Kubikzentimeter';
end;
end. |
_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)
