Registriert seit: 21. Sep 2005
297 Beiträge
Delphi 2006 Professional
|
Re: StrToInt('2684354560') -> '2684354560' ist kein gülti
24. Jan 2007, 07:01
Entschuldigt bitte, aber als ich nach dem Posten des Beitrags gemerkt habe, weshalb diese Umwandlung nicht funktionieren kann war der Beitrag - zumindest für mich - überflüssig. Das meiste steht im Titel. Der Ursprüngliche Beitrag lässt sich nicht mehr editieren. Quellcode gibt es trotzdem noch ein Paar Zeilen (so dürfte es gestern in etwa ausgesehen haben):
Delphi-Quellcode:
function TCANCommunication.CheckIfAnswerAvailable(OutputString: string): Boolean;
var
AnswerCommand, AnswerUserID, AnswerAddress, RequestCommand, RequestUserID,
RequestAddress, ts: String; // Request = Output
i, ti: Integer;
begin
csInputBuffer.Acquire; // to avoid multiple function calls (access violation)
RequestCommand :=
IntToHex(HexStrToInt(Copy(OutputString, 10, 2)) + 1, 2);
RequestUserID := // xxx 00000 xxx xxxxxxxxx xxxxxxxxx and 000 11111 000 000000000 00000 shr 21
IntToStr(StrToInt(x2y(16, 10, Copy(OutputString, 1, 8))) and 65011712 shr 21); // <- 1. Stelle, welche Probleme machen konnte
RequestAddress := // xxx xxxxx xxx xxxxxxxxx 000000000 and 000 00000 000 000000000 111111111
IntToStr(StrToInt(x2y(16, 10, Copy(OutputString, 1, 8))) and 511); // <- hier nochmal
Aber die quinta essentia war schon StrToInt('2684354560')
Grüsse
hirnstroem
inde deus abest
|
|
Zitat
|