Hallo Leute,
Ich find den Fehler bei der Zeile mit dem then nicht und mit den anderen Fehlern kann ich auch nichts anfangen
Ich muss auch dazusagen das ich schon eine weile nichts mehr mit Delphi gemacht hab ....
Delphi-Quellcode:
private
w1 , w2 , w3 , wm , ww , h1 , h2, h3 , hm , hw , s1 , s2 , s3 ,sm , sw : real;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
wm:= 8.95;
ww:= 7.52;
hm:= 2.45;
hw:= 2.09;
sm:= 9.58;
sw:= 10.49;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.ComboBox1 = 0 then
begin
w1:= floattostr((strtofloat(wm)/1000)*strtofloat(Edit1.Text));
label16.Caption:= w1;
end;
end;
end.
wäre echt super wenn ihr mir helfen würdet