كيف انسخ كلمة من بين فواصل او احرف

[musvc]

بسم الله الرحمن الرحيم

هذا السؤال يراودني مذ فترة ولم اعرف حلة

و في الحقيقة لا اعرف كيف اشرحه لكم او اصفه

السؤال : كيف انسخ كلمة من بين فواصل او احرف

مثال :
عندي a ) String ) و قيمته

كود :

musvc=:"[color=Red]Hello there[/color]"

محتاج اعرف طريقة انسخ جزئا ً من الـ String التي بين الفواصل " " لكن ليس هذه الطريقة

كود :

Copy(a,9,20);

لأن اذا تغير

كود :

musvc=:

او

كود :

[color=Red]Hello there[/color]

الى كلمة اطول او اصغر سوف تتخربط العملية

وشكرا ً

[محمد عبد العزيز]

1- يجب ان تعرف او تحدد ما هو الفاصل
2- تعرف موضع الفاصل باستخدام POS
3- تنسخ ما تريد بCOPY مستخدما موضع الفاصل السابق بPOS

مثال حي عن استعمالها في تمرين: استخراج ثوابت لكثير حدود اقل من الدرجة الثانية
http://www.delphi4arab.net/forum/showthread.php?tid=581

ان لم تفهم ضع مثال لجملة تريد النسخ منها

[musvc]

لم افهم ولا كلمة :confused:

هذه كلمة و اريـد استخراج الكلمة من بين الفواصل " "

كود :

Mkdir "[color=Red]C:\FILE.BAT[/color]"

و سؤال اخر هل يمكن نسخ String من مكان و حتى النهاية

مثلا ً :

Mkdir=C:\File.bat

يعني نسخ الكلمة من منطقة = الى الأخير

[محمد عبد العزيز]

المثال 1

PHP كود :

s:='Mkdir "C:\FILE.BAT"';
S:=Copy(S,1+pos('"',s),Length(s));
S:=Copy(S,1,pos('"',s)-1); 


يجب اضافة كود التحقق من وجود " مرتين قبل استعماله

المثال 2

PHP كود :

s:='Mkdir=C:\File.bat';
S:=Copy(S,1+pos('=',s),Length(s)); 


[musvc]

شكرا ً اخي