ListBox

[shader]

Hab grad sowass schönes gefunden wie ODD();
Nur wenn ich es in meiner Funktion einbaue kommt immer
dieser Fehler;

Zitat:

[Fehler] Unit1.pas(77): Anweisung erforderlich, aber Ausdruck vom Typ 'Boolean' gefunden

Delphi-Quellcode:

function ungerade(zahl : integer) :boolean;
begin
  ODD(zahl);
end;

[jfheins]

Zitat:

Zitat von shader

(zahl mod 2) bei gerader Zahl = kein Kommawert
(zahl mod 2) bei ungerader Zahl = ein Kommawert

Das ist nicht ganz Richtig ;)

Was du da gemacht hast, ist die Division ausrechnen, nicht den Rest ;)

Ein Beispiel: 19 / 7 = 2 Rest 5
Also: 19 div 7 = 2
Aber: 19 mod 7 = 5

Und jetzt überleg mal, was der Rest einer Division durch 2 sein kann ;)

[Nuclear-Ping]

Delphi-Quellcode:

function ungerade(zahl : integer) :boolean;
begin
  Result := ODD(zahl);
end;

http://www.delphi-treff.de/tutorials...ls/katalog/31/

[DeddyH]

Zitat:

Zitat von shader

Delphi-Quellcode:

function ungerade(zahl : integer) :boolean;
begin
  ODD(zahl);
end;

Delphi-Quellcode:

function ungerade(zahl : integer) :boolean;
begin
  Result := ODD(zahl);
end;

Oder so:

Delphi-Quellcode:

function ungerade(zahl : integer) :boolean;
begin
  Result := (zahl and 1) = 1;
end;

[Nuclear-Ping]

[OT]
Ja Deddy ... man kann nen Anfänger auch verwirren. :mrgreen:

Zitat:

1 + 1 = 2

Oder so:

Zitat:

http://108bits.de/images/fun/1_1_2.jpg

[/OT]