function TrackAntal(aSamling : integer) : integer;
var
SQL3conn : TSQLite3Connection;
Query : TSQLQuery;
qry : string;
res : integer;
begin
res := -1;
SQL3conn := DBConnect;
try
Query := TSQLQuery.Create(nil);
qry := 'SELECT MAX(idx) AS "ant" FROM sam_num WHERE samling="'+IntToStr(aSamling)+'"';
Query.SQL.Text := qry;
Query.Database := SQL3conn;
Query.Open;
res := 0;
while not Query.Eof do begin
res := Query.FieldByName('ant').AsInteger;
Query.Next;
end;
Query.Close;
finally
SQL3conn.Close;
SQL3conn.Destroy;
end;
TrackAntal := res; // -1 hvis fejl, 0 hvis ingen og ellers det største idx (største track-nummer) Det er ikek nødvendigvis det samme som antallet...
end;