[DELPHI] Ritrovamento e copia di un file

[crippo]

ciao a tutti
ho un piccolo problemino:

con questa procedura popolo una combo con tutte le sottocartelle di una certa cartella e fin qui tutto a posto

 
procedure TWinForm1.popolaCombo();
var
  Search : TSearchRec;
begin
  FindFirst('c:\cartella\*.*', faDirectory, search );
  while FindNext(Search) = 0 do
  begin
    ComboBox1.Items.Add(Search.Name);
  end;
  FindClose(Search);
end;

successivamente devo copiare dei file da un cartella ad un altra e utilizzo la seguente funzione:

 
CopyFile('c:\cartella\file1.txt, 'c:\cartella2\file2.txt', true);

per utilizzare questa funzione ovviamente devo includere la clausola 'uses Windows' all'inizio. il problema è questo: se aggiungo appunto 'uses windows' mi crea il seguente errore: Incompatible types: 'Integer' and 'TsearchRec' nella riga dove avviene 'FindClose(Search)'.
Se tolgo 'uses Windows', 'FindClose' compila correttamente ma ovviamente mi crea un errore su 'CopyFile'.
Qualche soluzione?

[crippo]

guardando l'help il problema presumo sia per il fatto che esistono 2 funzioni findClose:

Namespace
Borland.Vcl.Windows
Syntax
function FindClose(hFindFile: Integer): LongBool;


Namespace
Borland.Vcl.SysUtils
Syntax
procedure FindClose(var F: TSearchRec);


hFindFile: Integer cosa sarebbe???
se io volessi usare la seconda non dovrebbe esserci overload???

[crippo]

scusate, che mona, ho già risolto...

se a qualcuno può interessare dovevo passare a FindClose l'handle del search ovvero FindClose(Search.FindHandle);

[alka]

Io invece sospetto che vi sia una funzione Search, che magari restituisce un intero, e che il compilatore tenti di utilizzare tale funzione al posto della tua variabile, anche se le regole dello "scope" non dovrebbero consentirlo.

Prova ad usare un nome differente per la variabile se ti capita qualcosa di simile di nuovo.

Ciao!

[Nikk11]

perchè non fai


SysUtils.FindClose(Search);


Così sistemi il problema di omonimia delle due funzioni.

Ciao

[crippo]

non ci avevo pensato...
con SysUtils.FindClose(Search); funziona
grazie mille