如何安装mwedit控件!(70分)

  • 主题发起人 主题发起人 yangh
  • 开始时间 开始时间
Y

yangh

Unregistered / Unconfirmed
GUEST, unregistred user!
安装时,需要mwFastTime,这东东怎么安装!她只有两个文件
mwFastTime.pas,mwFastTime.dcr
 
把mwFastTime.pas这个文件包含到任何一个安装过的包里然后重编译这个包就行了
使用菜单上的component选单,看看,很容易的
 
在component的对话框中选择mwFastTime.pas的路径,OK就可以了
 
两位的方法试过了,编译的时候提示有错
我的机器是windows20000advance server.delphi5.0
怎么解决,大虾帮帮忙!!
 
那可能是还需要别的文件,你没有吧,你在哪儿下载的这个控件?
 
to fyx: http://www.csdn.net/dev/delphi/
 
我也去下载了看了,是个高精度计算时间(毫秒级)控件。你把出错两句控制版本的代码注释掉
就可以安装了:
function TmwFastTime.GetElapsed: Extended;
begin
{$IFDEF VER120}
// Result:= (_LARGE_INTEGER(n2).QuadPart - _LARGE_INTEGER(n1).QuadPart) / _LARGE_INTEGER(c).QuadPart;
{$ELSE}
// Result:= (n2.QuadPart - n1.QuadPart) / c.QuadPart;
{$ENDIF}
end;
 
to fyx :
你从哪下的mwFastTime,我是从另一个站点下载的,没有那两句!
只有
:unit mwFastTime;

interface

uses
Windows, SysUtils, Classes;

type
TmwFastTime = class(TComponent)
private
c, n1, n2: TLargeInteger;
FElapsedTime : ShortString;
protected
public
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
Property ElapsedTime : ShortString read FElapsedTime;
Procedure Start;
Procedure Stop;
published
Property Name;
Property Tag;
end;

procedure Register;


implementation

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

procedure Register;
begin
RegisterComponents('mw',[TmwFastTime]);
end;


{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

constructor TmwFastTime.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
FElapsedTime := '';
end;


{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

destructor TmwFastTime.Destroy;
begin
inherited Destroy;
end;


{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

Procedure TmwFastTime.Start;
begin
QueryPerformanceFrequency(c);
QueryPerformanceCounter(n1);
end;


{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

Procedure TmwFastTime.Stop;
begin
QueryPerformanceCounter(n2);
<font color="#FFFFFF">
这出错
FElapsedTime:= format('Seconds: %g', [(n2.QuadPart - n1.QuadPart)/ c.QuadPart]);
</font>
end;
end.
 
to fyx :
你从哪下的mwFastTime,我是从另一个站点下载的,没有那两句!
只有
:unit mwFastTime;

interface

uses
Windows, SysUtils, Classes;

type
TmwFastTime = class(TComponent)
private
c, n1, n2: TLargeInteger;
FElapsedTime : ShortString;
protected
public
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
Property ElapsedTime : ShortString read FElapsedTime;
Procedure Start;
Procedure Stop;
published
Property Name;
Property Tag;
end;

procedure Register;


implementation

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

procedure Register;
begin
RegisterComponents('mw',[TmwFastTime]);
end;


{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

constructor TmwFastTime.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
FElapsedTime := '';
end;


{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

destructor TmwFastTime.Destroy;
begin
inherited Destroy;
end;


{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

Procedure TmwFastTime.Start;
begin
QueryPerformanceFrequency(c);
QueryPerformanceCounter(n1);
end;


{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

Procedure TmwFastTime.Stop;
begin
QueryPerformanceCounter(n2);
<font color=red >
这出错
FElapsedTime:= format('Seconds: %g', [(n2.QuadPart - n1.QuadPart)/ c.QuadPart]);
</font>
end;
end.
 
我又在:http://synedit.sourceforge.net/ 下载了mwedit_0.92a.zip
还是编译不过去,怎么办!老板逼得急!大虾们帮帮忙!!拜托拜托!!
 
mwEdit现在已经由SynEdit继续开发了,你可以到
http://synedit.sourceforge.net下载SynEdit。
 
faint!没看到你就是从那里下载的,不过,我安装SynEdit没问题,你为什么不直接改用
SynEdit呢?
 
原来这个控件不能满足我的需求,我要加入关键字,怎办?谁做过二次
开发?
 
要加入什么关键字,就是像Pascal语言中特别显示的const之类的?
如果是的话,我想你可能需要看看SynEdit源码中那些SynHighlighterPas.pas
之类文件了。这些文件就是定义关键词的。
 
我看了!不过加了不好使,不知要改哪?请指教!
 
具体怎么加,我也不清楚,我没有修改过SynHighlighterPas.pas这些
控制高显示关键字的文件。得好好研究这些文件才行。
 
我安装MWEdit时没有发现这个问题。我的MWEdit是“程序员大本营”光盘上的(不好意思,
我用的是盗版盘),Install component 时选择 mwEditReg.pas即可。
 
多人接受答案了。
 
后退
顶部