Forum: Datenbanken
by norwegen60,
12. Okt 2020
Ganz blöder Fehler: Ohne das geht es natürlich nicht
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
vdsSerNr.FieldDefs.Add('ID', ftInteger);
vdsSerNr.FieldDefs.Add('SerNr', ftString, 20);
vdsSerNr.FieldDefs.Add('Typ', ftString, 30);
end;
Forum: Datenbanken
by norwegen60,
12. Okt 2020
Hallo zusammen,
ich habe ein TVirtualDataSet von UniDac in einem TDataModule definiert und stelle die Daten über TDataSource in einem DBGrid dar.
Dem TVirtualDataSet wird eine TObjectList wie folgt zugeordnet.
type
TSerNr = class
private
FID: Integer;
FSerNr: string;