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

[justnick]

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

افترض انك تستقبل الstring الاتى من webbrowse

PHP كود :

"Ahmed Shoulah","Mohamed Shoulah","Delphi Arab","Coder Programmer" 


قم باستخدام الطريقة التالية لاضافتها الى ListView

PHP كود :

var
 MyString : string;
 I : Integer;
  LItem: TListViewItem;
begin
ListView1.BeginUpdate;
try
 MyString := '"Ahmed Shoulah","Mohamed Shoulah","Delphi Arab","Coder Programmer"';
 I := 0;
 while (length(MyString) > 0) do
 begin
  if MyString[i] = ',' then  Delete(MyString, 1, I);
   if MyString[i] = '"' then
   begin
   if Copy(MyString, 0, I -1) <> '' then
     begin
        LItem := ListView1.Items.Add;
        LItem.Text := Copy(MyString, 0, I -1);
     end;
     Delete(MyString, 1, I);
     I := 0;
   end;
   Inc(I);
 end;
finally
  ListView1.EndUpdate;
end;
end;