procedure TForm1.Button1Click(Sender: TObject); begin if DOpen.Execute then begin ListView1.Items.Add.Caption := DOpen.FileName; ListView1.Items.Add.SubItems.Text := ExtractFileName(DOpen.FileName); end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionunit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) DOpen: TOpenDialog; ListView1: TListView; Button2: TButton; procedure Button2Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} //-----------GetFileSize------------------------- function GetFileSize(FileName : string) : integer; var F : File; begin Result := 0; if FileExists(FileName) = False then Exit; AssignFile(F, FileName); Reset(F); Result := FileSize(F); CloseFile(F); end; //------------AddInfos--------------------------- procedure AddInfos(ListView : TListView ; Path : string ; FileName : string); var ListItem: TListItem; begin with ListView do begin ListItem := Items.Add; ListItem.Caption := Path; ListItem.SubItems.Add(FileName); ListItem.SubItems.Add(IntToStr(GetFileSize(FileName))); end; end; //------------Fin de la fonction--------------------------- procedure TForm1.Button2Click(Sender: TObject); begin if DOpen.Execute then AddInfos(ListView1, DOpen.FileName, ExtractFileName(DOpen.FileName)); end; end.