Zitat von
MaBuSE:
Apropos Frauen
Delphi-Quellcode:
begin
with TFrau.Create(
nil)
do
try
Show;
except
// Es bringt eh nichts auf Exceptions bei Frauen zu reagieren ;-)
on E:
Exception do E.ignore;
end;
end;
*grins*
Delphi-Quellcode:
procedure TFrau.Freizeit(
var Stunden: Integer);
begin
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;
// Netter Versuch ;)
Frau.Freizeit(Integer(
nil^));
Genug rumgealbert... war ein schöner Abend, den wir gerne wiederholen können
