Witam.
Podejżewam, że mój problem okaże się banalny, ale dopiero zaczynam przygodę z lazreportem (freereportem w lazarusie) i nie bardzo mam pomysłu, jak to ugryźć. Mam StringGrid, który jest podpięty do frReport (jest to o tyle ważne, że nie wchodzi w grę źródło bazodanowe). Zgodnie z opisem dałem w GetValue raportu
If ParName = 'Zmienna1' then ParValue := StringGrid1.Cells[0,StringGrid1.Row];
If ParName = 'Zmienna2' then ParValue := StringGrid1.Cells[1,StringGrid1.Row];
If ParName = 'Zmienna3' then ParValue := StringGrid1.Cells[2,StringGrid1.Row];
W UserDataSet First
StringGrid1.Row:=1;
(dane są odczytywane z pominięciem wiersza tytułowego)
W UserDataSet Next
StringGrid1.Row:=StringGrid1.Row+1;
W UserDataSet CheckEOF
If StringGrid1.Row=StringGrid1.RowCount-1 then
Eof:=true;
I wszystko byłoby dobrze, ale niestety na raporcie nie pojawia się odtatni wiersz StringGrid. Gdzie popełniłem błąd?
===dodane:
Dzięki, temat do zamknięcia. Wydaje się, że sprawę załatwiło podmienienie polecenia w CheckEOF na
If frUserDataSet1.RecNo=StringGrid1.RowCount-1 then Eof:=true;