Topic: for в обратном порядке
как перебрать for в обратном порядке?
procedure ListBox_Show_Button7_OnClick (Sender: TObject; var Cancel: boolean);
var
list:TStringList;
i,c:integer;
begin
list:=TStringList.Create;
list.Text:=SQLExecute( 'SELECT group_concat(id, char(13) || char(10)) FROM q' );
c:=list.Count;
listBox.Items.Clear;
for i:=1 to c do
begin
listBox.Items.Add(SQLExecute('SELECT dd FROM q WHERE id='+IntToStr(i)));
end;
list.Free;
end;