دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

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

مُساهمة  ali 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;

ali
مبرمج مجتهد

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

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

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

- مواضيع مماثلة

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