Delphi-Quellcode:
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
ListBox1: TListBox;
ListBox2: TListBox;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
function Coding(x: string): string;
function Decoding(x: string): string;
public
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if edit1.text='ß' then showmessage('');
end;
end.
Ich hab Deinen Source mal auf das absolut notwendige zusammen gestrichen.
Das kann nicht kompilieren, geschweige denn ein "ß" in " " übersetzen.
Gruß
K-H