كيف اعمل فلتره للرابط قبل ادخالة ListBox

[المحجوب]

السلام عليكم

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

[paix144]

و عليكم السلام ورحمة الله
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;

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

[المحجوب]

شكرا اخي الكود يعمل جيداً
لماذا لا يكون على دفعه واحده بدلاً من دفعتين
يعني دمج الكودين مع بعض بزر واحد وتنزل في 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

[cargem]

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

كود :

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