Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Löschen ungerade Zahlen in einem Feld

  Alt 21. Okt 2007, 16:58
Hallo,

so kannst du überprüfen, ob eine Zahl ungerade oder gerade ist:

Delphi-Quellcode:
if zahl mod 2 = 0 then
  // gerade
else
  // ungerade
bzw. direkt

Delphi-Quellcode:
if zahl mod 2 <> 0 then
  // ungerade
PS: Delphi-Referenz durchsuchenmod liefert dir den Rest einer Ganzzahldivision.

Edit: Es gibt sogar die Funktion Delphi-Referenz durchsuchenodd, die genau das machst, was du gerne hättest:

Online-Hilfe:
Gibt true zurück, wenn das Argument eine ungerade Zahl ist.

Unit
System

Syntax

[Delphi] function Odd(X: Integer): Boolean;
  Mit Zitat antworten Zitat