Character im Label ausgeben

[juelin]

Hallo,
ich möchte in einem Label das Zeichen Copyrigth ASCCI-Code 169 ausgeben.
in Delphi habe ich das mit: Label1.Caption:=Chr(169); gemacht.
In Lazarus geht das nicht.
Gebt mir mal einen Tipp.
Danke und Gruß
Jürgen

[theo]

Tipp's doch einfach ein.
Aus der Zeichentabelle ("Bearbeiten"... "Aus der Zeichentabelle...". | Ggf. "charactermap_ide_pkg" installieren) kannst du es direkt auswählen. Dort siehst du auch die Unicode Code, falls gewünscht.

[Zvoni]

Code: Alles auswählen

Const CR_CHAR='@';
begin
  label1.caption:=CR_CHAR;
end;                           

Tipp's doch einfach ein.
Aus der Zeichentabelle ("Bearbeiten"... "Aus der Zeichentabelle...". | Ggf. "charactermap_ide_pkg" installieren) kannst du es direkt auswählen. Dort siehst du auch die Unicode Code, falls gewünscht.

Errr....?
Denke ich gerade mit Alt Gr + Q zu sehr um die Ecke?!?!?

[juelin]

ja Danke, hat geklappt.
Manchmal sind doch Unterschiede zu Delphi.
Gruß
Jürgen

[theo]

Denke ich gerade mit Alt Gr + Q zu sehr um die Ecke?!?!?

Wenn du weisst, dass "Alt Gr + Q" dieses Zeichen einfügt, dann ist ja gut.
Mit der Zeichentabelle kannst du auf den gesamten Unicode Zeichensatz zugreifen ohne die Codes etc. zu kennen.
War halt etwas allgemeiner gedacht.

[fliegermichl]

Lazarus verwendet UTF8.
Wenn du die Unit lazutf8 einbindest, kannst du via

Code: Alles auswählen

 label1.caption := unicodetoutf8(169);

das Zeichen einfügen.

[Zvoni]

Denke ich gerade mit Alt Gr + Q zu sehr um die Ecke?!?!?

Wenn du weisst, dass "Alt Gr + Q" dieses Zeichen einfügt, dann ist ja gut.
Mit der Zeichentabelle kannst du auf den gesamten Unicode Zeichensatz zugreifen ohne die Codes etc. zu kennen.
War halt etwas allgemeiner gedacht.

GRMPF
Ich entschuldige mich.....
Alt GR + Q ist das "At"-Zeichen... Nicht "Copyright"

[theo]

Lazarus verwendet UTF8.
Wenn du die Unit lazutf8 einbindest, kannst du via

Code: Alles auswählen

 label1.caption := unicodetoutf8(169);

das Zeichen einfügen.

Da braucht es keine lazutf8. So reicht:

Code: Alles auswählen

UTF8Encode(#169);

Ich weiss nur nicht, warum man da unbedingt einen Code für braucht.
Andere Zeichen schreibt man ja auch direkt rein.

[fliegermichl]

Ich weiss nur nicht, warum man da unbedingt einen Code für braucht.
Andere Zeichen schreibt man ja auch direkt rein.

Vielleicht, damit man sich merken kann, dass ® den Code 169 hat.

[theo]

Ich weiss nur nicht, warum man da unbedingt einen Code für braucht.
Andere Zeichen schreibt man ja auch direkt rein.

Vielleicht, damit man sich merken kann, dass ® den Code 169 hat.

Ach so, ja...
Ob der Anwalt #169 auch versteht?
Ich merke mir lieber 231.1

[Mathias]

Ich mache es ganz einfache, irgendwo die Zeichen kopieren.
ZB. hier: https://www.w3schools.com/charsets/ref_ ... mileys.asp
Anschliessend in der IDE einfügen.

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := '😀😀😀😀😀😀😀';
end;