كيف اكتب 116300 03/11 على شكل 1163000311

[bouazza8]

طريقة كتابة 116300 03/11 على شكل 1163000311
اي حدف الفراغ و / و على العلم ان كل الرقم يتغير من رقم الى اخر

[yassine_hell]

كود :

procedure TForm1.Button1Click(Sender: TObject); var i : byte; s : string; begin s := edit1.Text; for i := 1 to length(s) do begin if s[i] in [' ','/'] then delete(s,i,1); end; edit1.Text := s; end;

[bouazza8]

الله يبارك فيك