Du kannst deinem Dataset (oder Query) aber auch ein berechnetes Feld hinzufügen:
1. Rechtsklick auf Dataset: Feld-Editor auswählen.
2. Rechtsklick in Feld-Editor: Alle Felder hinzufügen.
3. Rechtsklick in Feld-Editor: Neues Feld, Editor erscheint.
4. Ausfüllen: einen Bezeichner eintippen, den Typ (gewöhnlich String) und die Länge, in der RadioGroup Berechnet wählen und OK drücken.
5. Das Neue Feld im Feld-Editor auswählen und im OI auf Ereignisse umschalten.
6. Doppelklick in OnGetText, worauf ein leerer Procedure-Rumpf erstellt wird.
7. Implementieren der Befehle, um den Wert des neuen Feldes zu erzeugen. Beispiel:
Ich habe eine Spalte Volume und eine Spalte DateisystemName, die ich in einer Zelle anzeigen will, getrennt durch ein Leerzeichen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6:
| procedure TDatMod.ADOTable1VolSysGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin Text := ADOTable1.FieldByName('VolumeName').AsString + ' ' + ADOTable1.FieldByName('DateisystemName').AsString; DisplayText := True; end; |