@himitsu
wenn ich richtig verstehe, macht dein code folgendes:
1. Die Länge des UTF8-Strings wird auf Hälfte des Ursprungstexts festgelegt
2. Mit HexToBin konvertierst du die hex-zahlen, die du durch die beiden pointer festlegst
3. Mit Trim werden der Anfang und das Ende "gesäubert" und mit showmessage ausgegeben
Das ist leider nicht nützlich für mich, da ich die nicht benötigten Hex-zahlen ausfiltern muss. Und die eigentliche Konvertierung habe ich bereits realisiert.
Zerteilung des strings:
Delphi-Quellcode:
stelle := Copy(gesamt_text,73,52);
stelle_HEX := '';
z := length(stelle);
while z > 0 do
begin
stelle_HEX := stelle_HEX + Copy(stelle, 1, 2) + ' ';
z := z - 2;
stelle := Copy(stelle, 3, z);
end;
Konvertierung von Hex zu String
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 suche erstmal nach der Lösung weiter.