التماس مساعدة بسيطة لوجه الله
في كيفيية معرفة ثلاثة حروف في الاوديت بوكس
اخر ثلاثة حروف في الاوديت بوكس
مغلق
اخي رياض وضح السؤال لكي مستطيع مساعدتك
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
اخي romanof شكرا للمشاركة
مثلا في الفيجوال بيسك توجد دالة leftواللتي تعطي عدد معين منحروف مثلا "ouqli riadh" في النص تصبح "adh" وهكدا
هل من رد.....
حسنا بنيت لك تابع مخصص مثل Left في فيجوال بيزك .
ضعه في شفرتك :
function left_str(s:string;num:integer):String; begin Result:=copy(s,length(s)+1-num,num); end;
الإستخدام مثلا
showmessage(left_str(edit1.Text,3));
شكرا اخي عروة الى ان بينت انت الاجابة لم افهم السؤال
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
الدوال موجودة في دلفي ايضا لكن ضمن وحدة StrUtils، عليك اضافتها ومن ثم يمكنك استخدام دالة LeftStr
uses
StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(LeftStr('Delphi World',3); // same as Left in VB
ShowMessage(RightStr('Delphi World',3); // same as Right in VB
ShowMessage(Copy('Delphi World',3,3); // same as Mid in VB
end;او يمكنك استخدام دالة Copy مثل مثال اخي عروة، وهو لا يحتاج لتضمين وحدة StrUtils
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
هذا الموضوع مغلق.