Главная страницаОбратная связьКарта сайта

Создание компонента TTable без формы 2

Вы можете использовать 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;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Создание компонента TTable без формы 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info