Objekte Bewegen

[Finki]

Das Problem ist ü ö ä werden als zwei Zeichen gezählt

[DeddyH]

Das glaub ich nicht. Es sind zwar ggf. 2 Byte, aber immer noch ein Zeichen.

[Finki]

hier sind bilder

[DeddyH]

Und womit errechnest Du die Zeichenanzahl?

[Finki]

StatusBar.Panels.Items[1].Text := Format('%d Zeichen', [Length(Memo1.Text)-(2*Memo1.Lines.Count)+1]);

[DeddyH]

So, einfaches Beispielprojekt unter Delphi XE: ein Memo und eine Statusbar, im OnChange des Memos folgender Code
StatusBar1.SimpleText := Format('%d Zeichen', [Length(Memo1.Text)]); Eingabe:

Zitat:

Dies ist ein Testäöü

Anzeige in der Statusbar:

Zitat:

20 Zeichen

Das Einzige, was hier 2 Zeichen produziert, ist der Zeilenumbruch, da dieser unter Windows ja tatsächlich aus 2 Zeichen (#13#10) besteht.

[DeddyH]

So, unter Lazarus auf Linux Mint ausprobiert: Umlaute werden tatsächlich als 2 Zeichen gezählt, siehe auch dieser Thread. Ich hatte jetzt keine Lust, den komplett zu lesen, aber wenn dort keine Lösung steht, kann ich Dir auch nicht helfen, das ist wohl in Lazarus so gewollt.

[Finki]

Gut vielen dank für deine Mühe

[JamesTKirk]

Zitat von Finki:

Das Problem ist ü ö ä werden als zwei Zeichen gezählt

Lazarus verwendet UTF-8 als Zeichenkodierung und nicht ASCII oder eine der Ansi Kodierungen. Bei UTF-8 haben Sonderzeichen unterschiedliche Längen (ich glaub bis zu 6 Byte maximal). Length() unterstützt dies jedoch nicht (es gibt dir hier nur die Anzahl der Bytes zurück). Lazarus bietet allerdings eine UTF8Length() Funktion in der Unit lazutf8 . Für weitere Informationen lies dir bitte diesen Artikel im Lazarus Wiki durch.

Gruß,
Sven