uit welke categorie komt het nu spelende nummer?

[radio010]

Code: Selecteer alles

var Q : TDataSet;
var sCat : String;

PAL.LockExecution;

Q := Query('SELECT DISTINCT c.name FROM category c, categorylist cl ' +
           'WHERE cl.categoryID = c.ID ' +
           'AND c.ID NOT IN ' +
           '(SELECT parentID FROM category) ' +
           'AND cl.songID IN ' +
           '(SELECT songID FROM historylist ' +
           'WHERE date_played IN ' +
           '(SELECT max(date_played) ' +
           'FROM historylist)) ' +
           'ORDER BY c.name',[],True);

if Q.IsEmpty then
  sCat := 'Track currently being played does not belong to any category!'
else begin
  sCat := 'Track currently being played belongs to the following categories:' + #13#10;
  Q.First;
  while not Q.EOF do
  begin
    sCat := sCat + Q['name'] + #13#10;
    Q.Next;
  end;
end;

InformationDlg(sCat);

PAL.UnlockExecution;

Pas de tekst aan naar eigen wens!
voorbeeld

categories.PAL.png

veel plezier ermee