Hi,

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

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

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

Grüße

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.

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

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

zusammenfalten · markieren

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;

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

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

ne doch nicht..

zusammenfalten · markieren

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

Für Faule:

zusammenfalten · markieren

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;

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

markieren

Delphi-Quellcode:

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