15-06-2015, 04:04 PM
كود :
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;
سبحان الله وبحمده سبحان الله العظيم