Einzelnen Beitrag anzeigen

sancho1980

Registriert seit: 7. Feb 2006
429 Beiträge
 
#1

tntedit mit stringfield laden

  Alt 30. Aug 2006, 15:50
Datenbank: firebird • Zugriff über: ibx, ibexpert
hi
zuerst die positive nachricht: hab gerade durch stöbern in etlichen foren herausgefunden, dass man den ibx-kompos sehr wohl unicode beibringen kann; wenn man mit ihnen persistente datenbankfelder anlegt, sind diese zwar vom Typ TIBStringField, aber es gibt folgenden workaround:

Delphi-Quellcode:
var
  IBDataSet1Feld: TIBStringField;

...

procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet);
begin
  self.TntEdit1.Text := UTF8Decode(self.IBDataSet1Feld.AsString);
end;

...

procedure TForm1.PostButtonClick(Sender: TObject);
begin
  self.IBDataSet1.Edit();
  self.IBDataSet1ASTERM.AsString := UTF8Encode(self.TntEdit1.Text);
  self.IBDataSet1.Post();
  self.IBDataSet1.Close();
  self.TntEdit1.Clear();
end;
Schätze das bedarf keiner weiteren Erläuterung. Mein Problem ist aber folgendes: Ich würd gern so komfortabel mit datensensitiven Controls auf die DB zugreifen; kann man dieses Konvertieren irgendwie automatisieren, damit ich gleich Datenbank-Controls verwenden kann oder muss ich mir die Controls dazu selbst schreiben?

Vielen Dank,

Martin
Um Rekursion zu verstehen, muss man zunächst Rekursion verstehen.
  Mit Zitat antworten Zitat