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:

zusammenfalten · markieren

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?

Hi, du musst den Code, der von der if-Abfrage eingeschlossen werden soll, in begin - end setzen:

markieren

Delphi-Quellcode:

if blubb then
begin
  // Code
end;

Mit else geht das ganze dann so:

zusammenfalten · markieren

Delphi-Quellcode:

if blubb then
begin
  // ...
end else
if blubb_2 then
begin

end else
if blubb_3 then
begin

end;

Nach dem if hast du mehrere Zeilen Code, aber kein begin/end

Dust Signs