Nur wenn beide RadioButtons deaktiviert sind

[homerunjack]

procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioEin.Checked then Neu:= StrToFloat (Edit2.Text);
if RadioEin.Checked then ChecklisteEin.Lines.Add (Edit1.Text) ;
if RadioEin.Checked then Gewinn:= (Gewinn + Neu) ;
if RadioEin.Checked then Panel1.Caption:= Floattostr (Gewinn);


if RadioAus.Checked then Neu:= StrToFloat (Edit2.Text) ;
if RadioAus.Checked then ChecklisteAus.Lines.Add (Edit1.Text);
if RadioAus.Checked then Gewinn:= (Gewinn - Neu) ;
if RadioAus.Checked then Panel1.Caption:= Floattostr (Gewinn) ;

if RadioAus.enabled = true and ..........??????...... then ShowMessage ('Ein- oder Ausgabe anklicken');


end;

Ich möchte gern das er die Nachricht nur anzeigt, wenn beide radiobuttons nicht aktiviert sind.

[Luckie]

Logische Verknüfungen kann man mit dem Schlüsselwort And machen.

[homerunjack]

Ja aber wenn ich schreibe:

if RadioAus.enabled = true and RadioEin.enabled = true then ShowMessage ('Ein- oder Ausgabe anklicken');

das klappt irgendwie nicht
und beides extra machen geht ja auch nicht

[Luckie]

Du musst natürlich dann noch richtig klammern. In wenn du in der Hilfe mal nachgeschlagen hättest, dann hättest du sogar direkt ein Beispiel bekommen:
while (I <= Length(S)) and (S[I] <> ',') do

[sECuRE]

Hi,

die Abfrage = true kannst du weglassen. = false wird mit "not" ausgedrückt:

Delphi-Quellcode:

if (RadioButton1.Checked) and (RadioButton2.Checked) then
  ShowMessage('Beide Buttons ausgewählt');

if (not RadioButton1.Checked) then
  ShowMessage('RadioButton1 nicht ausgewählt');

cu