Thema: Delphi Problem mit HexToDez

Einzelnen Beitrag anzeigen

Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#1

Problem mit HexToDez

  Alt 18. Jan 2007, 16:59
Hi,

ich muss Hex nach Dez umwandeln und habe diese Funktion dafür:
Delphi-Quellcode:
function TfrmMain.HexToDez(s : String) : Integer;
var c : Integer;
    l : Integer;
begin
  Val(s, l, c);
  Result := l;
end;
Problem ist nur, dass diese Funktion $A, $B, $C, $D, $E und $F, statt A, B, C, D, E und F erwartet. Wie kann man in einem String vor die Fundstelle von allen im String vorkommenden Buchstaben ein $ setzen, ohne irgendwelche Zeiche zu löschen ? Beispiel:
9C
wird zu:
9$C

Delphi-Quellcode:
for m := 1 to Length(convert) do
begin
  if (convert[i] = 'A') or (convert[i] = 'B') or (convert[i] = 'C') or (convert[i] = 'D') or (convert[i] = 'E') or (convert[i] = 'F') then
 --> was muss hier hin ? <--
end;
Ich steh gerade total auf dem Schlauch....
  Mit Zitat antworten Zitat