Welche String-Operationen funktionieren auf nicht-ANSI-Strings denn Überhaupt so wie man es erwartetRSE hat geschrieben: s1 := s1+s2; // Konkatenation mit Operator "+" funktioniert nicht (Operator "+" not overloaded)[/quote)
Das ist peinlich für den Free-Pascal Compiler, genauso wie der ":=" Operator nicht ordentlich (implizit) mit UTF8Decode "overloaded" ist wenn man (wie in den diversen diskutierten Beispielen) WideString := UTF8String; schreibt.
?Peinlich, Peinlich ....theo hat geschrieben: .... dass es [UCS4String] kein eigentlicher String Typ ist sondern ein Dynamisches Array.
Das muss man halt gewissermassen "von Hand" umkopieren.
Könnte man so machen:RSE hat geschrieben: bitte noch jemand den UCS4String konkatenieren. Ich hab auch mit dynamischen Arrays null Erfahrung und hab im Netz nichts zur Konkatenation speziell gefunden. Vielleicht liegt´s auch an meiner Müdigkeit... Ich würd da jetzt mit Zeigern rumhantieren, aber irgendwie hab ich Bauchschmerzen dabei.
Code: Alles auswählen
function UCS4StringConcat(a,b:UCS4String):UCS4String;
type PUCS4String=^UCS4String;
var alen,blen:integer;
Pa, Pb:PUCS4String;
begin
alen:=Length(a);
blen:=Length(b);
SetLength(a,alen+blen);
Pa:=@a[0];
Pb:=@b[0];
Inc(Pa,alen);
Move(Pb^,Pa^,blen*SizeOf(UCS4Char));
Result:=a;
end;Sieht gut aus. Allerdings muss bei der Anwendung berücksichtigt werden, dass das als erster Parameter übergebene Feld verändert wird. Ein Rückgabe-Wert ist deshalb eigentlich nicht notwendig, sondern im Gegenteil irreführend.theo hat geschrieben:Die Lösung ist vielleich ein bisschen "sportlich" aber scheint zu funzen und ist schnell.
Ja klar, das sollte ja auch nur den Weg aufzeigen. Ich sagte ja "sportlich"mschnell hat geschrieben:dass das als erster Parameter übergebene Feld verändert wird.
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var uni:TUTF8Helper;
i:Integer;
begin
uni:=TUTF8Helper.Create('Mal sehen');
uni.UnicodeChars[2]:=$1033F; //Das "a" mit dem "GOTHIC LETTER URUS" als UCS4Char ersetzen
for i:=1 to uni.Count do
case uni.UnicodeChars[i] of
$1033F: uni[i]:='ä'; // UCS4Char "GOTHIC LETTER URUS" mit UTF-8 'ä' ersetzen
end;
Memo1.text:=uni.UTF8Str;
uni.free;
end;Zu viel Understatement ! nenn es doch UnicodeHelper !theo hat geschrieben:Das Ganze heisst jetzt "utf8helper",
Hmm. bleibt die LCL wirklich für immer utf-8 ? Kann ich kaum glauben, da es so blödsinnig ist.theo hat geschrieben:das es doch im wesentlichen darum geht, den Umgang mit der Codierung welche die LCL verwendet zu vereinfachen.
Windows benutzt Widestrings, das heißt natürlich nicht viel, die mnachen da genug anderen Blödsinn.Christian hat geschrieben:warum nutzen dann die meissten Betriebsysteme mittlerweile UTF-8 ?!
Wenn s := copy(s,3) mir nicht die ersten drei Zeichen des Strings liefert, finde ich das echt nicht schön. utf-8 ist ein optimales Speicherformat, weil es sehr kompakt ist, aber zum bearbeiten von Texten finde ich es weniger toll und würde immer WideStrings verwenden.Christian hat geschrieben:Das die Umsetzung z.Z. noch etwas buggy ist hat doch nichts mit UTF-8an sich zu tun.
Ähem, stimmt nicht.Christian hat geschrieben:Windows benutzt UTF-16 und unter WinCE UTF-8.
Ales Widestrings.
Was willst du denn dann damit sagen "Windows benutzt UTF-16 und unter WinCE UTF-8. Alles Widestrings." ?Christian hat geschrieben:Ich rede davon welche Technologie im Betriebsystem eingesetzt wird nicht wie fpc das auf eigene Bezeichner mappt.
WideString ist ein fpc interner Bezeichner.
Verein
Links
Suche