delphi4arab منتديات دلفي للعرب

السلام عليكم

لدي رابط يوتوب وارغب بعرضة مباشر عن طريق حذف جزء من الرابط الاصلي
لاحظ هذا الرابط الاصلي للمقطع
http://www.youtube.com/watch?v=mU6ioahpSIg
لو اردناه بهذا الشكل سوف يظهر مباشرة في اضافة الميديا بلير بالديلفي
http://www.youtube.com/v/mU6ioahpSIg
حذفنا watch? واستبدلنا = بعلامة سلاش /
كيف يمكننا فلترة الرابط قبل دخولة ListBox بهذه الطريقة
وارفقت محاولة للتعديل عليها

و عليكم السلام ورحمة الله
Delete Char

كود :
var
   Str1 : String;
begin
Str1 := Edit1.Text;
delete(Str1, 24,8);              [color=Red]// Delete From Char 24 "8 Char".[/color]
Edit2.Text := Str1;

Insert Char

كود :
var
   Str1 : String;
begin
Str1 := Edit2.Text;
insert('v/', Str1, 24);          [color=Red]// Insert "v/". At Char 24[/color]
Edit2.Text := Str1;

المثال في المرفقات
بالتوفيق إن شاء الله Smile

شكرا اخي الكود يعمل جيداً
لماذا لا يكون على دفعه واحده بدلاً من دفعتين
يعني دمج الكودين مع بعض بزر واحد وتنزل في ListBox
ما رأيك في هذا انظر للمرفق تم التعديل عليه ليصبح

PHP كود :
var
   Str1 : String;
begin
Str1 := Edit1.Text;
delete(Str1, 24,8);              // Delete From Char 24 "8 Char".
Edit2.Text := Str1;
Str1 := Edit2.Text;
insert('v/', Str1, 24);          // Insert "v/". At Char 24
Edit2.Text := Str1;
ListBox1.Items.Add(Edit2.Text); 

مع اخفاء Edit2.Text

الحل دائما اقصر

كود :
Edit1.Text :=       StringReplace('http://www.youtube.com/watch?v=mU6ioahpSIg',
       'watch?v=m','v/m' ,[rfReplaceAll] )  ;

المحجوب

paix144

المحجوب

cargem