Einzelnen Beitrag anzeigen

Benutzerbild von user0815
user0815

Registriert seit: 5. Okt 2007
331 Beiträge
 
Delphi XE2 Professional
 
#3

AW: Mehrsprachig sichern + anzeigen

  Alt 29. Nov 2012, 09:04
Nutze Database Workbench v4.3.2 Pro, habe dort eine Test Tabelle angelegt (DDL):

Code:
CREATE TABLE SPRACHE
(
  TAG_ID             INTEGER        NOT NULL,
  DE                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UTF8,
  EN                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UTF8,
  CN                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UNICODE_CI,
  CC                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UNICODE_CI_AI,
  CT                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UNICODE,
 CONSTRAINT PK_SPRACHE PRIMARY KEY (TAG_ID)
);
Füge ich jetzt diesen Text "Администрирование" in alle Felder manuell ein, so werden nach dem Verlassen des Feldes nur Fragezeichen angezeigt.

Delphi-Quellcode:
  with Datenmodul.UniQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('SELECT DE, EN, CN, CC, CT');
    SQL.Add('FROM SPRACHE');
    SQL.Add('WHERE TAG_ID = :ID;');
    ParamCheck := true;
    ParamByName('ID').AsInteger := 1;
    Open;
    Edit1.Text := FieldByName('CT').AsString;
    Label1.Caption := FieldByName('CT').AsString;
    Memo1.Lines.Append(FieldByName('CT').AsString);
    Memo1.Lines.Append(FieldByName('DE').AsString);
    Memo1.Lines.Append(FieldByName('EN').AsString);
    Memo1.Lines.Append(FieldByName('CN').AsString);
    Memo1.Lines.Append(FieldByName('CC').AsString);
    Close;
  end;
es werden nur Fragezeichen ausgegeben... darum ja meine Frage...
  Mit Zitat antworten Zitat