كيف تحويل الرمز من 000001/2014 الى bl0001/2014

[Anter2010]

السلام عليكم

توصلت للحل هذا هو :

PHP كود :

procedure TDM.L_ventesAfterInsert(DataSet: TDataSet);
begin
L_ventes.FieldByName('ID_SRT').AsString := 'BL'+
  Format('%0.5d/',[L_ventes.RecordCount+1])+intTostr(year);
end; 


شكرا للجميع