افزودن ستون ردیف به Table یا Query

[mafazel]

با سلام خدمت دوستان
ساده ترین راه افزودن یک ستون ردیف به DBGrid که یه Table یا Query رو نشون میده چیه.
من یه فیلد Calculated تعریف میکنم و توی OnCalcField اونو مقدار میدم:
Table1.FieldByName('RecNo').AsInteger := Table1.RecNo
اما رکورد اول رو -1 نشون میده بقیه رو درست.
بهترین راه این کار چیه؟ - خیلی ممنون

[Valadi]

استفاده از کامپونت Next Berg که قلبلیت منحصر به فرد داره

[mafazel]

خیلی ممنون اما از کامپوننت نمیخوام استفاده کنم.
دوستان خواهشن کلاس نذارید. اینجور سوالای سطح پایین رو هم جواب بدید. ممنون

[accpascal]

ببخشید من دیر دیدم ولی فکر میکنم راه حل زیر مناسب باشد
یک ستون بنام ردیف در dbgrid ایجاد کن سپس
دستور زیر را در on drawcolumnsel بنویس

if dbgrid.DataSource.DataSet.RecNo > 0 then
begin
if Column.Title.Caption = 'ردیف' then
DBGrid.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
end;

[SYNDROME]

استفاده از Cal فیلدها یکی از راه حلها است.(در سایت توضیح داده شده است)
اگر هم از بانک SQL 2005 استفاده می کنید دستوری برای ایجاد شماره ردیف دارد.
موفق باشید