Umlaute in einem String umwandeln

[Chris603]

Hallo!
Bevor Ich anfange, ja das Problem wurde bereits mehrfach auf Delphi-Praxis.de behandelt, dummerweise hat mir keine einzige dieser Hilfen geholfen....

Also, was will Ich machen: Ich will den Benutzer einen String eingeben lassen(Konsole) und diesen dann ohne Umlaute ausgeben lassen. Das ist gerade eine Hausaufgabe in unserem Info-VK. Hier auf DP.de hab Ich auch die Funktion StringReplace gefunden, nur denke Ich, das wir die Funktion nicht benutzen sollten, da wir grad Schleifen durch genommen haben und es somit wahrscheinlich mit einer for-Schleife lösen sollten, außerdem wurmt mich das Problem jetzt so, das Ich es mit Schleife lösen will :D

Also Ich hab es am Anfang einfach mit einer for-Schleife probiert, die von 1 bis String.Lenght zählt und dann die einzelnen Zeichen per if auf Umlaute überprüft. Da das nicht funktioniert hat, hab Ich gegoogelt und hier auf DP.de ebenfalls diese Lösung gefunden, wenn auch per case-Überprüfung. Dummerweise funktioniert die Funktion bei mir nicht! Hier erstmal der Aufruf der Funktion und die Funktion selber:

Delphi-Quellcode:

// Main -> Aufgabe: Abfragen des Strings, umwandeln und Ausgeben.
procedure Main;
begin
  Writeln; Writeln; Writeln;
  Writeln('Bitte geben Sie nun den zu konvertierenden String an: ');
  Readln(strString);

  strString := ErsetzeUmlaute(strString);
  Writeln(strString);

  Writeln; Writeln; Writeln;
  Write('<ENTER> um neu zu starten....');
  Readln;

  ClrScr;
  asAppState := asRestart;
end;

Delphi-Quellcode:

function ErsetzeUmlaute(s: string): string;
var
  i: integer;
begin
  for i := 1 to length(s) do
  begin
    Case s[i] of
    'ä': result := result+'ae';
    'ü': result := result+'ue';
    'ö': result := result+'oe';
    'ß': result := result+'ss';
    else result := result+s[i];
    end;
  end;
end;

Also was macht die Funktion bei mir: gar nichts ^^ Sie gibt den String einfach so wie er ist zurück!

Mir ist aufgefallen, das wenn Ich das else ausklammere, gar nichts mit dem String gemacht wird, also scheint die case Anweisung irgendwie die Umlaute im String nicht zu erkennen....
Meine Vermutung ist, das es vlt. am Zeichensatz liegt? Leider hab Ich keinen Plan, was für ein Zeichsensatz(ANSI, UTF) da grad verwendet wird, oder welchen man verwenden sollte, da Ich eigentlich nie mit Delphi oder Strings(zumindest soche erweiterten String-Operationen) arbeite.

Ich hoffe, Ihr könnt mir helfen
LG
Chris

[Hansa]

Na gut, jetzt kann ich sie dir geben. :P

Delphi-Quellcode:

  for i := 1 to Length(s) do
  begin
    case s[i] of
      #142: Result := Result + #196; {Ž}
      #153: Result := Result + #214; {™}
      #154: Result := Result + #220; {š}
      #132: Result := Result + #228; {„}
      #148: Result := Result + #246; {”}
      #129: Result := Result + #252; {�}
      #225: Result := Result + #223; {á}
    else
      Result := Result + s[i];
    end;
  end;

Hat der Lehrer nichts gesagt in Richtung ASCII/ANSI ? :shock:

[baumina]

Wieviele Schüler stellen nun jetzt noch ein und die selbe Frage hier :roll:

http://www.delphipraxis.net/175335-p...ml#post1218508

[Hansa]

Zitat:

Zitat von baumina (Beitrag 1218511)

Wieviele Schüler stellen nun jetzt noch ein und die selbe Frage hier :roll:

Das würde ich mal den Lehrer fragen. Es ist völlig unnötig in das wirklich einfache CASE ein Umlaute-Problem einzubauen. Warum wird nicht gefordert z.B. bei Zahleneingabe irgendwas per Function/Case zu machen ? Nicht mal chinesische Schüler hätten damit ein unnötiges Problem. 8-)

[Chris603]

@Hansa: Daaaanke! :-D Jetzt klappt's wenn auch mit kleiner Änderung:

Delphi-Quellcode:

function Replace(s: AnsiString): AnsiString;
var
  i: integer;
begin
  for i := 1 to Length(s) do
  begin
    case s[i] of
      #142: Result := Result + 'Ae'; // Ä
      #153: Result := Result + 'Oe'; // Ö
      #154: Result := Result + 'Ue'; // Ü
      #132: Result := Result + 'ae'; // ä
      #148: Result := Result + 'oe'; // ö
      #129: Result := Result + 'ue'; // ü
      #225: Result := Result + 'ss'; // ß
    else
      Result := Result + s[i];
    end;
  end;
end;

Davor mit den Codes kamen nur recht seltsame Zeichen raus^^

Und nein, unser Lehrer hat uns überhaupt nichts darüber gesagt, er hat uns nur die Email geschrieben:

Delphi-Quellcode:

2. Erstellen Sie ein Programm, das die deutschen Umlaute ä, ö, ü, ß in ae, oe, ue und ss in einer vom Benutzer eingegebenen Zeichenkette ersetzt und das Ergebnis wieder ausgibt.

Naja, jetzt hab Ich's ja, nochmal Vielen Dank :D

@baumina: Sorry, das hätte mir auch weitergeholfen! Dummerweise hab Ich im Forum nicht nach Umlauterkennung, sondern nach Umlaute-Umwandeln gesucht :/ Ich hab das wirklich net gesehen, sry!

LG
Chris

[baumina]

Macht nichts, es freut mich zu sehen, dass die heutigen Lehrpläne noch auf soliden (evtl. nicht mehr ganz zeitgemäßen) Konsolenanwendungen basieren. Wer weiß, vielleicht kommen wir nach den gekachelten Apps ja wieder mal dort hin.

Das mit den verschiedenen Zeichensätzen war natürlich ne echte Gemeinheit, die dem Lehrbuch (aus welchem Jahr stammt das eigentlich?) sicherlich entgangen ist.

[Chris603]

Es kam nicht aus einem Lehrbuch, das war einfach eine EMail, die uns unser Lehrer zugeschickt hat zusammen mit anderen Aufgaben zu Strings :/ Ich bin auch echt gespannt, ob die anderen das lösen können^^

[baumina]

Nach meiner Erfahrung stellen Lehrer ihre Aufgaben auch nur aus einem Lehrbuch heraus.

[Hansa]

Der Spickzettel ist ja jetzt im Internet gelandet. Bei uns wurde der noch auf dem Schulhof oder unter der Bank weitergereicht. :lol: Heutiger Nachteil davon : "Feind" hört mit. 8-)

[jaenicke]

Das passiert halt, wenn man die Schüler nicht mit (für Schüler wohl eher interessanten) Fenstern arbeiten lässt, sondern auf Kommandozeilenebene arbeitet...
Bei uns wurde graphisch gearbeitet und das kam auch gut bei den Schülern an und funktionierte auch sehr gut. Ich glaube bei Kommandozeilen hätte die Hälfte Informatik abgewählt...