Мой код приведен ниже, он работает правильно, но после компиляции программы я вижу все полное имя и страну, перечисленные вертикально, что-то вроде:
_________________________________
ФИО1
Страна1
ФИО2
Страна2
ФИО3
Страна3
и т.д...
SQLQuery1.SQL.Text := 'SELECT * FROM users where user_age="'+age+'"';
SQLQuery1.Open;
rec := SQLQuery1.RecordCount;
SQLQuery1.First; // move to the first record
ListView1.Visible := false;
if rec>0 then
begin
while(not SQLQuery1.EOF)do begin
ListView1.Visible := true;
// do something with the current item
ListView1.AddItem('Full name: '+SQLQuery1['fullname'], Self);
ListView1.AddItem('Country: '+SQLQuery1['cntry'], Self);
// move to the next record
SQLQuery1.Next;
end;
Но я хочу что-то вроде: