hjælp til en counter

hvor/i hvad indtaster du disse dvd'er ?

Stoney

hvis du bruger database og har oprettet en datafield med dvd nr, så kan du sætte
den til arAutonc, så hvergang der indsættes data vil den tælle +1

db klik på din table og gå til det datafelt som du vil bruge som tæller og vælg

arAutonc

Hvis man bruger dataset er der vist osse noget der hedder recordcount  ?
fx  Label6.Caption := IntToStr(adodataset1.RecordCount);

Eller hvis du bruger SQL så kan du sige (brug TQuery eller TADOQuery afh. database):

function GetDVDCount : integer;
begin
  result := -1; // Hvis negativ -> fejl opstået
  Query.Sql.Text := 'select count(*) from DVDTable';
  Query.Open;
  try
    Result := Query.Fields[0].AsInteger;
  finally
    Query.Close;
  end;
end;

Autoincrementering er en dum ting idet den fortsætter med at lægge 1 til største tal, uanset om du sletter alle dvd-records i tabellen.

N.B. Brug af RecordCount i en Query-variant er en dum ting (idet den vistnok foretager yderligere opslag i databasen).