Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#12
  Alt 20. Dez 2002, 08:17
Hallo Fischli80,

nein, ist nicht ganz richtig .

Du doppelklickst direkt MyTable (kein zweites TTable Objekt notwendig) und fügst die Felder dieser Tabelle deiner Anwendung hinzu. Der Spalte oder den Spalten, deren Anzeige du verändern möchtest weist du im Ereignis OnGetText den Code zu, der die Anzeige nach deinen Wünschen anpasst.

Klickt der Benutzer jetzt auf "Neue Tabelle", machst du folgendes:

Delphi-Quellcode:
  if MyTable.Active then
    MyTable.Close;
  MyTable.TableName := Edit1.Text; { oder wie auch immer du den Namen ermittelst }
  MyTable.CreateTable;
  { Jetzt kannst du die Tabelle noch öffnen, wenn du willst }
Du solltest noch prüfen, ob die Tabelle mit dem neuen Namen bereits existiert und ggf. fragen, ob sie überschrieben werden soll. Die neue Tabelle hat jetzt die gleiche Struktur, wie die alte, aber einen neuen Namen. Die persistenten Felder und deren Format Einstellungen werden automatisch korrekt zugeordnet.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat