schnullis Witze ;)

[Euklid]

Code: Alles auswählen

TFrau=class
private
  procedure Execute;
  procedure Try_To_Get_Money(Mann:TMann);
  function Search_For_Man :TMann;
  function Enough_Money :boolean;
public
  constructor create;
  procedure BringDasBier;
end;
 
implementation
 
constructor TFrau.create;
var Mann : TMann;
begin
  Auto.Einparken.Enabled := false;
  Denken.Logik.Enabled := false;
  Standard_Output := 'Need Help';
end;
 
procedure TFrau.execute;
begin
 
  repeat
    inc(Geld.Ausgaben);
  until Geld.Ausgaben > Geld.Einnahmen;
 
  if Geld.Ausgaben > Geld.Einnahmen then
  begin
    Mann := Search_For_Man;
    if Enough_Money(Mann) = true then
    begin
      Partner.Neu := Mann;
      repeat
        BringDasBier;
        Geld.Einnamen := Try_To_Get_Money(Mann);
      until Geld.Einnahmen > Geld.Ausgaben;
    end;
 
    if Geld.Still_Not_Enough = true then
      with chef do sleep;
  end;
end;

[af0815]

Code: Alles auswählen

TFrau=class
private
  procedure Execute;
  procedure Try_To_Get_Money(Mann:TMann);
  function Search_For_Man :TMann;
  function Enough_Money :boolean;
public
  constructor create;
  procedure BringDasBier;
end;

Ich glaube, die Definition ist nicht komplett. Die Try_To_Get hat da doch einen Callback in die noch fehlende 64Man Funktion.

[Euklid]

Der Quelltext steht unter der GPL, kannst ihn ja noch ergänzen *g*

[af0815]

Der Quelltext steht unter der GPL, kannst ihn ja noch ergänzen *g*

Das Objekt hoffenlich unter LGPL

[Christian]

Warum wär doch wünschenswert wenn fraun ma unter gpl stehn ?! Reingucken würd man doch immer gern

[af0815]

Warum wär doch wünschenswert wenn fraun ma unter gpl stehn ?! Reingucken würd man doch immer gern

Wenn man das jetzt geschlechtsneutral formuliert, steht dem doch nicht im Wege.

Und ist das nicht schon gang und gebe ?

[Euklid]

Also ich bin kein großer FKK-Fan, solltest du das meinen

[af0815]

Also ich bin kein großer FKK-Fan, solltest du das meinen

Rein nur um die Definition, die Ausführung ist eine andere Sache (oft des guten Geschmackes)

[Euklid]

Tanja telefoniert mit ihrem Freund:
Tanja: "Wo bleibst du denn schon wieder?"
- "Ich lieg mit ner Angina im Bett..."
- "Dann schmeiß die sofort raus und komm her!"

[af0815]

Haben Sie schon die neueste Mahnung vom Gesundheitsministerium gehoert ?
Auf Spirituosenflaschen soll kuenftig stehen:

Warnung
Alkohol im Blut kann Ihnen Angehoerige des anderen Geschlechts
viel attraktiver erscheinen lassen, als sie wirklich sind.

[Euklid]

Warnung
Alkohol im Blut kann Ihnen Angehoerige des anderen Geschlechts
viel attraktiver erscheinen lassen, als sie wirklich sind.

Ist das ein Witz?

[alexander]

ein echt witziger Aufdruck ... lol

[af0815]

[quote="EuklidIst das ein Witz?[/quote]
So ernst wie alles in diesem Unterforum ....

..... ich sagte Unterforum, nicht Forum.

[schnullerbacke]

schöne Welt der Sprachcomputer!!!

"Na, hattest du auf deiner Griechenlandtour Schwierigkeiten mit deinem neuen Sprachcomputer?"
- "Ich nicht, aber die Griechen..."

[af0815]

schöne Welt der Sprachcomputer!!!

"Na, hattest du auf deiner Griechenlandtour Schwierigkeiten mit deinem neuen Sprachcomputer?"
- "Ich nicht, aber die Griechen..."

Ich brauch da keinen Computer dazu. Wenn ich mit den Griechen griechisch rede, fragen die sich auch öfters, in welcher Sprache ich eigentlich spreche =:-(