hm ja stimmt, wenn ich das so hab (also ohne #):
Delphi-Quellcode:
procedure TForm1.Image2Click(Sender: TObject);
var
s: string;
begin
if Edit1.Text <> '' then
begin
s := Edit1.Text;
Try
if s[1] <> '#' then
label2.Caption := chr(StrToInt(s))
else
begin
Delete(s, 1, 1);
label2.Caption := chr(StrToInt(s));
end;
except
on EConvertError do
begin
label2.Caption := 'Falsche Eingabe!';
end;
end;
end
else
Label2.Caption := 'Gib halt was ein!';
end;
zeigt mir das programm, wenn ich 958 eingebe als ergebnis "¾" an.
Obwohl 958 = "¥" ist
hmm