+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اعمل فلتره للرابط قبل ادخالة ListBox (/showthread.php?tid=3422)
كيف اعمل فلتره للرابط قبل ادخالة ListBox - المحجوب - 16-09-2011
السلام عليكم
لدي رابط يوتوب وارغب بعرضة مباشر عن طريق حذف جزء من الرابط الاصلي
لاحظ هذا الرابط الاصلي للمقطع
http://www.youtube.com/watch?v=mU6ioahpSIg
لو اردناه بهذا الشكل سوف يظهر مباشرة في اضافة الميديا بلير بالديلفي
http://www.youtube.com/v/mU6ioahpSIg
حذفنا watch? واستبدلنا = بعلامة سلاش /
كيف يمكننا فلترة الرابط قبل دخولة ListBox بهذه الطريقة
وارفقت محاولة للتعديل عليها
كيف اعمل فلتره للرابط قبل ادخالة ListBox - paix144 - 16-09-2011
و عليكم السلام ورحمة الله
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;كود :
var
Str1 : String;
begin
Str1 := Edit2.Text;
insert('v/', Str1, 24); [color=Red]// Insert "v/". At Char 24[/color]
Edit2.Text := Str1;المثال في المرفقات
بالتوفيق إن شاء الله
كيف اعمل فلتره للرابط قبل ادخالة ListBox - المحجوب - 17-09-2011
شكرا اخي الكود يعمل جيداً
لماذا لا يكون على دفعه واحده بدلاً من دفعتين
يعني دمج الكودين مع بعض بزر واحد وتنزل في 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
كيف اعمل فلتره للرابط قبل ادخالة ListBox - cargem - 17-09-2011
الحل دائما اقصر
كود :
Edit1.Text := StringReplace('http://www.youtube.com/watch?v=mU6ioahpSIg',
'watch?v=m','v/m' ,[rfReplaceAll] ) ;