Cardinal anstatt Integer?

[omata]

Wenn man ein eigenes Delay realisieren möchte geht das zum Beispiel so...

Delphi-Quellcode:

procedure Delay(ATime:Integer);
var Start : integer;
begin
  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until abs(GetTickCount) - Start > ATime;
end;

Aber warum eine negative Pause zulassen?

Also besser...

Delphi-Quellcode:

procedure Delay(ATime:Cardinal);
var Start : Cardinal;
begin
  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - Start > ATime;
end;

Gruss
Thorsten

[grenzgaenger]

hallo Shaman,

wieso willst du cardinal verwenden?

wenn ich das beispiel von DelphiFreund etwas erweitere kommt folgendes heraus:

Delphi-Quellcode:

var
  a: cardinal;
  b, c: integer;
begin
  a:= 19; c := -3;
  b := a - c;
  writeln(b);
end.

22

da er den kleineren Wert (hier integer) in den grösseren wert konvertiert, verliert er das vorzeichen. daher spukt der compiler eine fehlermeldung aus. tja, in diesem falle wohl nicht ganz zu unrecht...

[3_of_8]

Das stimmt nicht ganz. Integer und Cardinal sind gleich groß (32 Bit). Nur der Bereich ist verschoben:

Integer: -2^31 bis +2^31-1
Cardinal: 0 bis 2^32-1

Das heißt praktisch: b bleibt ein Integer. Und wenn a=4000000000 und b=42 sind, dann dürfte es krachen.

[Dax]

Zitat:

Zitat von 3_of_8

Integer: -2^16 bis +2^16-1
Cardinal: 0 bis 2^32-1

Good lot :shock: Junge, schau mal in die Hilfe!

Cardinal = 0..2^32-1
Integer = -2^31..2^31-1

Ein Integer ist nichts weiter als ein Cardinal, dessen Bit 31 als Vorzeichenbit "missbraucht" wird.

[3_of_8]

Argh...

Sorry... Aber an der Grundaussage meines Beitrages ändert sich nichts.

[Cöster]

Zitat:

Zitat von 3_of_8

Bei GetTickCount ist es besser, gleich mit Cardinals zu arbeiten.

Nicht immer möglich, wenn man z.B.

Delphi-Quellcode:

GetTickCount - TrackBar1.Position

rechnet, weil TrackBar1.Position Integer ist. Bei

Delphi-Quellcode:

GetTickCount - Abs(TrackBar1.Position)

wird weiterhin die Warnung angezeigt.
Wenn ich

Delphi-Quellcode:

Abs(GetTickCount) - TrackBar1.Position

rechne, tritt der Fehler nicht auf.
Ich versteh irgendwie nicht, warum. :gruebel:
GetTickCount müsste doch vom Typ Cardinal sein. Dann ist Abs(GetTickCount) doch eigentlich das Gleiche wie GetTickCount, weil Abs ja nur das Vorzeichen weglässt (was GetTickCount doch sowieso nicht hat).
In der Delphi-Hilfe zu Abs steht außerdem, dass die Zahl in den Klammern Integer oder Real sein muss. Deswegen wunder ich mich, warum ich keinen Inkompatible-Typen-Fehler krieg :gruebel:

[3_of_8]

Aber Abs gibt nen Integer zurück...