Forum: Programmieren allgemein
by alzaimar,
19. Dez 2005
Wieso? Irgendwie muss man ja falsche Parameter ('Design by contract') ablehnen.
Variante A: Die Routinen liefern True, wenn alles im Lot sind und False sonst.
If EineProcedure Then
If DieNaechsteProcedure Then
If NochEineProcedure Then
If EndlichDieLetzteProcedure Then
Output ('Alles ok')
else
Output ('Hupsa')
else
Forum: Programmieren allgemein
by alzaimar,
19. Dez 2005
Ich will Dir ja nicht widersprechen, aber so gewaltig sind die Unterschiede nicht:
Var
c,i : Cardinal;
r : Real;
begin
c := getTickCount;
r := 0;
For i:=1 to 20000000 do r:=r+r/i;
memo.Lines.Add(intToStr (GetTickcount - c));