Problem bei Umlauterkennung

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

[Hansa]

Wahrscheinlich soll er die Funktion selber schreiben. Stichworte hierzu wären deshalb FUNCTION und vor allem CASE. Guck da mal nach. Fertige Funktion poste ich aber jetzt nicht.

[DeddyH]

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

[joachimd]

früher, als es noch wenige fertige Funktionen gab, hat man erst einmal ein Programm geschrieben, welches den Zeichencode für einen Tastendruck ausgab. Da gab man dann alle komische Zeichen ein, schrieb den Code dazu auf und hat dann die Konvertierfunktion selbst zusamengebaut.

[Hansa]

Zitat von DeddyH:

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.

@Joachim : so isset.

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