Einzelnen Beitrag anzeigen

Benutzerbild von Konstantin H.
Konstantin H.

Registriert seit: 3. Nov 2008
Ort: Schwedt/Oder
27 Beiträge
 
Delphi 2006 Professional
 
#16

AW: Stringbearbeitung - UTF8-Zeichensatz

  Alt 14. Mai 2014, 17:24
@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.
  Mit Zitat antworten Zitat