HexToInt

[mkinzler]

In diesem Fall wohl 'F'

Sonst Wert := Ord('ÿ');

[Carsten1234]

Alternativ:

Delphi-Quellcode:

var b1: byte;
    b2: byte;
    b3: byte;
    b4: byte;
    Value: integer;
begin
  Value:= b1* 16777216 + b2 * 65536 + b3 * 256 + b4;
end;

Dann kommt für
FF FF FF E2 auch -30 raus.

[Draos]

Das er FF als -1 erkennt brauchste die Anzahl der möglichen Hexadezimalstellen.

Delphi-Quellcode:

 function pow(x,n:Integer):Integer;
 begin
  if n>1 then
   result:=x*pow(x,n-1)
  else result:=x;
 end;

var x    :Integer;
    s    :String;
begin
 s:='FF';

 x:=HexToInt(s);

 if x>pow(16,Length(s)-1) then
  x:=x-pow(16,Length(s)); 

end;
 //x ist der Integer-Wert

Nachteil: 15 ist nicht F sonder 0F

[himitsu]

ist das FF FF FF E2 jetzt die Hexdarstelung des Strings, oder sieht der String genau so aus?

Delphi-Quellcode:

S := 'FF FF FF E2';
i := StrToInt(StringReplace('$' + S, ' ', '', [rfReplaceAll]));


S := #$FF#$FF#$FF#$E2;
i := PLongInt(@S[1])^;

[Draos]

String mit leezeichen?
wie wärs damit?

Delphi-Quellcode:

for i:=1 to Length(S) do
 if S[i]=' ' then
  s[i]:='';

[himitsu]

Zitat von Draos:

String mit leezeichen?
wie wärs damit?

geht nicht, erstmal kann ein Char nicht "leer" sein ... aber Delete würde aushelfen
und dann würde bei dieser Zählrichtung schnell der Index aus dem Bereich rauswandern, da der String schließlich schrumpfen würde

[Draos]

Delphi-Quellcode:

var s     :String;
    i     :Integer;
begin
 s:=edit1.Text;
 repeat
  Delete(s,pos(' ',s),1);
 until pos(' ',s)=0;
 edit2.text:=s;

also sowas eher? Danke so lernt man

[himitsu]

jupp, würde gehn

oder einfach die Zählrichtung umkehren

Delphi-Quellcode:

for i := Length(S) downto 1 do
  if S[i] = ' ' then
    Delete(S, i, 1);

das Problem bei for i := 1 to Length(S) do ist einfach, daß Length nur bei Schleifenbeginn einmal ausgewertet, das Ergebnis gespeichert und danach nur noch die "Kopie" verwendet wird.
außerdem würden bei 2 folgenden ' ' immer das Zweite übersprungen, da sich ja im nächsten Durchgang der Index erhöht und das 2. ' ' eines vorrutscht.

und im Notfall würde auch StringReplace aushelfen

[Carsten1234]

Hallo zusammen,

zur Info: die von mir genannten Werte kommt als HEX im Format HiWord/LoWord rein. Es ist also kein String in dem Sinne, wo etwaige Leerzeichen gelöscht werden müssten. War jetzt vielleicht von mir etwas blöd ausgedrückt - sorry.

Gruß, Carsten

[Carsten1234]

Hallo zusammen,

zur Info: Die von mir genannten Werte kommen als HEX im Format HiWord/LoWord rein. Es müssen also keine etwaige Leerzeichen gelöscht werden. Im Trace-Log der von mir verwendeten Komponenten ApdCOMPort (s. AsyncPro) sieht das so aus:
[FF][FF][FF][E2]

Da jedoch die Komponente kein GetByte/GetWord kennt, sondern nur ein GetChar/GetBlock, werden die (Einzel-)Werte vor mir via GetChar abgeholt, um sie dann via Ord in Zahlen zu wandeln bzw. daraus letztendlich wieder den ursprünglichen Wert -30 zu erhalten.
Sollte ich mich da etwas unklar ausgedrückt haben, so tut es mir leid.

Gruß, Carsten