我昨天买了升级到Delphi 2009 Pro.现在我有一个问题,我有一个版本的Delphi 5企业版,但它已注册,但该帐户已丢失.
有没有办法让Delphi 5版本移动到我的帐户,以便我可以注册Delphi 2009 Pro.
否则我也有一个Delphi 3 Pro在这里铺设,这也应该足以升级,但我怎么能得到这个注册？
我的其他Delphi是Delphi 1,Delphi 2 Developer和Delphi 3 Standard以及一些个人版本.
有谁知道我现在应该做什么？最好的办法是将Enterprise Delphi移到我当前的帐户.
干杯,墨菲
我想知道如何比较列表框之间的项目.在我的主表单上有两个列表框.我想通过点击事件将项目从第1个添加到第2个,但是当使用它时,相同的项目将在第2个列表框中相乘.任何想法解决"文件已存在"？
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := ListBox1.Items.Count - 1 downto 0 do
if ListBox1.Selected[i] then
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
end;
我正在使用 BDE 和平面表。我有两个相同的表，tblOne我tblTwo
正在尝试将数据从一个表复制到另一个表。不是整个数据库，只是使用此的一个特定记录：
function Tdm.CopyRecord(var tblFrom,tblTo : TTable) : Boolean;
var
i : Integer;
begin
Result:=False;
try
tblTo.Insert;
for i:=1 to tblFrom.FieldCount-1 do
begin
if tblFrom.Fields[i].FieldName = tblTo.Fields[i].FieldName then
tblTo.Fields[i].Value:=tblFrom.Fields[i].Value;
end;
tblTo.Post;
Result:=True;
finally
end;
end;
if CopyRecord(tblOne,tblTwo) then...
逐步执行此操作，“From 表”的所有值均为“Null”。
发布后，我在 .txt 文件中添加了一条空白记录tblTo。所有值都为空并不奇怪。:)
我在复制数据时哪里出错了？它没有进入复制功能。
我已经这样做了几个小时，但无法使其发挥作用。可能是我忽略了一些简单的事情。我添加了“var”参数来查看这是否有任何区别，但事实并非如此。
哦，顺便说一句，我从“1”而不是“0”开始循环，因为两个文件中的第一个字段都是AutoInc.
德尔福5版.我有一个文件比较应用程序我在一起,它在主窗体上有一个左,右面板.每个面板(pnlLeft和pnlRight)具有相同的控件和事件范围,仅按名称分隔.即btnCheckLeft(...和btnCheckRight(......)我在保持代码更改在两个Panel之间同步时遇到问题.
我想知道我是否可以使用所有控件和事件制作单个Panel(在单独的Form上),然后在运行时将其复制两次,一次用于pnlLeft,另一次用于pnlRight到主窗体.在单个表单上,我可以只管理一次编码,而不是尝试复制所有内容.
在此过程中,将"对齐"和"事件"名称设置为应用于每个副本,如...
第一个复制到空白主表单...
pnlLeft.Align:=alLeft;
pnlLeft.Button1Click(Sender)...
第二份副本
pnlRight.Align:=alLeft;
pnlRight.Button1Click(Sender)...
怎么可能？我想我需要一个完整Panel的Component,但我还不够熟练,无法创建这种复杂性的Component.
我检查了 如何将delphi上TPanel的所有TLabel复制到另一个TPanel？
和 运行时的复制组件
但不要以为任何一个都会做我需要的.
感谢您提供的任何帮助.
这很奇怪.我现在在我全新的Windows 7 64位机器上安装了Delphi 5,更新到Service Pack 1.它看起来运行得很好,但是当我启动时会出现一条错误消息,告诉我系统无法将Delphi32.$$$重命名为Delphi32.dro.我想"好的"然后手动重命名,结果却发现没有Delphi32.$$$但是那里有很大的生命,是Delphi32.dro ......
我已登录到管理员级帐户,因此我认为这不是权限问题.
我愿意忍受这种轻微的烦恼,但我担心这是一些更深层次问题的症状.
有人遇到过这种情况么？
我在使用 Indy (Delphi) 的 IdHttp 中遇到问题。
我尝试使用 IdHttp 在 Web 服务 SOAP 中发布 XML，但不起作用。返回“使用 SSL 连接时出错。” 在来自 indy 的 IdSSLOpenSSL.Connect@1437 中。
我的代码很简单：
procedure TForm1.Button1Click(Sender: TObject);
var
vRequest : TStringStream;
s : String;
begin
vRequest := TStringStream.Create((Memo1.Lines.Text));
try
IdHTTP1.Host := edHost.Text;
IdHTTP1.Request.ContentLength := length(Memo1.Lines.Text);
IdHTTP1.Request.ContentType := edContentType.Text;
IdHTTP1.Request.CustomHeaders.Text := 'SOAPAction: "removed for safe"'#13#10;
IdHTTP1.request.CacheControl := 'no-cache';
IdHTTP1.Request.AcceptEncoding := edAccept.Text;
IdHTTP1.HTTPOptions := [hoKeepOrigProtocol];
IdHTTP1.ProtocolVersion := pv1_1;
Memo2.Clear;
try
s := IdHTTP1.post(Edit1.Text, vRequest);
Memo2.Lines.Text := s;
except
on e: EIdHTTPProtocolException do begin
Label1.Caption …我正在使用Delphi5。我定义了一个字节数组，如下所示：
Buffer: Array of BYTE;
如何将其转换为PByte指针？
我试图从命令行将.bpk软件包安装到Borland C++ Builder 5 IDE中.我确信这是可能的,因为我们有一些第三方组件可以这样做,但我无法弄清楚所需的步骤.
任何指针都表示赞赏!
我正在使用Delphi 5和Fast Report 4来编写报表.我在设计时在MyReport.f3中定义了一个变量"ReportTitle",并在运行时为其分配了一个值.为什么我的代码会引发EStackOverflow异常？
这是代码示例
frxrprt1.LoadFromFile('c:\MyReport.fr3');
frxrprt1.Variables['ReportTitle'] := 'Sales Summary Report';
frxrprt1.ShowReport;
我想知道是否有人有类似的经历.我试图追查问题的根源,但我想出的是零.我在Delphi 5中有一个项目,它有Report Builder报告.我需要一个reportbuilder的升级版本,所以我尝试在Delphi 7中运行该项目.当我的项目运行时,我点击一个按钮来查看报告,它看起来很好.但是,如果我使用paramstr运行报告(showmainform设置为false)并显示报告过程运行,则会出现堆栈溢出错误.
原始代码是:
if lowercase(ParamStr(1)) = 'termsexceeded' then begin
reportsdata.termsexceeded.close;
reportsdata.termsexceeded.open;
reports.ppTermsExceeded.print;
reportsdata.termsexceeded.close;
application.terminate;
end;
它给了我.print函数的堆栈溢出错误.
在Delphi 7中运行的代码是:
if lowercase(ParamStr(1)) = 'termsexceeded' then begin
reportsdata.termsexceeded.close;
reportsdata.termsexceeded.open;
reports.left := -10000;
reports.show;
reports.ppTermsExceeded.print;
reportsdata.termsexceeded.close;
application.terminate;
end;
是否有人建议我如何调试这个以查看问题出在我的Delphi 7或Reportbuilder上？
报告表单的.show事件中没有事件.
任何有关如何深入了解这一点的建议都将受到赞赏.
问候