FindFile doesn't support Delphi 2009

[smrwsmrw]

FindFile doesn't support Delphi 2009, could you make a patch?

[Pascal Error] FindFile.pas(329): E2004 Identifier redeclared: 'Forms'
[Pascal Warning] FindFile.pas(330): W1005 Unit 'FileCtrl' is specific to a platform
[Pascal Warning] FindFile.pas(336): W1000 Symbol 'faVolumeID' is deprecated
[Pascal Warning] FindFile.pas(355): W1050 WideChar reduced to byte char in set expressions
[Pascal Error] FindFile.pas(367): E2010 Incompatible types: 'AnsiChar' and 'Char'
[Pascal Error] FindFile.pas(369): E2010 Incompatible types: 'Char' and 'AnsiChar'
[Pascal Warning] FindFile.pas(379): W1050 WideChar reduced to byte char in set expressions
[Pascal Warning] FindFile.pas(458): W1050 WideChar reduced to byte char in set expressions
[Pascal Warning] FindFile.pas(465): W1050 WideChar reduced to byte char in set expressions
[Pascal Warning] FindFile.pas(484): W1050 WideChar reduced to byte char in set expressions
[Pascal Warning] FindFile.pas(551): W1050 WideChar reduced to byte char in set expressions
[Pascal Warning] FindFile.pas(582): W1050 WideChar reduced to byte char in set expressions
[Pascal Warning] FindFile.pas(680): W1002 Symbol 'faArchive' is specific to a platform
[Pascal Warning] FindFile.pas(680): W1002 Symbol 'faReadOnly' is specific to a platform
[Pascal Warning] FindFile.pas(680): W1002 Symbol 'faHidden' is specific to a platform
[Pascal Warning] FindFile.pas(680): W1002 Symbol 'faSysFile' is specific to a platform
[Pascal Warning] FindFile.pas(698): W1002 Symbol 'faArchive' is specific to a platform
[Pascal Warning] FindFile.pas(698): W1002 Symbol 'faArchive' is specific to a platform
[Pascal Warning] FindFile.pas(700): W1002 Symbol 'faReadOnly' is specific to a platform
[Pascal Warning] FindFile.pas(700): W1002 Symbol 'faReadOnly' is specific to a platform
[Pascal Warning] FindFile.pas(702): W1002 Symbol 'faHidden' is specific to a platform
[Pascal Warning] FindFile.pas(702): W1002 Symbol 'faHidden' is specific to a platform
[Pascal Warning] FindFile.pas(704): W1002 Symbol 'faSysFile' is specific to a platform
[Pascal Warning] FindFile.pas(704): W1002 Symbol 'faSysFile' is specific to a platform
[Pascal Warning] FindFile.pas(716): W1002 Symbol 'faArchive' is specific to a platform
[Pascal Warning] FindFile.pas(718): W1002 Symbol 'faReadOnly' is specific to a platform
[Pascal Warning] FindFile.pas(720): W1002 Symbol 'faHidden' is specific to a platform
[Pascal Warning] FindFile.pas(722): W1002 Symbol 'faSysFile' is specific to a platform
[Pascal Warning] FindFile.pas(1194): W1002 Symbol 'FindData' is specific to a platform

[Kambiz]

Of course not, because I don't have Delphi 2009. I'm sorry!

[salim]

Yes Kambiz , we really need this greate component to be functional under Delphi 2009 , could you please make a Patch .


Regards

[Kambiz]

I love to do that, but how can I do it without having Delphi 2009?

[salim]

I love to do that, but how can I do it without having Delphi 2009?

Thank you Kambiz , Delphi 2009 is out there ( available Now ) , could you please the Patch .

Many Thanks .

[Kambiz]

Where? Is it free?

[Rony Gellaerts]

Kambiz,

Maybe you can download the trial version for the time being and do the patch.

Rony

[Kambiz]

It could be a solution but look at the following blog post:
http://blog.marcocantu.com/blog/delphi2009trial.html

I also agree with that post, after Delphi 7 the Delphi help is useless.

[w2m]

To easily compile FindFile.pas in Delphi 2009, change string to AnsiString, char to AnsiChar and PChar to PAnsiChar. Then change ALL string (now unicodestring) Windows API methods to AnsiString methods: ie- IsCharAlphaNumeric(C) to IsCharAlphaNumericA(C).

Once you do that it will compile and install, and function in Delphi 2009.
By changing to Ansi FindFile will not handle unicode strings however and it will not compile in Delphi versions other than Delphi 2009.

I can post the code here if Kambiz would like that.

Bill

[Kambiz]

Thanks Bill, it would be nice.

[w2m]

The attached version of findfile will only compile with Delphi 2009.
The attached version does not support unicode.

[w2m]

Findfile Attachment