Others

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, regularexpressions; Type tform1 = Class (tform) memo1: tmemo; button1: tbutton; Procedure button1click (Sender: tobject); Private

  Change the default font for each new window , Inconvenient . You can change the value by adding a registration value. Delphi Default font of the system   Modify the registry: HKEY_CURRENT_USER/software/Borland/Delphi/5.0/formdesign

TMS scripter: supports Pascal and VBScript syntaxes. The advantage is that the documentation and examples are complete, and scripts can directly support DLL. The official website also provides a variety of IDE debug tools and Unit Export function

Uses Ehlibado;   Improved dbgrideh text filtering. % string % was originally required. After modification, enter the string to be searched directly. Related code:   Procedure tstcolumnfiltereh. internalsetexpressionstr (const value: string

Uses cxexportgrid4link;VaRSavedialog: tsavedialog;BeginSavedialog: = tsavedialog. Create (NiL );With savedialog doBeginFilter: = '*. xls | *. xls ';If execute thenBeginExportgrid4toexcel (filename, vgrid, true, 'xls ');End;End;Savedialog. Free;End;

All the classes, controls, methods, and functions used in the script must be registered before the script can recognize these objects. I am using scripter studio pro 1.2 and found that only scripts support files for the control provided by Delphi

Step 1 create a stored procedure Create proc myabc @ A int, @ B INT, @ C int outputAsSet @ C = @ A * @ B Run the query analyzer in SQL: Declare @ A int, @ B INT, @ C intSet @ A = 250Set @ B = 40Exec myabc @ A, @ B, @ C output -- add the output

There are four types of API functions for memory allocation. The virtual function is used to allocate and manage a large amount of memory. The heap function is used to allocate a small amount of memory. The global function and local function are

There is a thashedstringlist class in Delphi. This class can be used to implement hash table operations. To use this class, you need to reference the inifiles header file. The hash table is designed to improve the search speed. For example, the data

Format: Number of shl/SHR mobile digits Description: The operands and return values are both integers. Example: 16 (10) = 10000 (2) 16 (10) SHR 1 = 10000 (2) SHR 1 = 1000 (2) = 8 (10) 16 (10) SHR 2 = 10000 (2) SHR 2 = 100 (2) = 4 (10) Note: An

Fillmemory and zeromemory functions are clear at a glance, but they all call fillchar; To empty a bucket, enter the null character (#0: The character number is 0. For the following test, first write a function to view the memory in hexadecimal mode:

Normally, you do not need to allocate memory when using a structure or structure array. For example: VaRPTS: tpoint;BeginPTS. X: = 1; PTS. Y: = 2; Showmessagefmt ('% d, % d', [Pts. X, PTS. Y]); {1, 2}End; // Structure array:VaRArr:Array[0..

Map LayerImagine that the layer is transparent, and each layer contains different parts of the map. These layers are stacked to view the entire map information. A computer map consists of multiple layers. Imagine that these layers are transparent,

Client. ini[Screen]X = 1024Y = 768 Map. MDBMap_id map_chk_station map_x_min map_x_max map_y_min map_y_max1 monitoring site 574 613 283 3212. Monitoring site 517 563 127 1623, 4, monitoring site 854, 899, 34, 74 Procedure tformmain. image1mousemove

Fillmemory and zeromemory functions are clear at a glance, but they all call fillchar; To empty a bucket, enter the null character (#0: The character number is 0. For the following test, first write a function to view the memory in hexadecimal mode:-

// Writen by yongnan Studio (Chen XinGuang) 14:31:26 {For example:VaRQ: tadoquery;BeginResult: = nil;Q: = g_adoquerypool.getadoquery;If q <> nil thenBeginQ. close;Q. SQL. Clear;Q. SQL. Text: = sqlcommand;Q. open;Result: =

{-------------------------------------------------------------------------------Process name: makefilelistAuthor: swgwebDate: 2007.11.25Parameter: path, fileext: String 1. Directory to be traversed 2. File Extension to be traversedReturned value:

Description of the moving average algorithm:During cost calculation, the system automatically calculates the outbound cost according to the order in which the document service occurs. For the inbound business, the system automatically calculates the

Function isfileinuse (fname: string): Boolean;VaRHfileres: hfile;BeginResult: = false;If not fileexists (fname) thenExit;Hfileres: = createfile (pchar (fname), generic_read or generic_write, 0,Nil, open_existing, file_attribute_normal, 0 );Result: =

Problem Source: http://www.cnblogs.com/del/archive/2008/03/06/1094289.html#2023057 In C: \ temp \, prepare three images: 1.bmp, 2.bmp, 3.bmp, and then: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,