اضافه کردن اتوماتیک به فیلد id و نمایش آن در یک EditBox

[miyandari]

با سلام

من یه جدولی دارم که دارای فیلدی به نام id هستش میخواستم با استفاده از دستورات sql بالاترین مقدار ثبت شده در این فیلد رو پیدا کنم و یک واحد به آن اضافه کرده و بصورت پیش فرض در edit1.text نمایش بدم
من خودم برای بدست آورن بزرگترین مقدار از دستور زیر استفاده کردم ولی نمیدونم چطور نتیجه رو تو edit1.text نمایش بدم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[miyandari]

لطفا اگه کسی اطلاعاتی در این زمینه داره راهنمایی کنه خیلی برام مهمه

[daei_honey]

سلام از این کد استفاده بکن

var count:integer;

count:=0;
DM.TMalek .First ;
while (not DM.TMalek.Eof ) do
begin
DM.TMalek.Next ;
count:=count+1;
end;
count := count+1;
DM.TMalek.Insert ;
DBEdit1 .Text := VarToStr(count );