Problem bei Umlauterkennung

[Hansa]

Zitat:

Zitat von DeddyH (Beitrag 1218502)

Und was hat das jetzt damit zu tun, dass Delphi kein "Konsolen-Ä" erkennt?

Das Konsolen - Ä ist in Delphi eben ein Ž. Und das muss man eben "übersetzen". Es gibt ja zumindest mal äöüÄÖÜß, deshalb bietet sich CASE an. FUNCTION versteht sich wohl von alleine. 8-)

@Joachim : so isset. :thumb:

[baumina]

Schon ein Problem, wenn die heutigen Schulbücher noch auf DOS aufsetzen ... eieiei.

Ja, Du wirst wohl auf die ASCII-Codes greifen müssen, wenn Du nach "ASCII codes" googelst, findest die Zahlen der einzelnen Umlaute.

[Thom]

Delphi-Quellcode:

var
  N: Integer;
  S, O: AnsiString; //oder bei älteren, nicht unicodefähigen Delphiversionen, nur "String"
begin
  Readln(S);
  O:='';
  for N:=1 to Length(S) do
    case Ord(S[N]) of
      129: O:=O+'ue';
      132: O:=O+'ae';
      142: O:=O+'Ae';
      148: O:=O+'oe';
      153: O:=O+'Oe';
      154: O:=O+'Ue';
      225: O:=O+'ss';
      else O:=O+S[N]
    end;
  Writeln(O);
  Readln;
end.

[DerTester]

Habe es schon hinbekommen, Thom, trotzdem danke.
Und nochmal Danke für alle Antworten, es klappt jetzt :D

[Thom]

Zitat:

Zitat von DerTester (Beitrag 1218514)

Habe es schon hinbekommen

Das macht natürlich noch mehr Spaß und man lernt am meisten... :thumb: