Prüfen ob Char Grad-Zeichen

[Nils]

Hi,

ich mach mal wieder gerade ein Windows-Programm für Linux klar. Dabei gibt es ein Problem: Wie prüft man, ob ein Char ein Grad-Zeichen ist ? Mit Delphi kein Problem, es scheint mit Unicode zusammenzuhängen.

Code: Alles auswählen

if s[i] in ['^', '!', '°'] then

Code: Alles auswählen

Error: Ordinal expression expected

Der Fehler tritt beim '°' auf. Schreibe ich einfach

Code: Alles auswählen

if (s[i] in ['^', '!']) or (s[i] = '°') then

wird der Code zwar kompiliert, aber das Grad-Zeichen wird offensichtlich nicht erkannt.

[theo]

Ja, weil das Grad-Zeichen bereits ein String ist in UTF8.

Wie man es löst hängt ein bisschen mit der Aufgabe zusammen.
Du kannst vorher den UTF8-String in WideString umwandeln und damit arbeiten.
Oder auch den UTF8Helper verwenden: http://www.lazarusforum.de/viewtopic.php?p=24321#p24321" onclick="window.open(this.href);return false;

[mschnell]

Bei der aktuellen Unicode-fähigen Lazarus-Version sollte man s und den Char-Type (auch implizit z.B in "case" oder set von Char) nicht verwenden, außer man überlegt sich genau, was bei UTF-8 codierten Strings da passiert. Du musst mit string "copy" und "if string1=string2" Kaskaden statt case darum 'rum programmieren. Da wird Theos Unit helfen.

WideString statt (ANSI- oder UTF8-)String verwenden geht prinzipiell auch (wenn Du einzel-chars und "case" verwenden willst), es ist in Lazarus aber nicht trivial einem Widestring oder WideChar eine Konstante zuzuweisen. MSE-GUI macht es da einfacher. Eine zukünftige FreePascal-Version, wird vermutlich auch ein neues Lazarus ermöglichen, das hier (vermutlich ähnlich wie Delphi 2009) anders (möglicherweise einfacher zu handhaben) arbeitet.

-Michael

[theo]

Du musst mit string "copy" und "if string1=string2" Kaskaden statt case darum 'rum programmieren.

Bin an einer Lösung dran. Dauert aber noch ein bisschen.
Wird im Gebrauch etwa so aussehen:

Code: Alles auswählen

S:='abäcd';
US:=TUTF8Scanner.Create(S);
US.FindChars:='abcäöü';
Repeat
  AChar:=US.Next;
  Case US.FindIndex(AChar) of
    0: writeln('ein a');
    1: writeln('ein b');
  End;    
Until US.Done;

[theo]

So, jetzt is es aber nicht mehr schwierig
Es gibt eine neue Klasse TUTF8Scanner

Beispiel:

Code: Alles auswählen

US:=TUTF8Scanner.Create(S);
US.FindChars:='äö'; //Einfach alle Buchstaben die man suchen will aneinander reihen. Statt ['ä', 'ö']
repeat
 case US.FindIndex(US.Next) of
  {ä} 0: begin US.Replace('A'); end;
  {ö} 1: begin US.Replace('O'); end;
 end;
until US.Done;
Memo1.text:=US.UTF8String;
US.free;

Kommentierte Case Statements kann man sich erzeugen lassen.
Einfach die Findchars setzen und dann

Code: Alles auswählen

Memo1.Text:=US.GenerateCaseStatement(true,'US');

Den Text kann man sich nun in den Code kopieren.

Viel Spass!

[Christian]

Warum reicht ein

Code: Alles auswählen

while tmp <> '' do
  begin
     if copy(tmp,0,1) = '°' then break;
     tmp := copy(tmp,2,length(tmp));
  end;

nicht aus ? Muss man doch keine extra klassen drum rumbasteln.

[theo]

Muss man doch keine extra klassen drum rumbasteln.

Dein Vorschlag wird nicht funzen.
Das Zeichen da ist bereits im zweibytigen UTF-8 Bereich.
Ausserdem ersetzt dein Ansatz das Set of Char nicht gerade handlich.

[Christian]

Copy kopiert byteweise und nicht zeichenweise ?
Dann nehme man einfach UTF8Copy ??

[theo]

Super effizient
Und wie willst du das casen?

Überleg dir die Geschichte mal zu Ende, und dann überlegst du nochmal, was an meiner Lösung nicht gut ist.

Wenn du eine gescheite Antwort hast, nehme ich die gerne entgegen.
Ansonsten gilt dein Motto: W.M.k.A.h.e.m.F.h.

[mschnell]

So, jetzt is es aber nicht mehr schwierig

Klasse !

Ich verstehe eigentlich nicht, warum nicht 'mal jemand den FPC auf "case of string" erweitert hat. Das im Compiler auf if-Kaskaden umzusetzen sollte doch nicht allzu schwierig sein. (Aber: http://z505.com/cgi-bin/qkcont/qkcont.c ... %20Ability" onclick="window.open(this.href);return false; )

Momentan , wo bei Strings vermutlich noch tiefgreifende Änderungen anstehen, sollte man so ein Ansinnen natürlich erstmal zurückstellen !

-Michael

[theo]

Klasse !

Danke

Ich verstehe eigentlich nicht, warum nicht 'mal jemand den FPC auf "case of string" erweitert hat. Das im Compiler auf if-Kaskaden umzusetzen sollte doch nicht allzu schwierig sein. (Aber: http://z505.com/cgi-bin/qkcont/qkcont.c ... %20Ability" onclick="window.open(this.href);return false; )

Der Ansatz da ist ähnlich wie meiner, nur dass ich keine Array of String sondern eine TList halte. Die USC4Char werden einfach auf Pointer gecastet. Sollte ausreichend schnell sein.

Momentan , wo bei Strings vermutlich noch tiefgreifende Änderungen anstehen, sollte man so ein Ansinnen natürlich erstmal zurückstellen !

In vielen Bereichen hat das Set of Char bei Unicode sowieso ausgedient.
Will man z.B. für alle Sprachen Satzzeichen von Buchstaben trennen, kommt man damit nicht mehr weit. Da braucht es Tabellen.
Bis das Ganze in der FCL implementiert ist, kann man dazu meinen UTF8proc Port verwenden.
http://www.lazarusforum.de/viewtopic.php?p=26646#p26646" onclick="window.open(this.href);return false;

[_Bernd]

Gehört jetzt nicht zur eigentlichen Diskussion, aber
müßte es nicht eigentlich W.m.k.A.h.e.m.F.h. heißen?

Gruß, Bernd.

[theo]

müßte es nicht eigentlich W.m.k.A.h.e.m.F.h. heißen?

Kann sein, hab's einfach aus Christians Sig. kopiert.

[Christian]

ich wollte lediglich nicht mit kanonen auf Spatzen schiessen, von casen war nie die rede. 2 If anweisungen tuns auch.

[theo]

ich wollte lediglich nicht mit kanonen auf Spatzen schiessen

Du wolltest einfach rummotzen. So gut kenne ich dich schon.

Übrigens: Deine Signatur hat einen CharCase Fehler, sagt _Bernd.