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....