Delphi Radiobuttons

[Hanswurst1]

Hallo,

für die Schule sollen wir ein Programm für eine Bank erstellen.
Dabei habe ich zwei radiobutton und ich möchte das Delphi automatisch rechnet wenn man auf einen dieser beiden klickt. Ich habe Probleme dabei die Rechnung zu erstellen denn Delphi zeigt mir immer einen Syntax fehler an.

Ich hoffe ihr könnt mir helfen.

Hier ist der Quellcode:
begin
if (RadioButton1.Checked = True)and
(RadioButton2.Checked = False) then
Zahl1:= StrToFloat (Edit1.text);
Zahl2:= StrToFloat (100);
Label9.caption := Flaottostr (Zahl1 div Zahl2)
else '0';

end;

[Klaus01]

Hallo,

vielleicht geht es so:

Delphi-Quellcode:

if (RadioButton1.Checked) then
  begin
    Zahl1:= StrToFloat(Edit1.text);
    Zahl2:= {StrToFloat(100)} 100; // siehe Morphies Post
    Label9.caption := FloatToStr(Zahl1 div Zahl2)
  end
else 
  Label9.caption :='0';

Grüße
Kalus

[Morphie]

Zahl2:= StrToFloat(100); sollte einen Fehler schmeißen...
Zahl2 := 100; sollte reichen

[Hanswurst1]

ja dake soweit geht es allerdings zeigt er mir jetzt an das Zahl1 und Zahl 2 als Operandentypen nicht zusammenpassen. Woran könnte das liegen ?

[Klaus01]

..vielleich weil div nur Ganzzahlen (Integer) mag?

Grüße
Klaus

[p80286]

Ggf. ist es so noch ein wenig besser

Delphi-Quellcode:

type
  Zahl1,
  Zahl2 : currency;

.....

if (RadioButton1.Checked) and not(Radiobutton2.Checked) then
  begin
    Zahl1:= StrToFloat(Edit1.text);
    Zahl2:= {StrToFloat(100)} 100; // siehe Morphies Post
    Label9.caption := FloatToStr(Zahl1 / Zahl2)
  end
else 
  Label9.caption :='0';

Gruß
K-H

[Hanswurst1]

Jetzt Funktioniert es Dankeschön!

[Morphie]

Damit man dir nächstes Mal besser helfen kann, solltest du dir ein paar grundlegende Dinge angewöhnen:
1. Deinen Delphi-Code solltest du in die dafür vorgesehenen Code-Tags einschließen. Das ist der Helm in der Symbolleiste bei der Texterfassung. Damit formatiert das Forum den Code entsprechend und man kann ihn dadurch besser lesen.
2. Auf eine Fehlerbeschreibung wie "Delphi zeigt mir immer einen Syntax fehler an." reagieren wir hier normalerweise allgerisch. Heute haben wir einen guten Tag Gibt nächstes Mal also die genaue Fehlermeldung an, und wo der Fehler auftritt.
4. Dein Code war nicht vollständig. Die Deklarationen fehlten z.B... Beim nächsten Mal solltest du also den vollständigen Code posten.
3. Bitte versuche die Fehlermeldung erst mal zu verstehen. Wenn du verstehst, was für Fehler du machst, kannst du sie auch selbst beheben.

Und noch etwas:
Sowas wie if (RadioButton1.Checked = True) and (RadioButton2.Checked = False) then macht man nicht. Die Eigenschaft "Checked" ist bereits vom Typ Boolean, kann also schon True oder False sein.
Du prüfst in deinem Code nochmals ob die Bedingung zutrifft... Ist also völlig überflüssig.

Und weil es RadioButtons sind, bei denen vermutlich sowieso nur die eine oder die andere Option eingestellt werden kann (nicht beide gleichzeitig), brauchst du auch nicht zu prüfen, ob RadioButton2.Checked = false ist, denn das ist sie automatisch, wenn RadioButton1 gesetzt ist.

Dieser Code hier sollte also für dich reichen:

Delphi-Quellcode:

if (RadioButton1.Checked) then
begin
  Zahl1 := StrToFloat(Edit1.text);
  Zahl2 := 100;
  Label9.caption := FloatToStr(Zahl1 / Zahl2)
end else 
  Label9.caption := '0';

[Hanswurst1]

Ja gut das wusste ich nicht ist aber für nächste mal gespeichert