1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30:
| for c := stringgrid2.rowcount -1 downto 1 do begin for r := stringgrid1.RowCount -1 downto 0 do if sametext(stringgrid2.Cells[4,c], stringgrid1.Cells[4,r]) then GridDelRow(r,StringGrid1); form1.Refresh; end;
for r := stringgrid1.RowCount -1 downto 1 do if length(stringgrid1.Cells[10,r]) > 2 then begin datei := stringgrid1.Cells[4,r]; download1 := stringgrid1.Cells[10,r]; stringgrid2.RowCount := stringgrid2.RowCount+1; i := stringgrid2.RowCount+1; stringgrid2.Cells[0,i] := stringgrid1.Cells[0,r]; stringgrid2.Cells[1,i] := stringgrid1.Cells[1,r]; stringgrid2.Cells[2,i] := stringgrid1.Cells[2,r]; stringgrid2.Cells[3,i] := stringgrid1.Cells[3,r]; stringgrid2.Cells[4,i] := stringgrid1.Cells[4,r]; stringgrid2.Cells[5,i] := stringgrid1.Cells[5,r]; stringgrid2.Cells[6,i] := stringgrid1.Cells[6,r]; stringgrid2.Cells[7,i] := stringgrid1.Cells[7,r]; stringgrid2.Cells[8,i] := stringgrid1.Cells[8,r]; stringgrid2.Cells[9,i] := stringgrid1.Cells[9,r]; stringgrid2.Cells[11,i] := stringgrid1.Cells[11,r]; stringgrid2.Cells[10,i] := 'Downloaded xD'; griddelrow(r,stringgrid1); end; |