🚀 go-pugleaf

Kometa napisał(a) w wiadomości: ...
>Mam kolejny problem: jak odczytać po kolei każdą komórkę bazy danych
>zaczynając od jej początku. Napisałem coś takiego:
>
>count: word;
>
>for count := 0 to DBGrid1.FieldCount-1 do
>begin
>   F1Book1.textrc[60,count+1] := DBGrid1.Fields[count].AsString;
>end;
>
>To powoduje odczytanie tylko wybranego wiersza w DBGrid.
>
>Z góry dzięki.
>
>

np. Dodaj do powyższego przykładu :

DBGrid1.DataSource.DataSet.First;
for count :=1 to DBGrid1.DataSource.DataSet.RecordCount do
begin
  for count := 0 to DBGrid1.FieldCount-1 do
  begin
     F1Book1.textrc[60,count+1] := DBGrid1.Fields[count].AsString;
  end;
  DBGrid1.DataSource.DataSet.Next;
end;

I jak jeszcze zapamiętasz TBookmark bieżącego rekordu a potem go odtworzysz
to wrócisz do początkowego (startowego) rekordu w DBGrid1.

 pozdrowienia Moskw@

 <moskwa@pro.onet.pl>