+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تجزئة رابط (/showthread.php?tid=9056)
تجزئة رابط - salah07230 - 16-12-2017
السلام عليكم
اريد طريقة تجزئة رابط موجود في edit1
مثلا هذا الرابط: http://salah123:25461/book/samir9/salah/5231.rar
واضع كل جزء في edit
مثلا:
edit2 تأخذ :http://salah123:25461
edit3 تأحذ:book
edit4 تأحذ
amir9edit5 تأحذ
alahedit3 تأحذ:5231.rar
وشكرا
RE: تجزئة رابط - justnick - 16-12-2017
وعليكم السلام ورحمة الله وبركاته
ابحث عن "/"
واستخدم دوال الCopy والPos وال Deleteللتعمامل مع الString
RE: تجزئة رابط - salah07230 - 16-12-2017
ممكن مثال لم استطع التطبيق
RE: تجزئة رابط - justnick - 16-12-2017
باستخدام 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;RE: تجزئة رابط - Houdini - 17-12-2017
Stringlist. Create
SetDilimiter
SetDimilitedText
RE: تجزئة رابط - salah07230 - 17-12-2017
بارك الله فيك اخي justnick طريقة شغالة ربي يحفضك