Umbau Funktionen nach UTF8?

[fliegermichl]

Hallo,

ich hatte in Delphi eine selbstgeschriebene Funktion, die nach Zeichenketten sucht und dabei auch Umlaute berücksichtigt.
Diese geht u.a. Zeichen für Zeichen ab und prüft den Inhalt:

Code: Alles auswählen

               delta := byte(abs(byte(StrPtr^)-byte(PatternPtr^)));
               if (delta=0) or
                  (strPtr^ in ['a'..'z','A'..'Z','ä','Ä','ü','Ü','ö','Ö']) and
                  (patternptr^ in ['a'..'z', 'A'..'Z','ä','Ä','ü','Ü','ö','Ö']) and
                  (delta=byte(abs(byte('A')-byte('a')))) and (bIgnoreCase) then
               begin
                 inc(StrPtr);
                 inc(PatternPtr);
               end
                else
               begin
                 Result:=False;
                 exit;
               end;

Da meckert mir FPC an, daß in dem case nur Ordinaltypen zulässig sind. Leuchtet ja auch ein weil wir hier ja Multibyte Character haben. Wie baut man solche Konstrukte am geschicktesten um? Gibt es sowas wie ein PUTF8Char?

LG Michael

[Socke]

Da meckert mir FPC an, daß in dem case nur Ordinaltypen zulässig sind. Leuchtet ja auch ein weil wir hier ja Multibyte Character haben. Wie baut man solche Konstrukte am geschicktesten um? Gibt es sowas wie ein PUTF8Char?

PChar ist schon richtig; du musst nur das aktuell und ggf. die nächsten drei weiteren Bytes prüfen (UTF-8 hat maximal 4 Bytes pro Zeichen).
Hier könnte dir die Funktion strlcomp bzw. strlicomp weiterhelfen.

[PascalDragon]

Da meckert mir FPC an, daß in dem case nur Ordinaltypen zulässig sind. Leuchtet ja auch ein weil wir hier ja Multibyte Character haben. Wie baut man solche Konstrukte am geschicktesten um? Gibt es sowas wie ein PUTF8Char?

Am besten nutzt du existierende Funktionen wie StrUtils.ContainsText (existierte auch schon in Delphi). Vor allem, wenn du mal mehr als nur Umlaute abdecken möchtest kommst du sonst vom Hundertsten ins Tausendste und baust im Endeffekt das nach was eh schon existiert.

[fliegermichl]

Gibt es da auch eine Funktion die mit Mustern arbeiten kann?
z.B.

Code: Alles auswählen

function FindPattern(str : string; Pattern : string) : boolean;
begin
 ...
end;

if FindPattern (myText, 'ab?123*def') then
 ...
 

[Socke]

Gibt es da auch eine Funktion die mit Mustern arbeiten kann?

FindPart und IsWild könnten dir weiterhelfen.
Wer hat sich eigentlich diesen Namen IsWild ausgedacht!?

[theo]

Oder gleich Regex
https://wiki.freepascal.org/Regexpr

[PascalDragon]

Wer hat sich eigentlich diesen Namen IsWild ausgedacht!?

Es kommt ganz ursprünglich vom Konzept der Platzhalterkarten in Kartenspielen (z.B. Joker). Im Englischen heißen diese Wild cards. Das ist ein gängiger Sammelausdruck für solche Zeichen.

[fliegermichl]

Gibt es da auch eine Funktion die mit Mustern arbeiten kann?

FindPart und IsWild könnten dir weiterhelfen.
Wer hat sich eigentlich diesen Namen IsWild ausgedacht!?

IsWild scheint der gesuchte Kandidat zu sein. Danke sehr.