Hi,
Michael John Phillips is a friend of mine for over 3 decades and he is
an unemployed Delphi communications programmer living in Canberra,
Australia. He writes excellent and well documented code and below is a
link to his Vortex unit. It is a mix of pascal and assembler for
Windowszzzz.
I am keen to use as much of it as practical for Lazarus cross platform
work. The reason why I don't want to port it myself is cos my assembler
knowledge is terrible and I don't want to cock-up Michael's excellent
work.
The vortex unit and other Delphi and pascal units found on the link at
the bottom of this email are truly worthy of conversion... with one
caveat -- we need to use compiler switches to exclude functions &
procedures with assembler code from non-Windows systems.
------------------------
Vortex
This unit contains various routines that I use regularly in the software
I write.
This includes routines to UpperCase, LowerCase, and Capitalise strings;
reading / writing disk sectors; searching a drive for a particular file;
copying a file; to name a few.
________________________________________________________________________
Unit Vortex;
{---------------------------------------------------------------------------}
{ Author : Michael John Phillips }
{ Address : Unit 53 / 3 Waddell Place }
{ Curtin ACT 2605 }
{ Tel : +61 (2) 6281-1980 }
{ Fax : +61 (2) 6281-1980 }
{ Mob : 0417 264319 }
{ Email : [email protected] }
{---------------------------------------------------------------------------}
{ 17 Mar 2002 MJP Added TV_StopWatch routine. }
{ 13 Apr 2002 MJP Added StringReplace routine. }
{ 04 May 2002 MJP Added IncludeTrailingBackslash, }
{ ExcludeTrailingBackslash and GetTempFileName }
{ routines. }
{ 28 May 2002 MJP Added V_GetComputerName routine. }
{ 11 Jun 2002 MJP Renamed GetTempFileName to V_GetTempFileName to match }
{ the equivalent routine I have in my Delphi version of }
{ the Vortex routines. }
{---------------------------------------------------------------------------}
http://members.pcug.org.au/~mphillip/T_INDEX.HTM
Peter
--
Love and Friendship, Peter Eric Williams
+61 3 6236-9675 (home or leave a message) Mobile 044-99-256-50
Proudly created in Australia. Quality Cross-Platform Games since 1970
with a Commodore PET 4016 with 16 Kilobytes of RAM (not Megabytes).
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
