+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اكتب 116300 03/11 على شكل 1163000311 (/showthread.php?tid=4162)
كيف اكتب 116300 03/11 على شكل 1163000311 - bouazza8 - 03-05-2012
طريقة كتابة 116300 03/11 على شكل 1163000311
اي حدف الفراغ و / و على العلم ان كل الرقم يتغير من رقم الى اخر
كيف اكتب 116300 03/11 على شكل 1163000311 - yassine_hell - 03-05-2012
كود :
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;كيف اكتب 116300 03/11 على شكل 1163000311 - bouazza8 - 03-05-2012
الله يبارك فيك