Wie schnell ist Now?

[dizzy]

Zitat von himitsu:

Delphi-Quellcode:

While True do Begin;
  N := Now;
  If N <> T Then Begin
    T := N;
    Inc(A);
    If A = 1000 Then Break;
  End;
End;

*shiver* so ganz nach Styleguide ist ja ja nicht, woll!? Und eine recht komische Form einer repeat..until-Schleife dazu ; und was macht das ';' hinter 'begin'?? Und Schlüsselwörter mit Großbuchstaben beginnen, Variablen groß, 'Begin' in der Zeile des Schleifen/Bedingungs-Kopfes... ich glaube, du hast es geschafft in diesen paar Zeilen so gut wie möglich dem Styleguide aus dem Weg zu gehen

Delphi-Quellcode:

repeat
  n := now;
  if t <> n then
  begin
    t := n;
    inc(a);
  end;
until a = 1000;

fände ich da schöner 8)


Das, und auch nur aus Gründen der Ästhetik, nur am Rande! nicht bös gemeint!

gruss,
dizzy


\\edit: Und dann noch sowas:
  Beep; Sleep(250); Beep; Sleep(250); Beep; *kopfschüttel*