Subversion Repositories delphiutils

Rev

Blame | Last modification | View Log | RSS feed

  1. unit UmlautersetzerMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Memo1: TMemo;
  12.     Button1: TButton;
  13.     procedure Button1Click(Sender: TObject);
  14.   private
  15.     { Private-Deklarationen }
  16.   public
  17.     { Public-Deklarationen }
  18.   end;
  19.  
  20. var
  21.   Form1: TForm1;
  22.  
  23. implementation
  24.  
  25. {$R *.dfm}
  26.  
  27. procedure TForm1.Button1Click(Sender: TObject);
  28. begin
  29.   // ToDo: Better use TJvStrToHTML
  30.  
  31.   memo1.Text := StringReplace(memo1.Text, 'ä', 'ä', [rfReplaceAll]);
  32.   memo1.Text := StringReplace(memo1.Text, 'ä', 'ä', [rfReplaceAll]);
  33.   memo1.Text := StringReplace(memo1.Text, 'ö', 'ö', [rfReplaceAll]);
  34.   memo1.Text := StringReplace(memo1.Text, 'ö', 'ö', [rfReplaceAll]);
  35.   memo1.Text := StringReplace(memo1.Text, 'ü', 'ü', [rfReplaceAll]);
  36.   memo1.Text := StringReplace(memo1.Text, 'ü', 'ü', [rfReplaceAll]);
  37.  
  38.   memo1.Text := StringReplace(memo1.Text, 'Ä', 'Ä', [rfReplaceAll]);
  39.   memo1.Text := StringReplace(memo1.Text, 'Ä', 'Ä', [rfReplaceAll]);
  40.   memo1.Text := StringReplace(memo1.Text, 'Ö', 'Ö', [rfReplaceAll]);
  41.   memo1.Text := StringReplace(memo1.Text, 'Ö', 'Ö', [rfReplaceAll]);
  42.   memo1.Text := StringReplace(memo1.Text, 'Ü', 'Ü', [rfReplaceAll]);
  43.   memo1.Text := StringReplace(memo1.Text, 'Ü', 'Ü', [rfReplaceAll]);
  44.  
  45.   memo1.Text := StringReplace(memo1.Text, 'ß', 'ß', [rfReplaceAll]);
  46.   memo1.Text := StringReplace(memo1.Text, 'ß', 'ß', [rfReplaceAll]);
  47.  
  48.   memo1.Text := StringReplace(memo1.Text, 'ó', 'ó', [rfReplaceAll]);
  49.   memo1.Text := StringReplace(memo1.Text, 'ó', 'ó', [rfReplaceAll]);
  50. end;
  51.  
  52. end.
  53.