Forum: Object-Pascal / Delphi-Language
Delphi
by Sherlock,
31. Okt 2008
Bitte:
for i := 1 to maxint do
memo1.Lines.Add(' '+inttostr(i)+': Result := -'+IntToStr(i));
Sherlock
Forum: Object-Pascal / Delphi-Language
Delphi
by Sherlock,
31. Okt 2008
Ich poste hier mal den Auszug aus meiner Routine, die ich im täglichen Einsatz habe. Ich hab mich bisher etwas dagegen gesträubt weil wir das ja in der Firma nutzen und so...ist ja immerhin Hightech, und ich bin mir sicher, wir haben ein Softwarepatent darauf...aber was solls. Ist ja für Larsi:
function Negativize(aNumber:integer):integer;
begin
case ANumber of
1: Result := -1;
2:...
Forum: Object-Pascal / Delphi-Language
Delphi
by Sherlock,
31. Okt 2008
Aber dann liefert es ja - bis auf eine Ausnahme - kein korrektes Ergebnis.
Sherlock
Forum: Object-Pascal / Delphi-Language
Delphi
by Sherlock,
31. Okt 2008
Ich weise auf die Anekdote die Niels Bohr zugeschrieben wird hin:
http://de.wikipedia.org/wiki/Barometer-Frage
Und nun möge jeder, der diese phantastische Kreativität eindämmen will einen anderen Thread suchen, um dort miesepetrig zu sein. ;)
Sherlock
Forum: Object-Pascal / Delphi-Language
Delphi
by Sherlock,
31. Okt 2008
Die Kategorie könnte auch "Bewusstseinserweiterndes" heissen.
Sherlock