Moje funkce
function createTestyDirsList(TestyDir: string):TStringList;
var i: Integer;
TestyDirs : TStringList; // for folders sreach
SearchRecord : TSearchRec;
begin
TestyDirs := TStringList.create();
if FindFirst(TestyDir,faDirectory,SearchRecord)=0 then
begin
while FindNext...
Založil oxidián; 4 názory, poslední před 4 minutami – nevyřešeno
Založil oxidián; 4 názory, poslední před 4 minutami – nevyřešeno