Delphi tlistbox o tlistview

[Dalton]

Salve a tutti. Ho creato un software al quale se l'utente indica una cartella ne fa la scansione dei file contenuti, delle sottodirectory ,e dei file contenuti nelle sotto directory. Mi sapete dire come posso fare per inserire in una listbox o in una listview il risultato della scansione, ovvero i nomi dei file con estensione ed il loro indirizzo? Grazie mille a tutti




p.s é possibile creare a partire dal testo contenuto in una listbox o listview una database? grazie ancora ciauzzzz!!!

[MrCocò85]

se mi posti il codice ti posso dare una mano..

[alka]

Originariamente inviato da Dalton
Salve a tutti. Ho creato un software al quale se l'utente indica una cartella ne fa la scansione dei file contenuti, delle sottodirectory ,e dei file contenuti nelle sotto directory. Mi sapete dire come posso fare per inserire in una listbox o in una listview il risultato della scansione, ovvero i nomi dei file con estensione ed il loro indirizzo? Grazie mille a tutti

E' sufficiente inserire un controllo TListBox sul form nel quale devono essere visualizzati i risultati e utilizzare il metodo Add della proprietà Items del controllo per aggiungere i percorsi dei file individuati.

Per quanto riguarda il controllo TListView, il procedimento è analogo, ma la proprietà Items possiede un metodo Add che restituisce un riferimento all'elemento creato all'interno del controllo; puoi impostare successivamente la proprietà Caption del riferimento ottenuto da Add per modificare il testo dell'elemento; interessante è l'uso della proprietà SubItems per aggiungere testo alle colonne, configurabili attraverso la proprietà Columns del controllo ListView.

E' opportuno che consulti anche la Guida in linea per maggiori informazioni sui controlli, i metodi e le proprietà citate...troverai anche numerosi esempi a riguardo.

Ciao!

[Dalton]

Ok grazie alka ci provo.MrCocò85 il codice è il seguente:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, ToolEdit, uMfTreeExplorer, TimerLst, ExtCtrls,
RXClock;

type
TForm1 = class(TForm)
MfTreeExplorer1: TMfTreeExplorer;
DirectoryEdit1: TDirectoryEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure DirectoryEdit1Change(Sender: TObject);
procedure MfTreeExplorer1ScanComplete(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MfTreeExplorer1.Scan;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MfTreeExplorer1.Cancel;


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close
end;

procedure TForm1.DirectoryEdit1Change(Sender: TObject);
begin
MfTreeExplorer1.Path:=DirectoryEdit1.Text;
end;

procedure TForm1.MfTreeExplorer1ScanComplete(Sender: TObject);
begin
with TMfTreeExplorer(Sender) do
ShowMessage(Format('Scansione di %d files e %d cartelle completata', [FileNames.Count, DirNames.Count]));

end;



end.


e per il db?

[Dalton]

Scusate sapete dirmi dove trovare un howto su listbox o listview xche sintatticamente nn so come comportarmi, se è in italiano è meglio eheheheh!!Grazie!

[MrCocò85]

che versione di delphi usi??
io uso il sette e non ho questa unit uMfTreeExplorer,quindi non te posso aiutà..

[MrCocò85]

Cmq prova a vedere le proprietà di questo oggeto:controlla se
MfTreeExplorer1.filenames e MfTreeExplorer1.DirNames sono di tipo tstrings(così sembrano..).Se sono di questo tipo puoi associrali direttamente ad una listbox..es:
listbox1.items:=MfTreeExplorer1.filenames (inserendo così in una listbox il nome di tutti file cha ha trovato..)
Fammi sapere..

[Dalton]

anche io uso la sette questa è una componente che ho scaricato ed aggiunto io cmq ora provo a fare quello che mi hai scritto grazie mille!

[Dalton]

ok funziona grazie mille.Ma con listbox è possibile dividere la lista in colonne ognuna contente un attributo che so: nome tipo dimensione etc... o è solo possibile con listview?

[Dalton]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, ToolEdit, uMfTreeExplorer, ExtCtrls, ProgressCyl,
ComCtrls;

type
TForm1 = class(TForm)
MfTreeExplorer1: TMfTreeExplorer;
DirectoryEdit1: TDirectoryEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
ProgressCyl1: TProgressCyl;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure DirectoryEdit1Change(Sender: TObject);
procedure MfTreeExplorer1ScanComplete(Sender: TObject);
procedure MfTreeExplorer1ProgressUpdate(Sender: TObject;
const DirName: String; const Percent: Integer);




private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MfTreeExplorer1.Scan;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MfTreeExplorer1.Cancel;
listbox1.Clear

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close
end;

procedure TForm1.DirectoryEdit1Change(Sender: TObject);
begin
MfTreeExplorer1.Path:=DirectoryEdit1.Text;
end;

procedure TForm1.MfTreeExplorer1ScanComplete(Sender: TObject);
begin
with TMfTreeExplorer(Sender) do
ShowMessage(Format('Scansione di %d files e %d cartelle completata', [FileNames.Count, DirNames.Count]));

end;

procedure TForm1.MfTreeExplorer1ProgressUpdate(Sender: TObject;
const DirName: String; const Percent: Integer);
begin
Listbox1.Items:=MfTreeExplorer1.FileNames
end;



end.