coolslob

procedure AutoFitable(AGrids: TStringGrid);//传入TStringGrid对像即可, 2004/10/28,CoolSlobvar  I, J: Integer;  MaxLenRow: Integer;  CurRowLen: Integer;begin  inherited;  for J := 0 to AGrids.ColCount - 1 do 

 http://msdn.microsoft.com/en-us/library/ms724429(VS.85).aspxThe following example uses the GetVersionEx, GetSystemMetrics, GetProductInfo, and GetNativeSystemInfofunctions to determine

(源自：http://community.youkuaiyun.com/expert/Topicview1.asp?id=4950441)function LoadStr(Ident: Integer): string;begin  Result := FindStringResource(Ident);end;->function FindStringResource(Ident: Integer): st

这里摘抄Delphi7帮助文档中的一段：Calling conventionsWhen you declare a procedure or function, you can specify a calling convention using one of the directives register, pascal, cdecl, stdcall, and safecall. Fo

作者：CoolSlob功能：码用于完成在Panel上显示一个BMP文件（现多信息请参阅BMP文件结构相关文章）var  dc:HDC;  hdd:HDRAWDIB;  Stream: TStream;  hdr: BITMAPFILEHEADER;  m_pbmih: TBITMAPINFOHEADER;  BITMAP_TYPE: WORD;  S: string;  len: Inte

　　Delphi开发程序使用XPManifest控件，将导致在删除（使用Backspace健）ComboBox内容时出现乱码。经跟踪发现，在执行以下过程的HasSelectedText函数部分（附文章结尾），通过SendMessage发送CB_GETEDITSEL消息返回的StartPos、EndPos值发生错误。问题的重现：1、新建一工具，在窗口上分别放置一个XPManifest和一个Com

function ExportStrGridToExcel(Args: array of const): Boolean;var  iCount, jCount: Integer;  XLApp: Variant;  Sheet: Variant;  I: Integer;begin  Result := False;  if not VarIsEmpty(XLApp) then  begin 

自己在调试时忘记了第3步，结果总是调试不成功，写到blog上，记录一下1、设置host为%system32%/hostdll.exe (注意把system32替换成实际的路径)2. 把parameters设置成/processID:{4181FE23-F8E7-4B43-BC12-0B771711EB9E} (注意后面的是应程程序ID)3. 选中"Include TD32 Debug Info"和

{功能：模拟Nokia手机的输入法控件，继承自TCustomEdit作者：CoolSlob支持：CoolSlob # 163.com 最后更新：2004/12/11}unit NokiaEdit;interfaceuses  SysUtils, Classes, Controls, StdCtrls, ExtCtrls, Dialogs;type  KeysetInt = -1..9;

传说中的goto程序：）echo offset i=0:loopset /a i=%i%+1if %i% GEQ 100 goto endgoto loop:endecho %i%关于批处理比较符号的说明：EQU - 等于NEQ - 不等于LSS - 小于LEQ - 小于或等于GTR - 大于GEQ - 大于或等于