CnPack Forum

#1 What' mistake in code?
var
SearchRec: TSearchRec;
SearchResults: Integer;
ImagesList: TStringList;
MyRnd : Integer;
begin

ImagesList:= TStringList.Create;
try
Path:= '?:\MySuperDir\MySuperSubDir\';
SearchResults := FindFirst(Patch + '*.bmp', faAnyFile, SearchRec);
while SearchResults = 0 do
begin
if SearchRec.Attr <> faDirectory then ImagesList.Add(Patch + SearchRec.Name);
SearchResults := FindNext(SearchRec);
end;
FindClose(SearchRec);
if Images ..

#1 >>Next Page

Forum:CnWizards IDE Wizard ...
Thread:What' mistake in cod ...
Next Thread:[Feature Request] No ...

Home
Login

Powered by Discuz!