Problem bei Umlauterkennung

[DerTester]

So, erstmal sorry falls ich das ins falsche Unterforum gepackt habe.
Ich muss schulbedingt ein Programm erstellen, das Umlaute einer vom Benutzer eingegebenen Zeichenkette erkennt und sie ersetzt mit z.B. "ss" für "ß" oder "ae" für "ä".
Mit Delphi kenne ich mich auch noch nicht soooo gut aus, deshalb verzeiht mir bitte, wenn das Teil voller Fehler ist.

Hier ein Teil des Codes:

Code:

readln(eingabe);
i:=1;
dummy:='';
while i<=Length(eingabe) do begin
  if eingabe[i] = 'ß' then
    dummy:=dummy+'ss'

'ß' erkennt Delphi aber leider nicht, was kann ich statt 'ß' benutzen?
Danke im Voraus

[DeddyH]

Hast Du es einmal mit StringReplace versucht? Ich mag kaum glauben, dass Delphi kein 'ß' erkennen soll, es sei denn, Du verwendest einen merkwürdigen Zeichensatz.

P.S.: Willkommen in der DP

[edit] Ach, Moment, ist das ein Konsolenprogramm? In dem Fall müsstest Du wohl auf die Win32-API zurückgreifen und OEMToCharBuff bzw. CharToOEMBuff einsetzen. Allerdings erscheint mir das für eine Schulaufgabe etwas happig. [/edit]

[Der schöne Günther]

readln? Gehen Umlaufe über die Windows-Konsole überhaupt?

[DeddyH]

Japp, siehe mein Edit.

[DerTester]

Es ist eine Konsolenanwendung (wir benutzen nur Konsolenanwendungen). Mein Lehrer hat uns 3 Aufgaben gegeben, diese hier ist laut ihm auf Grundkursniveau (11. Klasse), und solche Dinge wie OEMToCharBuf haben wir noch gar nicht durchgenommen, was bedeutet, dass wir solche Befehle noch gar nicht nutzen sollen (die Hausaufgaben beziehen sich nur auf das, was im Unterricht durchgenommen wurde), was widerrum zu der Erkenntnis führt, dass es noch einen anderen Weg geben muss (oder mein Lehrer hat einen Fehler gemacht).
Ich hab schon stundenlang das Internet durchforstet aber nichts gefunden, fällt Euch noch was ein?

[DeddyH]

Ein 'Ä' in der Konsole ist nun einmal kein 'Ä' an der GUI, wenn es keine Konvertierfunktion gibt, die mir bislang verborgen geblieben ist, dann dürfte es ohne die genannten Funktionen schwierig werden.

[edit] Nur mal zum Testen: funktioniert es hiermit?

Delphi-Quellcode:

uses
  ..., Windows;

function DosToAnsi(const InStr: AnsiString): AnsiString;
begin
  SetLength(Result, Length(InStr));
  OemToCharBuffA(PAnsiChar(InStr), PAnsiChar(Result), Length(InStr));
end;

function AnsiToDos(const InStr: AnsiString): AnsiString;
begin
  SetLength(Result, Length(InStr));
  CharToOemBuffA(PAnsiChar(InStr), PAnsiChar(Result), Length(InStr));
end;

Die Eingabe wandelst Du erst mit DosToAnsi um, arbeitest damit, und vor der Ausgabe wandelst Du mit AnsiToDos wieder zurück. [/edit]

[nahpets]

Zitat von Der schöne Günther:

readln? Gehen Umlaufe über die Windows-Konsole überhaupt?

Ja, aber dort hat man die OEM-Zeichensatz und Delphi nutzt Ansi.

Eine mögliche Lösung für das ß könnte so aussehen:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

var
  eingabe : String;
  dummy   : String;
  i       : Integer;
begin
  ReadLn(Eingabe);
  dummy := '';
  for i := 1 to Length(Eingabe) do begin
    case ord(Eingabe[i]) of
      225 : dummy := dummy + 'ss';
    else
      dummy := dummy + Eingabe[i];
    end;
    WriteLn(Eingabe[i],' = ',ord(Eingabe[i]));
  end;
  WriteLn(dummy);
  ReadLn;
end.

Die anderen Umlaute bitte selbst herausfinden (Sollte aber mit den paar Zeilen hier kein Problem sein.)

[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.