Programmiercode verkürzen!

[himitsu]

Zitat:

Delphi-Quellcode:

function TForm1.ZufallszahlErstellen(): Integer;
begin
  Result := Trunc(Random(52) + 1);
end;

Random = Float
Random(x) = Integer

also Random liefert schon einen Integer
(da muß der Integer nicht erst nach Float konvertiert werden und dann zurück ... Trunc ist ja nicht für Integer da und verlangt einen Float ... ergibt also erstmal eine Implizite Typumwandlung )

Delphi-Quellcode:

function TForm1.ZufallszahlErstellen(): Integer;
begin
  Result := Random(52) + 1;
end;

[edit] man sollte nix nebenbei machen -.-°