Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#12
  Alt 29. Nov 2002, 16:23
Sorry: True ist gleich 1

Der Rest bleibt aber weiter wie beschrieben. Hier mal ein Beispiel:
Delphi-Quellcode:
  // der Wert der Konstante True
  ShowMessage('TRUE: ' + IntToStr(Integer(True)));
  // der Wert der Konstante True
  ShowMessage('FALSE: ' + IntToStr(Integer(False)));
  // ein Vergleich zweier gleicher Konstanten
  ShowMessage('2=2: ' + IntToStr(Integer(Boolean(2 = 2))));
  // ein Vergleich zweier verschiedener Konstanten
  ShowMessage('1=2: ' + IntToStr(Integer(Boolean(1 = 2))));
  // testen einer Konstante ungleich 0
  if Boolean(5) then ShowMessage('Boolean(5) GILT ALS True') else ShowMessage('Boolean(5) GILT ALS False');
  // testen einer Konstante gleich 0
  if Boolean(0) then ShowMessage('Boolean(0) GILT ALS True') else ShowMessage('Boolean(0) GILT ALS False');
  // testen ob eine Konstante (5), welche True is, auch gleich True ist
  if Boolean(5) = True then ShowMessage('Boolean(5) = True IST WAHR') else ShowMessage('Boolean(5) = True IST NICHT WAHR');
  // testen ob eine Konstante (5), welche True is, gleich False ist
  if Boolean(5) = False then ShowMessage('Boolean(5) = False IST WAHR') else ShowMessage('Boolean(5) = False IST NICHT WAHR');
  // testen ob eine Konstante (0), welche False is, gleich True ist
  if Boolean(0) = True then ShowMessage('Boolean(0) = True IST WAHR') else ShowMessage('Boolean(0) = True IST NICHT WAHR');
  // testen ob eine Konstante (0), welche False is, auch gleich False ist
  if Boolean(0) = False then ShowMessage('Boolean(0) = False IST WAHR') else ShowMessage('Boolean(0) = False IST NICHT WAHR');
Das sollte alles erklären.
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat