Und wo steht da jetzt der angesprochene Code?
Den hab ich vorher hingeschrieben.. hab ihn gelöscht weil es nicht ging, kann es aber auch mit code reinschreibe
(Hab jetzt nur den Teil genommen, der verändert wurde.)
Delphi-Quellcode:
procedure TForm1.berechnenClick(Sender: TObject);
var a, b: real;
begin
a:= StrtoFloat(zaehler.Text);
b:= StrtoFloat(zaehler2.Text);
FocusControl(reset);
if ListBox.selected[0] then ergebnis.Caption:= FloattoStrF(a + b,ffFixed,10,4);
if ListBox.selected[1] then ergebnis.Caption:= FloattoStrF(a - b,ffFixed,10,4);
if ListBox.selected[2] then ergebnis.Caption:= FloattoStrF(a * b,ffFixed,10,4);
if (ListBox.selected[3]) and (b=0) then begin
Showmessage('Durch 0 darf nicht geteilt werden!')end;
if (ListBox.selected[3]) and (b <> 0)then
ergebnis.Caption:= FloattoStrF(a / b,ffFixed,10,4);
if (a>=9999999999999999) or (b>=9999999999999999) then begin ShowMessage('Die Zahl ist zu groß') end;
//Hier der Code, der nicht geht :
if (zaehler.Text = '') or (zaehler2.Text = '') then begin ShowMessage('Da fehlt etwas!')end;
end;