Ich habe mir eine Konstante mit verschiedenen Sonderzeichen erstellt.
Diese sollte ursprünglich nur in einem Edit ausgeben werden .
Alle Zeichen werden richtig dargestellt außer das CE-Zeichen.
Dann habe ich verschiedene andere Komponeten ausprobiert.
Memo
Listbox
Label
und auch noch ne Ausgabe mit ShowMessage.
Außer beim Memo und beim ShowMessage versagen alle Komponenten beim CE-Zeichen.
Alles sehr merkwürdig , kann jemand helfen.
Vor allen das Unterschiedliche Verhalten von Memo und Listbox finde ich komisch , die basieren doch beide auf TStrings , oder ?
Programmiert habe ich LAZ v1.6.4 / FPC 3.0.2 .
Code: Alles auswählen
unit unit1;
{$MODE Delphi}{$H+}
interface
uses
LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,LConvEncoding;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
ListBox1: TListBox;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
const
Konst='®¶ÜÒ@Ê஌Öä1¢î';
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.clear;
listbox1.Clear;
memo1.Lines.Add(Konst);
listbox1.Items.add(Konst);
edit1.text:=Konst;
label4.Caption:=konst;
ShowMessage(Konst);
end;
end.
Gruß
Frank