Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.767 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Anweisung erfolderlich, aber Ausdruck vom Typ Beelean?

  Alt 17. Sep 2012, 15:42
.. noch eine Anmerkung,
die Datenhaltung sollte nicht in den Controls (TLabel) vorgenommen werden.

Die Zahlen dann nur zur Ausgabe an die Controls geben.
Bei den Vergleichen kannst Du dir so die ganzen Konvertierungen sparen.

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Zahl1 > Zahl2 then
    label4.caption :='Zahl1 ist die größte Zahl!'
  else
    if Zahl1 < Zahl2 then
      label4.caption :='Zahl2 ist die größte Zahl!' ;

  if Zahl1 > Zahl3 then
    label4.Caption :='Zahl1 ist die größte Zahl!
  else
    if Zahl1 < Zahl3 then
      label4.caption :='Zahl 3 ist die größte Zahl!' ;

  if Zahl2 > Zahl3 then
    label4.caption :='Zahl2 ist die größte Zahl!'
  else
    if Zahl2 < Zahl3 then
     label4.caption :='Zahl3 ist die größte Zahl' ;
end;
Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat