filelistbox1.Directory:='c:\'不行啊 错误提示:[Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform
filelistbox1.Directory:='c:\'不行啊 错误提示: [Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform [Error] Unit1.pas(33): Left side cannot be assigned to
是的是的 procedure TForm1.FormCreate(Sender: TObject); begin filelistbox1.Directory:='c:\'; end; 可以了 但filelistbox1是空的???? 怎么回事??
procedure TForm1.FormCreate(Sender: TObject); var path:string; begin path:=ExtractFilePath(Application.ExeName)+'\PHOTO; filelistbox1.Directory:=path;end;这样可以了 结贴
错误提示:[Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform
错误提示:
[Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform
[Error] Unit1.pas(33): Left side cannot be assigned to
procedure TForm1.FormCreate(Sender: TObject);
begin
filelistbox1.Directory:='c:\';
end;
可以了
但filelistbox1是空的????
怎么回事??
我知道了谢谢~
那要取我程序目录下的 PHOTO目录的
filelistbox1.Directory:='\PHOTO';
怎么是错的??
filelistbox1.Directory:='.\PHOTO';
是错误的
extractfilepath(application.ExeName)+'\photo'
var path:string;
begin
path:=ExtractFilePath(Application.ExeName)+'\PHOTO;
filelistbox1.Directory:=path;end;这样可以了
结贴