if-anweisung

[SnOxXx]

hi!

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

[Schaedel]

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

[SnOxXx]

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

aber thx!

[Schaedel]

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

[SnOxXx]

jop alles klar

[Christian S.]

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