Select Sum(Fieldname) From Table

[Amenovis]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
item:TListItem;
blabla:string;
 begin
  con.LibraryLocation:=ExtractFilePath(application.ExeName)+'sqlite3.dll';
  con.Database:=ExtractFilePath (application.ExeName)+'test.sqlite';
  con.Connected:=true;
  Query1.SQL.Text:='Select SUM(Test) as blabla FROM Versuch';
  Query1.Open;
  Edit1.Text:=Query1.FieldByName['blabla'].asString;
  Query1.Close;
  end;
  end.