eine blöde Frage

[juelin]

Hallo,
vielleicht bin ich nur zu blöd.
Ich möchte in einem Label das © Zeichen ausgeben.
Ich mache das mit Label2.Caption:=Chr(169);
Aber Lazarus gibt nur ein ? aus.
Was ist der Trick?
Gruß
Jürgen

[Soner]

Wie machst du dir das Leben nicht einfacher:
Label2.Caption:='©';
oder
Label2.Caption:=#0169;

Ab 128 ist es Unicode.

[juelin]

Hallo soner,
ja so geht es mit Label1.Caption:=#0169;
Aber hast Du eine Ahnung warum Chr(169) nicht geht?
Danke und Gruß
Jürgen

[Soner]

Ich glaube man muss das als UTF8 dekodiert angeben, also so etwas wie Char($c2a9), aber es funktioniert nicht, auch utf8Char nicht.
Vielleicht meldet sich ein Experte dazu.

[wp_xyz]

ja so geht es mit Label1.Caption:=#0169;
Aber hast Du eine Ahnung warum Chr(169) nicht geht?

Lazarus arbeitet mit UTF8. Da bestehen nur die ASCII-Zeichen (<#128) aus 1 Byte, alle anderen haben 2, 3 oder sogar 4 Bytes. Das Zeichen chr(169) ist kein gültiger UTF8-Codepoint, denn es liegt über #128 und es müsste also noch mindestens ein weiteres Byte vorhanden sein.

Wenn du den UTF8-Code für ein Zeichen nicht kennst, solltest du die Lazarus-Zeichentabelle öffnen ("Bearbeiten" > "Aus der Zeichentabelle einfügen"). Stelle sicher, dass der Tabellen-Reiter "Unicode" aktiv ist. Dann kannst du in der Combobox "Bereich" die gewünschte Seite einstellen. Das Copyright-Symbol findest du unter "Latin-1 Supplement". Dann auf dem Zeichen klicken, und es wird im Quelltext an der Stelle eingefügt, an der sich gerade der Cursor befindet.

[paweld]

Ja, wie @wp Lazarus sagte arbeitet mit UTF-8 und Char über 127 wird nicht funktionieren. Aber Sie können WideChar verwenden oder Ansi in UTF-8 konvertieren

Code: Alles auswählen

  Label1.Caption := widechar(169);
  Label2.Caption := UTF8Encode(char(169));  

[juelin]

danke für die Info poweld.
Gruß
Jürgen

[Niesi]

[/quote]

...

Wenn du den UTF8-Code für ein Zeichen nicht kennst, solltest du die Lazarus-Zeichentabelle öffnen ("Bearbeiten" > "Aus der Zeichentabelle einfügen"). Stelle sicher, dass der Tabellen-Reiter "Unicode" aktiv ist.

...

[/quote]

Hilf mir mal bitte: Ich finde beides nicht, weder in der Lazarus / Fpc Stable Installation noch in der trunk ...

[theo]

Hilf mir mal bitte: Ich finde beides nicht, weder in der Lazarus / Fpc Stable Installation noch in der trunk ...

Das Package muss man jetzt nachinstallieren. Es heisst "charactermap_ide_pkg" (Package -> Installierte Packages einrichten..)
Früher war das standardmässig drin.
Ich halte es für eine schlechte Entscheidung, dass es nicht mehr automatisch installiert wird.

[Niesi]

Hilf mir mal bitte: Ich finde beides nicht, weder in der Lazarus / Fpc Stable Installation noch in der trunk ...

Das Package muss man jetzt nachinstallieren. Es heisst "charactermap_ide_pkg" (Package -> Installierte Packages einrichten..)
Früher war das standardmässig drin.
Ich halte es für eine schlechte Entscheidung, dass es nicht mehr automatisch installiert wird.

Danke, Theo, hab's gefunden und installiert ...

[wp_xyz]

Die Zeichentabelle war früher in der IDE hart eingebaut und wurde bei Laz3.0+ als separates Package ausgelagert, um zum einen die Basis-IDE zu entschlacken und zum anderen die Zeichentabelle auch für User-Code verfügbar zu machen.

Das Package ist in den vorkompilierten Release-Versionen standardmäßig enthalten, und auch wenn man die IDE mit "make bigide" aus dem Source-Code neu baut, wird es mit installiert. Nur bei einem alten Lazarus aus Quellcode, der erstmals vor der Umstellung installiert wurde und nun per git aktualisiert wird, ist es natürlich nicht enthalten und muss manuell nachinstalliert werden.

[Niesi]

Die Zeichentabelle war früher in der IDE hart eingebaut und wurde bei Laz3.0+ als separates Package ausgelagert, um zum einen die Basis-IDE zu entschlacken und zum anderen die Zeichentabelle auch für User-Code verfügbar zu machen.

Das Package ist in den vorkompilierten Release-Versionen standardmäßig enthalten, und auch wenn man die IDE mit "make bigide" aus dem Source-Code neu baut, wird es mit installiert. Nur bei einem alten Lazarus aus Quellcode, der erstmals vor der Umstellung installiert wurde und nun per git aktualisiert wird, ist es natürlich nicht enthalten und muss manuell nachinstalliert werden.

Meine "Stable" ist mit FpcUpDeLuxe neu installiert, da musste ich "charactermap_ide_pkg.0.1" selbst installieren.

Um das jetzt noch mal zu prüfen, habe ich mir mit FpcUp eine weitere "Trunk" installiert - da wurde keine Charmap installiert.

Ich arbeite unter Linux Mint 22 Cinnamon, mag sein, dass es daran oder an der Installation mit FpcUp liegt - sollte mensch halt wissen ...

charactermap_ide_pkg.png (189.85 KiB) 2405 mal betrachtet

[Sieben]

Ich knall das mal hier unten dran, weil es irgendwie verwandt scheint - warum gibt mir das ein "Gotcha!"?

Code: Alles auswählen

procedure TfrmMain.Button1Click(Sender: TObject);
var UTF8Key: TUTF8Char;
begin
  UTF8Key := 'Ӝ';
  case UTF8Key of #32..#255:
    ShowMessage('Gotcha!');
  else
    ShowMessage('Nope...');
  end;
end; 

Wird da nur das erste Byte ausgewertet? Mit #126 statt #255 gibt es "Nope,,,".

[af0815]

Wird da nur das erste Byte ausgewertet? Mit #126 statt #255 gibt es "Nope,,,".

Wenn ich mir das hier so ansehe https://www.freepascal.org/docs-html/ref/refsu56.html so wird scheinbar wirklich auf Ebene des Chars ausgewertet, weil ein UTF8case gibt es nicht. Das heisst für mich, utf8 kann man nicht mit case auswerten.

[paweld]

Im Falle von string ( TUTF8Char = string[7] ) werden alle im Bereich angegebenen Bytes verglichen. Gemäß der Dokumentation - Link bereitgestellt von @af0815:

The case with strings is equivalent to a series of if then else statements, no optimizations are performed.

However, ranges are allowed, and are the equivalent of an

Code: Alles auswählen

if (value>=beginrange) and (value<=endrange) then  
  begin  
  end; 

In Ihrem Fall sieht es also so aus:

Code: Alles auswählen

var
  UTF8Key: TUTF8Char;
begin
  UTF8Key := 'Ӝ';   //#211#156
  case UTF8Key of #32..#255: // if (UTF8Key >= #32) and (UTF8Key <= #255) then
    ShowMessage('Gotcha!');
  else
    ShowMessage('Nope...');
  end;
end;