تجزئة رابط

[salah07230]

السلام عليكم
اريد طريقة تجزئة رابط موجود في edit1
مثلا هذا الرابط: http://salah123:25461/book/samir9/salah/5231.rar
واضع كل جزء في edit
مثلا:
edit2 تأخذ :http://salah123:25461
edit3 تأحذ:book
edit4 تأحذamir9
edit5 تأحذalah
edit3 تأحذ:5231.rar
وشكرا

[justnick]

وعليكم السلام ورحمة الله وبركاته
ابحث عن "/"
واستخدم دوال الCopy والPos وال Deleteللتعمامل مع الString

[salah07230]

ممكن مثال لم استطع التطبيق

[justnick]

باستخدام memo مع button قمت بتجزئت الlink
اقوم بالبحث عن "/" ثم انسخ الى ان وجدت ال"/" ثم امسح من البداية الى ان اصل اليها ثم اكرر الى ان اصل الى نهاية الstring

كود :

var  I: Integer;  myString : string ; begin myString := 'http://salah123:25461/book/samir9/salah/5231.rar'; I := 0; while length(myString) > 0 do begin   if (myString[I] = '/') and ( myString[I + 1] <> '/') and (myString[I - 1] <> '/') then    begin      Memo1.Lines.Add(Copy(myString, 0, I -1));      Delete(myString, 1, I);      I := 0;    end;    Inc(I); end; end;

[Houdini]

Stringlist. Create
SetDilimiter
SetDimilitedText

[salah07230]

بارك الله فيك اخي justnick طريقة شغالة ربي يحفضك