Code: Alles auswählen
{ TArtikelgruppenListe }
TArtikelgruppenListe = class(specialize TFPGObjectList<TArtikelgruppe>)
public
function Add(Obj: TArtikelgruppe): integer;// override;
procedure ReadAllData;
procedure ReadListData(Query: string);
end;
implementation
{ TArtikelgruppenListe }
function TArtikelgruppenListe.Add(Obj: TArtikelgruppe): integer;
begin
inherited Add(Obj);
end;
procedure TArtikelgruppenListe.ReadAllData;
begin
ReadListData('Select * from ArtikelGruppen');
end;
procedure TArtikelgruppenListe.ReadListData(Query: string);
var
TempObj: TArtikelGruppe;
begin
debugln('TArtikelgruppenListe.ReadListData:');
debugln(' ' + Query);
with dtmBasis.qrySQL do
begin
try
SQL.Text := Query;
Open;
if RecordCount >= 0 then
begin
First;
while not EOF do
begin
TempObj := TArtikelgruppe.Create;
TempObj.ID := FieldByName('idartikelgruppe').AsInteger;
TempObj.IDColor := FieldByName('fk_color').AsInteger;
TempObj.Artikelgruppe := FieldByName('artikelgruppe').AsString;
// wie adde ich das Objekt hier?
Self.Add(TempObj);
TempObj.Free;
Next;
end;
end;
Close;
except
On E: Exception do
debugln(' ' + E.Message)
end;
end;
end; 
) 
Verein
Links
Suche