Thema: Delphi Replace

Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.658 Beiträge
 
Delphi 7 Personal
 
#12

AW: Replace

  Alt 26. Jan 2016, 11:18
Schleife 1 sucht den ersten Buchstaben von alt in text, wenn gefunden vergleicht schleife 2 alle Buchstaben in text ab dieser Stelle mit allen Buchstaben in alt. Stimmt alles überein, haben wir einen Treffer usw.
Wenn ich mich recht erinnere geht es nur darum einzeln Buchstaben durch Buchstabenkombinationen zu ersetzen, da sollte so etwas ausreichend sein
Code:
for i:= 1 to length(zeile) do
  case zeile[i] of
    'ü' : result:=result+'ue';
    'ö' : result:=result+'oe';
    else result:=result+zeile[i];
Wobei die Frage ist ob "case" schon bekannt ist oder ob es mit "if..then..else" gelöst werden muß.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat