كيف اعمل فلتره للرابط قبل ادخالة 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;

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