Советы по Delphi
Создание компонента TTable без формы II
Вы можете использовать TTable, не размещая компонент на форме:
|
procedure TForm1.TotalPopulation:double;
var
Tbl:TTable;
begin
Result := 0;
Tbl := TTable.Create(nil);
try
tbl.DatabaseName := 'DBDEMOS';
tbl.TableName := 'COUNTRY';
Tbl.Open;
tbl.First; while not Tbl.EOF do begin Result := Result+Tbl.FieldByName('Population').AsFloat; Tbl.Next; end; Tbl.Close; finally Tbl.Free; end; end; |
[000359]
