25-12-2016, 10:07 PM
السلام عليكم ورحمة الله
كود :
procedure test;
var
Lst : TListItem;
begin
for i:=0 to Matchcollection.count-1 do
begin
lst:=listview1.Items.Add;;
lst.Caption:=submatches[0];
lst.SubItems.Add(submatches[1]);
lst.SubItems.Add(submatches[2]);
lst.SubItems.Add(submatches[3]);
end;
end;
لأستهلنّ الصعب أو أدرك المنى فما انقادت الآمال إلاّ لصابر


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)