摘要：varI, FoundPos: integer;AColumn : TcxGridDBColumn;AText : String;beginAText := 'Blue Sports';with cxGrid1DBTableView1 dobeginAColumn := GetColumnByFieldName('Company');for I := 0 to ViewData.RecordCount - 1 doif ViewData.Rows[I].IsData thenbeginViewData.Rows[I].Focused := True;with C 阅读全文

摘要：//找到指定位置，并将文字插入Grid当前的编辑单元格中varPart1, Part2 : string;CurrentEditor : TcxTextEdit;beginCurrentEditor := TcxTextEdit(<view>.Controller.EditingController.Edit);if CurrentEditor <> nil thenbeginPart1 := Copy( CurrentEditor.Text, 1, CurrentEditor.SelStart );Part2 := Copy( CurrentEditor.Text, 阅读全文

摘要：以前也曾经为 Delphi 中相对路径与绝对路径之间的转换烦恼过。但时，用得少，也没过多地去注意了。今天要写一个小程序，又遇到了这个问题。就找资料吧，终于找到了最简单，最直接的方式。现在把函数整理如下：//取绝对路径的函数。需要引用 ShlwApi.pas// BasePath: 是参考路径。RelativePath: 是指相对路径function GetAbsolutePathEx(BasePath, RelativePath:string):string;var Dest:array [0..MAX_PATH] of char;begin FillChar(Dest,MAX_PATH+1, 阅读全文

摘要：procedure TForm1.FlatButton1Click(Sender: TObject);var FilePath:String;// numberzip:Smallint;begin FilePath:=ExtractFilePath(Application.ExeName)+'顺德';{ Thread1:=TShowProgress.create(FilePath); //创建线程计算总目录 Thread1.Priority:=tpNormal; Thread1.FreeOnTerminate:=True;} FilePath:=ExtractFilePath( 阅读全文

摘要：unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Memo1:TMemo; Button1:TButton; Button2:TButton; Button3:TButton; Button4:TButton; Button5:TButton; Button6:TButton; Button7:TButton; procedureButton1Click(Sender:TO 阅读全文

摘要：unit Crc32; interface uses Windows; const Table: array[0..255] of DWORD = ($00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706AF48F, $E963A535, $9E6495A3, $0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988, $09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91, ... 阅读全文

摘要：varaintf:_Recordset;RecordsAffected:OleVariant;beginADOStoredProc1.Close;ADOStoredProc1.Open;aintf:=ADOStoredProc1.Recordset;ADOQuery1.Recordset:=aintf;aintf:=aintf.NextRecordset(RecordsAffected);ADOQuery2.Recordset:=aintf;end;此时,把存储过程中生成的二个数据集分别在adoquery1,adoquery2中,将adoquery1,adoquery2与DBGrid相连中,即 阅读全文