Fórum listview #213741

ola pessoal estou com um probleminha.. [quote:a675e95175]procedure TFRMRestparcial.Button1Click(Sender: TObject); var Files: TStringlist; I: integer; S, FA, SZ: string; Item: TListItem; begin Files := TStringlist.create; Listview.items.beginupdate; Listview.items.clear; Statusbar.panels[1].text := ´Total ´+inttostr(backupfile1.FilesTotal)+´ arquivos, ´+inttostr(backupfile1.SizeTotal)+´ bytes´; for I := 0 to Files.count-1 do begin S := copy(files[i],1,pos(#9,Files[i])-1); //file name FA := copy(files[i],pos(9,Files[i])+1,pos(´=´,Files[i])-pos(9,Files[i])-1); //file age SZ := copy(files[i],pos(´=´,Files[i])+1, length(Files[i])-pos(´=´,Files[i])); //file size in Bytes Item := ListView.Items.Add; Item.Caption := ExtractFileName(S); if pos(lowercase(extractfileext(s)),´.exe.com´) = 0 then Item.imageindex := 1; Item.Subitems.Add( DateToStr(FileDateToDateTime(StrtoInt(FA))) ); Item.Subitems.Add( TimeToStr(FileDateToDateTime(StrtoInt(FA))) ); Item.SubItems.Add( SZ ); Item.SubItems.Add( ExtractFileDir(S) ); end; Listview.items.endupdate; { Done. We don´t need the stringlist anymore } files.free; { Just update the status bar } ListViewClick(self);