delphi x 问： 1

taohua300 2011-10-13 02:33:49

前面有人说

看别人的源码是痛苦的

我现在说

对于不使用delphi的人看delphi源码更是痛苦的





unit TongJiFrm;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, cxControls, cxSSheet, cxContainer, cxEdit, cxTextEdit,

  cxMaskEdit, cxButtonEdit, ShellLink, JAMDialogs, cxCheckBox, cxGroupBox,

   Compress, ZLib, ActnList, cxClasses, dxBar, dxDockControl,   //CommRunForm,

  ImgList, dxDockPanel, ExtCtrls, RzPanel, cxRadioGroup, cxGraphics,

  cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,

  dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,

  dxSkinFoggy, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,

  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,

  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,

  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin, dxSkinSeven,

  dxSkinSharp, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,

  dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,

  dxSkinXmas2008Blue, dxSkinsdxBarPainter, dxSkinsdxDockControlPainter;



type

  TTongJiForm = class(TForm)

    JamBrowseForFolder1: TJamBrowseForFolder;

    dxBarManager1: TdxBarManager;

    dxBarButton1: TdxBarButton;

    ilSmall: TImageList;

    dxDockingManager1: TdxDockingManager;

    dxBarManager1Bar1: TdxBar;

    dxBarButton2: TdxBarButton;

    dxBarButton3: TdxBarButton;

    ActionList1: TActionList;

    actClose: TAction;

    actTongJi: TAction;

    dxDockPanel1: TdxDockPanel;

    dxDockSite1: TdxDockSite;

    dxLayoutDockSite1: TdxLayoutDockSite;

    RzPanel1: TRzPanel;

    Label1: TLabel;

    edtSourcePath: TcxButtonEdit;

    chkFiles: TcxCheckBox;

    cxGroupBox1: TcxGroupBox;

    chkYiLu: TcxCheckBox;

    chkErLu: TcxCheckBox;

    chkJiaoDui: TcxCheckBox;

    RzPanel2: TRzPanel;

    Memo1: TMemo;

    cxSpreadSheetBook1: TcxSpreadSheetBook;

    chkErJiao: TcxCheckBox;

    chkSanJiao: TcxCheckBox;

    rgLeiXing: TcxRadioGroup;

    procedure edtSourcePathPropertiesButtonClick(Sender: TObject;

      AButtonIndex: Integer);

    procedure actTongJiExecute(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure actCloseExecute(Sender: TObject);

    procedure rgLeiXingClick(Sender: TObject);

  private

    FTongJiLie:string;

    FileList: TStringList;

    function FileTotal(Files: string): Integer;

    procedure PrepareFileList(aFolder: string);

    function TongJiNongQiYi1979(L: Integer): Integer;

    function TongJiNongQiYi1993(L: Integer): Integer;

    function TongJiNongQiEr1979(L: Integer): Integer;

    function TongJiNongQiEr1993(L: Integer): Integer;

    function TongJiNongQiSan1993(L: Integer): Integer;

    function TongJiNongQiSi1993(L: Integer): Integer;

    function TongJiFuSheJia(L: Integer): Integer;

    function TongJiFuSheYi(L: Integer): Integer;

    function TongJiFuSheSanJi(L: Integer): Integer;

    function TongJiQiBiao21(L:integer):Integer;

    { Private declarations }

  public

    FNongQiModel: string;

    { Public declarations }

  end;



var

  TongJiForm: TTongJiForm;



implementation



uses StrUtils;



{$R *.dfm}

在运行某个表单的时候

提示找不到 CommRunForm.dcu

全盘搜索没有找到

编译项目的时候

提示未定义的标示符
HLShowProgress
HLUpdateProgressMax
HLUpdateProgressTitle
HLUpdateProgress
HLHideProgress

这些好像是对某个进度条进行操作的

表单中没有看到进度条控件

贴一下部分源码

procedure TTongJiForm.actTongJiExecute(Sender: TObject);

var

  k, ZiFu, YiLu, ErLu, JiaoDui,ErJiao,SanJiao: Integer;

  ZhongZiFu: Int64;

  SrcPath, DestPath,Temp: string;

  TempPath: array[0..255] of char;

begin

  if Trim(edtSourcePath.Text) = '' then

  begin

    Application.MessageBox('请输入文件路径！', '提示', MB_OK +

      MB_ICONINFORMATION);

    Exit;

  end;

  Memo1.Clear;

  ZhongZiFu := 0;

  FileList := TStringList.Create;

  try

    PrepareFileList(edtSourcePath.Text);

    HLShowProgress('正在准备数据');

    try

      HLUpdateProgressMax(FileList.Count - 1);

      HLUpdateProgressTitle('正在统计工作量');

      for k := 0 to FileList.Count - 1 do

      begin

        try

          YiLu := 0;

          ErLu := 0;

          JiaoDui := 0;

          ErJiao:=0;

          SanJiao:=0;

          //解压缩

          SrcPath := FileList.Strings[k];

          GetTempPath(255, TempPath);

          Temp := TempPath;

          DestPath := Temp + 'CountryReport.dat';

          DeCompressFile(DestPath, SrcPath);

          cxSpreadSheetBook1.LoadFromFile(DestPath);

大伙儿帮着分析一下

他是个什么东西

我是要找一个这个控件（如果是控件）

还是找客户要函数

还是应该怎么做

...全文

128 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

zlb_chen 2011-10-13

打赏
举报

CommRunForm.pas

这个如果没有，那就没办法了。

去其他机器上搞一个过来。

taohua300 2011-10-13

打赏
举报

[Quote=引用 2 楼 hhkun0120 的回复:]
提示找不到 CommRunForm.dcu

全盘搜索没有找到

应该是CommRunForm.pas文件缺失了。
dcu文件是由pas文件生成的，你查找下这个pas文件吧
[/Quote]

pas 文件也没有

delphi 能单独的运行项目中的一个表单么？