Ich habe hier einen kleinen Quellcode, in dem einfach nur gerechnet wird. Es wird im ersten teil * gerechnet, in den anderen beiden teilen / . nur klappt das in dem ersten abschnitt nicht wirklich:
Delphi-Quellcode:
var s, v, t: real;
begin
if RadioButton1.Checked then
t:= strtofloat(edit1.text);
v:= strtofloat (edit2.text);
[color=#ff005f]s:= v*t;[/color]
Edit3.text:= floattostr(s);
if RadioButton2.Checked then
s:= strtofloat(edit1.text);
t:= strtofloat (edit2.text);
v:= s/t;
Edit3.text:= floattostr (v) ;
if RadioButton3.Checked then
s:= strtofloat(edit1.text);
v:= strtofloat (edit2.text);
t:= s/v;
Edit3.text:= floattostr (t) ;
end;
wie kann man das mit else if schreiben?