hi!

markieren

Code:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2 : Real;
begin
  zahl1 := StrToFloat(edit1.text);
  zahl2 := StrToFloat(edit2.text);

  if zahl1 then
    label1.caption := 'kleiner'
  else
    label1.caption := 'größer oder gleich';
end;

also ein label soll ausgeben welche zahl grösser oder kleiner ist nur sagt delphi dass der ausdruck BOOLEAN sein muss....der code is aber genau da her: http://www.dsdt.info/tutorials/crashkurs/?page=4

greeeetz schalli

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2 : Real;
begin
  zahl1 := StrToFloat(edit1.text);
  zahl2 := StrToFloat(edit2.text);

  if zahl1 > Zahl2 then
    label1.caption := 'kleiner'
  else
    label1.caption := 'größer oder gleich';
end;

jetz passt es

ok hab ma schon gedacht das was fehlt aber das der fehler auf der site ist is blöd....

aber thx!

kein Thema...
Such dir vllt nen anderen Turotrial
aber du verstehst den fehler da oder?

jop alles klar

Hallo!

Wurde gerade auf den Fehler aufmerksam gemacht und habe Martin (Strohal) gebeten, ihn zu korrigieren. Bei den "Originalen" auf meiner Homepage gibt es den Fehler übrigens nicht. http://www.christian-stelzmann.de/ar...htm#ifcasebool bzw. http://crashkurs.christian-stelzmann.de

Grüße
Christian