Delphi(Pascal) code:
library HealthDocDll;
uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
HealthDoc in 'HealthDoc.pas' {frmHealthDoc},
pub in 'pub.pas';
{$R *.res}
procedure ShowForm(DoctorName,UserName:string);
begin
sDoctorName:=DoctorName;
sUserName:=UserName; ......
例子程序见附件,用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := Node.ChildNodes.Get(i);
shapetype := cNode.NodeName;
if (shapeType = 'line') then
......
定义:
type
pm= packed record { IO记录 }
Name:string[16]; { IO名称 }
CHn:Byte; {输入通道号 }
Pvh:Double; { 量程上限 }
Pvl:Double; { 量程下限 }
DW:string[8]; { 量程单位 }
Bjh:D ......
edit.begindrag(false,10);表面看应该是开始拖动里面的false,10参数本别对应什么?
procedure TDragForm.ListDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := True;
if (Source = Edit1) and
((Sender as TCu ......
delphi 如何把数据导出到EXCEL中?哪位能给我个例子?多谢
从网上找了些资料,说需要引入EXCEL组件对吧?那样的话最终软件生成EXE时这个组件是单独的文件吧?
有没有办法最终不生成独立文件的情况下导出EXCEL?
不知道从哪里导出数据到Excel?
是DBGrid,还是其他地方导出!
想必给你代码,你也看不明白,还是去弄一个d ......
分不够再加,急求
http://topic.csdn.net/u/20091214/22/37554f7c-831f-486b-ab58-6b50532c47ab.html
原帖在这,都说一楼的方法是正确的,但是我这按楼主方法出错
DELPHI的代码如下
Delphi(Pascal) code:
library HealthDocDll;
uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
HealthDoc in ......