Hex in String umwandeln

[Neutral General]

Hi,

Wie kann man einen Hex String also z.B 35 D1 6F ... in einen String umwandeln ?
Ich habe irgendwie nichts dazu gefunden

[Lemmy1]

Benutz einfach StrToInt, häng aber ein '$' davor.

i := StrIntDef('$' + str); Wohl aber sinnvoll, die Leerzeichen vorher raus zu nehmen.

Grüße

[faux]

Wie sieht dein Hexwert aus?
Tag := $35D16F; Wenn ja, dann einfach per IntToHex.

Grüße
Faux

NACHTRAG:

Zitat von Lemmy1:

Benutz einfach StrToInt, häng aber ein '$' davor.
i := StrIntDef('$' + str); Wohl aber sinnvoll, die Leerzeichen vorher raus zu nehmen.
Grüße

Ich denke, er wills in die Gegenrichtung.

[Neutral General]

Ich will aus 48 61 6C 6C 6F "Hallo" machen...

[Lemmy1]

Sorry, zu schnell gelesen...wie wärs hiermit...?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  s, s2, Result : string;
begin
  s := '35 D1 6F';
  while s <> '' do
  begin
    if Pos(' ', s) <> 0 then
    begin
      s2 := Copy(s, 1, Pos(' ', s)-1);
      s := Copy(s, Length(s2)+2, MaxInt);
    end
    else
    begin
      s2 := s;
      s := '';
    end;

    Result := Result + Chr(StrToInt('$' + s2));
  end;
  Caption := Result;
end;

[Neutral General]

Nein da kommt was anderes raus -.-
Das funktioniert nicht

[Lemmy1]

Doch das funktioniert, hab das auch mit deinen Hexwerten ausprobiert....musst halt sehen, dass die Konstante hart im Source steht. Mach ne praktische Funktion draus und schon hast Dus

[Neutral General]

ne doch nicht..

Delphi-Quellcode:

function Kill(Text: String): String;
var
  s : string;
begin
  Text := '35 D1 6F';
  while Text <> '' do
  begin
    if Pos(' ', Text) <> 0 then
    begin
      s := Copy(Text, 1, Pos(' ', Text)-1);
      Text := Copy(Text, Length(s)+2, MaxInt);
    end
    else
    begin
      s := Text;
      Text := '';
    end;
    Result := Result + Chr(StrToInt('$' + s));
end;
end;

das geht nicht...

[Lemmy1]

Für Faule:

Delphi-Quellcode:

function HexStrToStr(s: string) : string;
var
  s2 : string;
begin
  Result := '';
  while s <> '' do
  begin
    if Pos(' ', s) <> 0 then
    begin
      s2 := Copy(s, 1, Pos(' ', s)-1);
      s := Copy(s, Length(s2)+2, MaxInt);
    end
    else
    begin
      s2 := s;
      s := '';
    end;

    Result := Result + Chr(StrToInt('$' + s2));
  end;
end;

[Neutral General]

Ich bekomme Fehlermeldungen : Blabla ist kein gültiger Integerwert...
Habe im Memo das stehn:

Delphi-Quellcode:

44 65 69 6E 65 20 51 75 65 6C 6C 65 20 73 74 69 
6E 6B 74 2E 2E 2E