witam all.
sorki ze na samym poczatku z grubej rury, ale mecze sie juz z tym od dłuzszego czasu.
Problem mam w tym ze che wyświetlić w ListView (vsRaport) zawartośc bazy danych MySQL ( korzystam z ZEOS-a). Che by wyswietlalo mi sie w itemch z tabeli Links, pozycje z kolumny Nazwa, a w sub itemch z tabeli Files,pozycje z kolumn plik , size.
zamiesczam fragment kodu
procedure TFiles.DBLookupListBox1Click(Sender: TObject);
var
Lista: TStringList;
n: Integer;
begin
Lista:=TStringList.Create;
ListView1.Items.Clear;
try
while not Main.qrFiles.Eof do
begin
Lista.Add(Main.qrFiles.FieldByName('plik').AsString);
// lista.LoadFromFile('test.txt');
Main.qrFiles.Next;
end;
for n:=0 to Lista.Count-1 do
begin
ListView1.Items.Add;
ListView1.Items.Item[ListView1.Items.Count-1].Caption:=(Lista.Strings[n]);
ListView1.Items.Item[ListView1.Items.Count-1].ImageIndex:=0;
end;
finally
Lista.Free;
end;
end;
za pomoc z gory thx
--GeniusWarez Will Reborn.