كيف يمكنني تحويل قيمة من سجل الى اخر

[medreg]

جرب هكدا 

كود :

Var St: String; FirstRecord : integer; begin Table1.First; FirstRecord :=  Table1.FieldByName('Nbre_Tot').AsInteger;   while not Table1.EOF do     begin       if (Table1.RecNo=1) and (FirstRecord = 0) then St:='0';         Table1.Edit;         Table1.fieldbyname('Nbre_Ant').value :=St;         Table1.Post;         St:=Table1.fieldbyname('Nbre_Tot').AsString;         Table1.Next;     end;   end; end;

اثناء التنفيذ تظهر رسالة خطأ تقول
valeur incorrecte pour le champ 'Nbre_Ant'
عندما يكون الحقل يحتوي على القيمة اكبر من 0 واقصد بالنسبة للسجل رقم 1

[محمد عبد العزيز]

كود :

Var St: String; begin Table1.First; while not Table1.EOF do begin if Table1.RecNo>1 then begin Table1.Edit; Table1.fieldbyname('Nbre_Ant').value :=St; Table1.Post; end; St:=Table1.fieldbyname('Nbre_Tot').AsString; Table1.Next; end; end;

[medreg]

كود :

بارك الله فيك