كيف يتم جلب النص من الانترنت الى تري فيو

كيف يتم جلب النص من الانترنت الى تري فيو - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم جلب النص من الانترنت الى تري فيو (/showthread.php?tid=7047)

كيف يتم جلب النص من الانترنت الى تري فيو - Sonic - 15-06-2015

السلام عليكم ورحمة الله وبركاتة

اخواني هذا الكود الجلب نص من الانترنت الى تري فيو

كود :
var i:SmallInt;
list:TStringList;
 tn1: TTreeNode;
begin
list:=TStringList.Create;
list.DelimitedText:=GetUrl('web');
list.Delimiter:=#13;
with tv1.Items do
  begin
    Clear;
    tn1 := Add(nil, 'الاسماء');
    for I := 0 to list.Count-1 do
    AddChild(tn1,list[i]);
  end;

يظهر هكذا

كود :
http://up.arabseyes.com/uploads2013/15_06_15143437526233281.png

كيف التعديل عليه حتى يصبح هكذا

كود :
http://up.arabseyes.com/uploads2013/15_06_15143437526239252.png

كيف يتم جلب النص من الانترنت الى تري فيو - Agmcz - 15-06-2015

كود :
var i:SmallInt;
list:TStringList;
 tn1: TTreeNode;
begin
list:=TStringList.Create;
list.DelimitedText:=GetUrl('web');
list.Delimiter:=#13;
with tv1.Items do
  begin
    Clear;
    for I := 0 to list.Count-1 do
      AddChild(nil, list[i]);
  end;