admin - Tech Story - Page 1546 of 1566

Author: admin

Browse for folder

unit BrowseForFolderU; interface function BrowseForFolder(const BrowseTitle: String; const InitialFolder: String = ”; MayCreateNewFolder: Boolean = False): String; implementation uses Windows, Forms, shlobj; var lg_StartFolder: String; // With later versions …

FAST Pos() replacement

unit asm_pos; interface function Pos_Sensitive(const SubStr: AnsiString; const Str: AnsiString): Integer; function Pos_Insensitive(const SubStr, S: string; Offset: Integer = 1): Integer; implementation //————————————————————————// // Fast case INsensitive Pos replacement …