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.

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

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

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

Hi,

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

markieren

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