Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beitrge
 
#4

Re: (Unicode) Sonderzeichen in Grundbuchstaben umwandeln

  Alt 13. Okt 2008, 12:32
Hallo,

da habe ich nur das:
Delphi-Quellcode:
// Wandelt den bergebenen Buchstaben in Kleinbuchstaben um.
// Umlaute werden aufgelst.
// Hierbei wird nur der ASCII-Zeichensatz verwendet.
// Der Rckgabewert ist True, wenn eine Umwandlung erfolgen konnte,
// andernfalls enthlt sResult einen Leerstring.
function getLowerCase(ch : Char; Var sResult : String) : Boolean;
begin
  case ch Of
    'a'..'z'                      : sResult := ch;
    'A'..'Z'                      : sResult := LowerCase(ch);
    '{ A mit Accent grave },
    '{ a mit Accent grave },
    '{ A mit Accent acute },
    '{ a mit Accent acute },
    '{ A mit Circumflex },
    '{ a mit Circumflex },
    '{ A mit Tilde },
    '{ a mit Tilde },
    '{ A mit Ring },
    '{ a mit Ring },
    '{ A mit legiertem E },
    '{ a mit legiertem e },
    '{ A Umlaut },
    '{ a Umlaut }              : sResult := 'a';
    '{ C mit Hkchen },
    '{ c mit Hkchen }         : sResult := 'c';
    '{ E mit Accent grave },
    '{ e mit Accent grave },
    '{ E mit Accent acute },
    '{ e mit Accent acute },
    '{ E mit Circumflex },
    '{ e mit Circumflex },
    '{ E Umlaut },
    '{ e Umlaut }              : sResult := 'e';
    '{ I mit Accent grave },
    '{ i mit Accent grave },
    '{ I mit Accent acute },
    '{ i mit Accent acute },
    '{ I mit Circumflex },
    '{ i mit Circumflex },
    '{ I Umlaut },
    '{ i Umlaut }              : sResult := 'i';
    '{ N mit Tilde },
    '{ n mit Tilde }           : sResult := 'n';
    '{ O mit Accent grave },
    '{ o mit Accent grave },
    '{ O mit Accent acute },
    '{ o mit Accent acute },
    '{ O mit Circumflex },
    '{ o mit Circumflex },
    '{ O mit Schrgstrich },
    '{ o mit Schrgstrich },
    '{ O mit Tilde },
    '{ o mit Tilde },
    '{ O Umlaut },
    '{ o Umlaut }              : sResult := 'o';
    '{ U mit Accent grave },
    '{ u mit Accent grave },
    '{ U mit Accent acute },
    '{ u mit Accent acute },
    '{ U mit Circumflex },
    '{ u mit Circumflex },
    '{ U Umlaut },
    '{ u Umlaut }              : sResult := 'u';
    '{ scharfes S }            : sResult := 'ss';
    '{ y mit Accent acute },
    '{ Y mit Accent acute },
    '{ y Umlaut }              : sResult := 'y';
    '{ thorn (islndisch) },
    '{ THORN (islndisch) },
    '{ Eth (islndisch) },
    '{ eth (islndisch) }      : sResult := AnsiLowerCase(ch);
  Else
    sResult := '';
  end;
  Result := not (sResult = '');
end;
Vielleicht ist's ja schonmal ein Ansatz.
  Mit Zitat antworten Zitat