Raport na polu Memo

0

Wiatam, mam mały problem ze zrobieniem raportu na polu Memo pod Delphi, dane są zczytywane z tabeli Table1. Baza zrobiona jest na paradoxie. Problem polega na tym, iż wyświetlane są dane tylko i wyłącznie z tego rekordu, który zaznaczę. Chodzi mi o wyświetlnie wszystkich dostępnych danych z danej kolumny, w tym przypadku liczb
Kod:

  begin
     Memo2.Lines.Add('RAPORT: ' + ComboBox1.Text);
     Memo2.Lines.Add('----------------------------------------------------');
     Memo2.Lines.Add('NUMER: ' + Table1.Fields[0].AsString);
    end;

Po wyświetleniu mam tylko:

RAPORT: Produkty ---------------------------------------------------- NUMER: 1

a chciałbym:

RAPORT: Produkty ---------------------------------------------------- NUMER: 1 NUMER: 2 NUMER: 3 [......]

Pozdrawiam :)

0
procedure TForm1.Button1Click(Sender: TObject);
begin
     Memo2.Lines.Add('RAPORT: ' + ComboBox1.Text);
     Memo2.Lines.Add('----------------------------------------------------');
  
     Table1.First;
     while not Table1.Eof do
     begin
     Memo2.Lines.Add('NUMER: '+Table1.FieldByName('Twoja_kolumna').asInteger);
     Table1.Next;
end; 
end;

Musisz przelecieć wszystkie wartości w danej kolumnie stosując pętlę, aby czytała od początku do końca kolumny owe wartości.
Wtedy zostaną wpisanie wszystko co potrzebujesz do pola Memo.

0

Wielkie Dzięki
Działa! [browar]

Pozdrawiam

1 użytkowników online, w tym zalogowanych: 0, gości: 1