Random String
[code lang=”delphi”]Var LoopInt : Integer; DirName, FullName, RanStr : String; FileSavedTo : TextFile; // Length of string to create RandArray : Array[0..4087] Of…
Strip Comments from String
[code lang=”delphi”]type STRIP_STATES = ( SS_NORMA, SS_BRACE, SS_PAREN, SS_LITER ); function SCFS( const S : string; var SS : STRIP_STATES ): string; //…
Tokenizing
Tokenize a string: ExtractString (Classes.pas) [tags]Delphi, Strings[/tags]
How to play system-Sounds?
Q:How to play system-Sounds? A: [code lang=”delphi”]Uses mmsystem ; PlaySound(‘SystemExclamation’,0,SND_ALIAS or SND_ASYNC); PlaySound(‘SystemAsterisk’,0,SND_ALIAS or SND_ASYNC); You can look in the registry to find…
Installer: GPInstall
Installer written in delphi: http://www.qsc.co.uk/gpinstall/gpinstall.htm [tags]Delphi, Shareware, Installer[/tags]
Installer: InnoSetup
> Hi Art what is the URL of Inno-setup http://www.innosetup.com [tags]Delphi, Shareware, Installer[/tags]
Nasty nag crap
In your FormShow event: [code lang=”delphi”]procedure TForm1.FormShow(Sender : TObject); var atom : integer; CRLF : string; begin if GlobalFindAtom(‘THIS_IS_SOME_OBSCUREE_TEXT’) = 0 then atom…
A Better Way To Print a Form
Technical Information Database TI1412D.txt A Better Way To Print a Form Category :General Programming Platform :All Product :Delphi All Description: The following TI…
Print Bitmap as DIB
Print Bitmap as DIB by Boris Nienke (you need a Form with a TImage and a TButton) – just for 24bit bitmaps. If…
QuickReport and Win2000
> a client using a Delphi program written by me installed Win2k on his > Computer and now some QuickReports don’t work. With…