قلب أي سلسلة حرفية أو رقمية
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
قلب أي سلسلة حرفية أو رقمية
قلب أي سلسلة حرفية أو رقمية
تستطيع بهذا الكود ساسلة حرفية أو رقمية
بامكانك وضعه في في دالة أو اجراء 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
مواضيع مماثلة
» اداة اختيار switch من نوع سلسلة حرفية في لغة جو Go
» معرفة عدد تكرارات رقمية داخل جدول
» بعض مواقع البرمجة العربية
» سلسلة الموسوعة العربية للكتب الالكترونية
» معرفة عدد تكرارات رقمية داخل جدول
» بعض مواقع البرمجة العربية
» سلسلة الموسوعة العربية للكتب الالكترونية
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى