Zitat von
HW764:
gehts net:
Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if combobox1.Text := ('1')
then showmessage ('Sie haben Nummer 1 gewählt')
end;
if combobox1.Text := ('2')
then showmessage ('Sie haben Nummer 2 gewählt')
end;
wieso hast du da noch ein end; hingesetzt, obwohl du kein begin zusätzulich geschrieben hast?