Delphi-PRAXiS Stammtisch v3 in Frankfurt (14.12.2005)

[MaBuSE]

Zitat von NicoDE:

Genug rumgealbert... war ein schöner Abend, den wir gerne wiederholen können

Och, den einen noch

Delphi-Quellcode:

function TFrau.Freizeit(var Stunden: Integer):TFrau;
begin
  Result := self;
  if not Assigned(Addr(Stunden)) or (Stunden <= 0) then
    raise Exception.Create('Du hast NIE Zeit für uns!');
  Stunden := 0;  //NOTE: Männer brauchen keine andere Freizeit!
end;
...
try
  // das ist dann die Kurzform:
  TFrau.Create(nil).Freizeit(Integer(nil^)).Free;
except
end;