String -> Cardinal

[Kedariodakon]

Ich hab nen String mit einem Parameter drinn und möchte diesen zu einer Cardinal umwandeln...

Nutzen tu ich:

Delphi-Quellcode:

Cardinal := StrToInt64Def( String, 0 );

Problem ist, wenn im String eine negative Zahl ist, ist die Cardinal dann 4294967295 + den negativen Wert...
Aber wenn die Zahl Negativ ist, soll die Cardinal auch 0 sein, so wie wenn nur Müll im String steht :roll:

Hat dazu wer eine einfache Lösung???

Bye

[Dax]

Nimm StrToIntDef. Deine Methode ist für Int64s gedacht.

[Kedariodakon]

Aber eine Cardinal kann ja auch größer als eine Integer sein :zwinker:

Und in dem Fall soll brauch ich auch eine, welche größer ist als Integer, aber die kleiner als Int64 ist!
Das ganze soll auch so schnell wie möglich ablaufen und der Prozessoraufwand soll so klein wie möglich gehalten werden!

Zur Zeit sieht das so aus:

Delphi-Quellcode:

If StrToInt64Def( String, 0 ) <= 0 Then Cardinal := 0
                                   Else Cardinal := StrToInt64Def( String, 0 );

aber vielleicht gibt es ja noch was viel besseres und schnelleres :gruebel:

Bye

[jim_raynor]

Bei Cardinal ist StrToInt64Def schon besser bei grossen Zahlen. Am besten du prüfst den String vor mit Pos, ob ein Minuszeichen enthalten ist. Oder machst es wirklich erst zu einem Int64 und prüfst dann ob es kleiner als 0 ist.

[Kedariodakon]

Und was is schneller? Das Überprüfen ob ein "-" da ist, oder ob die Int64 kleiner 0 ist?

Bye

[Dax]

Ja, geht schneller:

Delphi-Quellcode:

var i: Int64;
begin
  i := StrToInt64Def(String, 0);
  if i <= then then 
    Cardinal := 0
  else
    Cardinal := i;
end;

Alles, was größer als $FFFFFFFF ist, wird jedoch an der 9. Hexadezimalstelle umgebrochen, das heisst, 4294967297 als Cardinal würde 1 ergeben.

[jim_raynor]

Das überprüfen auf sollte gegenüber deiner Variante schneller sein, aber deine kannst du ja ganz einfach optimieren.

Delphi-Quellcode:

var
  tmp: Int64;

tmp:=StrToInt64Def( String, 0 );
if tmp <= 0 Then 
  Cardinal := 0
else 
  Cardinal := tmp;

P.S: Da war jemand ein Tick schneller ;)

[Kedariodakon]

Dankeschööööööööööön :angel:

Bye