Fragen zu Memo-Felder

[-lx-]

Hab da snun wie folgt gelöst.

Danke euch

Delphi-Quellcode:

begin
Laenge:= (Length(MText.Text)) ;

For i:= 1 To Laenge Do
 begin
    Buchstabe:= ord(MText.Text[i]) ;
    Case Buchstabe Of
       228 : Satz:= Satz + 'ä' ;
       196 : Satz:= Satz + 'Ä' ;
       246 : Satz:= Satz + 'ö' ;
       214 : Satz:= Satz + 'Ö' ;
       252 : Satz:= Satz + 'ü' ;
       220 : Satz:= Satz + 'Ü' ;
       223 : Satz:= Satz + 'ß' ;
       Else Satz:= Satz + chr(Buchstabe) ;
    end;
 end;
MText.Text:= Satz ;
end;