Stringbearbeitung - UTF8-Zeichensatz

[Konstantin H.]

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