Kod: Tümünü seç
query1.First;
While Not Query1.Eof do
Begin
ShowMessage(IntToStr(Query1.RecNo));
Query1.Next;
end;
acaba diger sorunu baska degişken kullanarak cozdum ama sacma bi hata
herhangi bi kod da yok dongu icinde . .. ? ne olaki ?
Kod: Tümünü seç
query1.First;
While Not Query1.Eof do
Begin
ShowMessage(IntToStr(Query1.RecNo));
Query1.Next;
end;