雷少

<br />大概有这些方法可以获得文件大小 <br />FileSizeByName（需要引用IdGlobal单元） <br />GetFileSize <br />FileSize（不能获得正在使用的文件大小） <br />FileSeek <br />TFileStream.Size <br /><br />下面是使用例子 <br />1。FileSizeByName（需要引用IdGlobal单元） <br />begin <br />if OpenDialog1.E

<br />var<br />  I, FoundPos: integer;<br />  AColumn : TcxGridDBColumn;<br />  AText : String;<br />begin<br />  AText := 'Blue Sports';<br />  with cxGrid1DBTableView1 do<br />  begin<br />    AColumn := GetColumnByFieldName('Company');<br />    for I :=

//找到指定位置，并将文字插入Grid当前的编辑单元格中var   Part1, Part2 : string;   CurrentEditor : TcxTextEdit;begin  CurrentEditor := TcxTextEdit(.Controller.EditingController.Edit);  if CurrentEditor nilthen  begin    Part1 := Copy( CurrentEditor.Text, 1, CurrentEditor.SelStar

<br />procedure TForm1.FlatButton1Click(Sender: TObject);<br />var<br />   FilePath:String;<br />//   numberzip:Smallint;<br />begin<br />   FilePath:=ExtractFilePath(Application.ExeName)+'顺德';<br />{   Thread1:=TShowProgress.create(FilePath);             

 unit   Crc32;  <br />   <br />  interface  <br />   <br />  uses   Windows;  <br />   <br />      const  <br />      Table:   array[0..255]   of   DWORD   =  <br />          ($00000000,   $77073096,   $EE0E612C,   $990951BA,  <br />          $076DC419,  

<br />unit   Unit1;   <br />    <br />  interface   <br />    <br />  uses   <br />      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,   <br />      StdCtrls,   Db,   ADODB,   comobj;   <br />    <br />  type   <br

unit Unit1;     interface     uses     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,     Dialogs, StdCtrls;     type     TForm1 = class(TForm)       Memo1: TMemo;       Button1: TButton;       Button2: TButton;       Button3: T

<br />DELPHI打开窗体时，提示父类文件找不到<br />这两天，使用工程中突然在打开窗体的时候出错，大概的意思就是找不开父类文件(因为我是从其他窗体继承过来的)。但如果先打开父类窗体 <br />又不会出错。搞了很久，没有搞定。系统也重装，还是不行。最后看到下面这遍文章才解决。 <br />我的方法是，把父类窗体全部从工程中移除，再从新添加进来就OK了。 <br /> <br />有的时候，我们会碰到一些比较烦人的东西，打开某个继承的窗体，会提示说基类窗体找不到，并且找不开这个窗体，必须先打开基类

<br />//自绘POPUPMENU，使其强制向上弹出<br />  TrackPopupMenu(Pmu_ReportList.Items.Handle, TPM_BOTTOMALIGN, sPoint.X-cPoint.X,sPoint.Y-cPoint.Y,<br />    0, PopupList.Window, nil);

function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能：返回按指定方式格式化一个数组常量的字符形式说明 这个函数是Delphi中用得最多的函数，现在就列举几个例子以得到直观的理解"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型它是以"%"开始,而以"类型"结束，"类型"表示一个具体的类型。中间是用来格式化"类型"的指令字符，是可选的。

<br /><br />非COM环境下的接口编程<br />------问题，技巧，应用<br />先行知识：Delphi/接口/Dll/OOP<br /> <br />难度：★★★☆☆<br /> <br /> <br /> <br />引子：<br /> <br />接口的概念由来已久，早在COM出现之前（COM应该是95年左右）接口的概念就已经在面向对象的开发中根深蒂固了，著名的《设计模式》（94年出版）中也指出“针对接口编程而不是针对实现编程”。使用接口可以降低软件系统中不同模块的偶合性，利于软件系