title image


Smiley Re: Umlaute ändern
Ich mache es so



function umlaute(s : widestring): widestring;

begin

s := StringReplace(s, 'ä', 'ae', [rfReplaceAll]);

s := StringReplace(s, 'Ä', 'AE', [rfReplaceAll]);

s := StringReplace(s, 'ö', 'oe', [rfReplaceAll]);

s := StringReplace(s, 'Ö', 'OE', [rfReplaceAll]);

s := StringReplace(s, 'ü', 'ue', [rfReplaceAll]);

s := StringReplace(s, 'Ü', 'UE', [rfReplaceAll]);

Result := s;

end;





procedure TForm1.Edit1Change(Sender: TObject);

begin

Edit1.Text := Umlaute(Edit1.Text);

SendMessage(Edit1.Handle,WM_KEYDOWN,VK_END,0);

end;



Hier gehts im neuen Fenster zu meiner Homepage

ICQ:89594453
MSN:ensacom@hotmail.com
Skypeensacom


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: