قلب أي سلسلة حرفية أو رقمية

اذهب الى الأسفل

قلب أي سلسلة حرفية أو رقمية

مُساهمة  ali1 في 21/4/2018, 11:26 pm


قلب أي سلسلة حرفية أو رقمية

تستطيع بهذا الكود ساسلة حرفية أو رقمية
بامكانك وضعه في في دالة أو اجراء rocedure and function
أو في بوتو Button .

الطريقة الاولى

وهو عبارة عن حلقة تكرارية تبدأ من أكبر قيمة الى أصغر قيمة،
واستعمال الدالة copy


الكود:

var
 s: string; i: integer;
begin
  s := '';
  for i := length(Edit1.Text) downto 1 do
    s := s + copy(Edit1.Text,i,1);
  caption := s;
end;



الكود:


الطريقة االثانية

وهو عبارة عن حلقة تكرارية تبدأ من أكبر قيمة الى أصغر قيمة، 
أخذ سلسلة حرفا حرفا.

var
 s: string; i: integer;
begin
  s := '';
  for i := length(Edit1.Text) downto 1 do
    s := s + Edit1.Text[i];
  caption := s;
end;

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 848
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى