Problème avec le TListView!!

Salut à tous!

J'ai un problème avec le TListView, J'ai deux colonnes "Nom" et "Chemin",

Ensuite je vien pour appuyer sur mon bouton... Dans les Colones "Nom" et "Chemin": Nom: C:/ Chemin: test.txt begin Memo.Lines.LoadFromFile(ListView1.Selected.Subitems.Text+ListView1.Selected.Caption); end;

Quand je fait ceci il n'est pas capable d'ouvrir le fichier, une erreur survien! (Cannot Open File....) Mais si je mais le "Chemin"+"Nom" dans un TLabel à la main... ceci va marcher..

Moi je comprend rien dans sa!
Pouvez-vou m'aider!

Merci d'avance!

- MAsterC -

Essaye avec des MsgBox pour visualiser ce que fait le programme.

procedure AddInfos(Path : string ; FileName : string);
var
ListItem: TListItem;

begin
with Log_Form.Log_ListView do
begin
ListItem := Items.Add;
ListItem.Caption := Path ;
ListItem.SubItems.Add(FileName );
end;
end;

[big_fury]SiZiOUS

j'ai essaiyé avec un MsgBox puis le chemin du fichier qu'il m'indique est le même que celui que j'ai choisi... puis sa ne marche pas... il y a surment qu'elle que chose de pas correcte d'après moi...

j'ai l'impression que le ListView ajoute quelque chose a la Caption de mon chemin...


- MAsterC -

OK tu peux poster ta source sur le forum pour voir ca?

[big_fury]SiZiOUS

Ok bon je croit avoir résolut mon problème, seulement voici comment;

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;

Seulement si tu essaie ce code tu verra que cette ligne de code: "ListView1.Items.Add.SubItems.Text := ExtractFileName(DOpen.FileName);" ne fonctionne pas très bien....

Comment faire afficher le "SubItems" dans la même ligne que l'autre item...

* Pour mieux comprendre, essaie le code ...

Merci d'avance!

- MAsterC -

Déjà, la solution etait dans mon premier post ^^'
Ensuite, un super Tutorial de DelphiCool etait sur ce site...
Enfin, voici l'unit complet avec en bonus GetFileSize...:

unit 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.

[big_fury]SiZiOUS