Hallo,
ich möchte
Unicode WideStrings in einer InputBox ausgeben:
Delphi-Quellcode:
procedure TForm1.Label2Click(Sender: TObject);
var str: WideString;
begin
str:=WideInputBox(_('Name ändern'), _('Name:'), Label2.Caption);
if Length(str)>35 then
Label2.Caption:=Copy(str, 1, 35)
else
Label2.Caption:=str;
end;
aber nur der String "Name ändern" wird richtig dargestellt, der String "Name" hingegen erscheint als Striche, also so "IIII".
Hat jemand für mich nen Tipp wie man's löst? Danke!