标签: delphi-7

我动态地在表单对象上添加了组件

Edit1 := TEdit.Create(form3);

我有Tform类的对象form3.现在我想要做的是我想创建一个form3的组件模板,这样我就可以将该组件模板拖放到我的任何其他组件上,并且它中的所有组件将自动供我使用.任何人都可以帮助我如何做组件模板？

在整个组织的计算机上部署了相同版本的Delphi 7 Code.

每次用户A访问计算机F1上的记录Z时,都会显示以下错误:

Access violation at address 00642E83 in module 'foo.exe'. Read of address 00000000

我和我的用户在我自己的计算机上执行了相同的步骤,并且在另一台计算机上跟另一个人的用户执行了相同的步骤,并且无法复制它(因此无法调试...).

根据要求提供附加信息(不确定这将有多大帮助)

• 记录Z是Interbase DB中的一行,其中包含已呼入的人员的联系人和呼叫历史记录.
• 我们组织中的所有计算机都使用相同版本的Windows 7.

那么......

• 用户B访问计算机F2上的记录Z没有错误.
• 用户C访问计算机F3上的记录Z,没有错误.
• 用户A访问计算机F4上的记录Z没有错误.
• 用户A访问计算机F1上的记录Z(重启后),在提到的相同地址存在相同的错误.

计算机F1似乎是罪魁祸首.但是,此时,我不确定如何进一步排除故障.

有什么建议？

procedure TForm1.Button2Click(Sender: TObject);
begin
showmassage('Create by rihsano');
end;

Delphi报告以下错误:

 [Error] Unit1.pas(38): Undeclared identifier: 'showmassage'

还有一个问题:什么是"未声明的标识符"？

Delphi7中是否有任何组件可以在运行时显示有关异常的更多信息,如:

1. 异常消息和类
2. ".pas"文件名
3. 异常行号

在客户站点上运行应用程序时,此信息非常重要.

我只是无法理解我最初认为相对简单的算法.

基本上,用户输入一个4长度的数字组合(0 - 9),我想要一个算法,它将尝试每个可能的组合,直到它与用户输入的相匹配.

正如我所说,嵌套循环或其他东西可能很简单,但我无法理解它.

感谢任何帮助.顺便说一句,我正在使用delphi.

procedure TForm1.DateTimePicker2Change(Sender: TObject);
var
day:tdatetime;
begin
Datetimepicker2.date:=day;
label1.caption:=(FormatDateTime('dd.mm.yyyy', day));

嗨!

我想在标签上显示datepicker中的选定日期,但标签只显示'30 .12.1899'日期,而不是我从datepicker中选择的日期.

有人有想法吗？谢谢你的回答!

我真的需要一些帮助,我迫切需要一个解决方案!

我有一个离线消息表/单元.它不允许我编译.

这是完整的代码:

http://beyluxe.googlecode.com/svn/trunk/mine/OfflinesUnit.pas

我收到以下错误:

Build
  [Error] OfflinesUnit.pas(103): Undeclared identifier: 'LoadString'
  [Error] OfflinesUnit.pas(142): Undeclared identifier: 'LoadString'
  [Fatal Error] MainUnit.pas(480): Could not compile used unit 'OfflinesUnit.pas'

错误1:

procedure TOfflinesForm.FormShow(Sender: TObject);
var
  i: Integer;
  PMText: string;
begin
  for i := 0 to OfflineList.Count - 1 do
  begin
    OfflineListView.Items.Add;
    OfflineListView.Items.Caption := OfflineSenders.Strings;
    OfflineListView.Items.SubItems.Add(OfflineList.Strings);
    Viewer.LoadString(PChar(OfflineList.Objects), '', HTMLType);
    Viewer.SelectAll;
    PMText := Viewer.SelText;
    Viewer.SelLength := 0;
    Viewer.Clear;
    OfflineListView.Items.SubItems.Add(PMText);
  end;
end;

错误2:

procedure TOfflinesForm.SendTextToViewer(User, Text: string; UserColor: TColor);
var
  Str: string;
begin
  Str := '<B><font size=0 color=#' …

我正在制作一个Delphi应用程序,并希望在另一台PC上测试它,看看是否一切正常.我编译并构建了可执行文件,当然我将所有文件从Project文件夹传输到另一台PC.当我在PC上启动.exe文件时,什么都不会发生.然后,我勾选了项目选项中的"使用运行时包构建"选项:

这使得.exe从大约300 KB到大约30 KB,但是现在,该PC没有能够在另一台(非Delphi)PC上启动该应用程序,而是错误地说它缺少打开所需的各种文件.可执行程序 .

我把同样的事情发给了各个朋友,所有人都报告了同样的问题.我的应用程序是一个相当简单的彩票原型应用程序,所以我不明白为什么我在其他PC上打开它时遇到问题.我需要启用其他特殊选项吗？

请参考这里的另一个问题:从远边不同的约束中调整无边框形式？

之前的问题已经解决,但我有另一个类似的问题.由于我正在构建具有不同客户区的自定义形状表单,因此我需要更改此表单的ClientRect区域.表格有一些特殊的曲线边缘等等,但那部分是无关紧要的.我需要更改表单的ClientRect以表示允许删除组件的新客户区域,并忽略放在这些边界之外的任何内容.

(我有一个无边框的形式,我正在绘制自己的边框,这个边框与标准的窗口边框大不相同.)

这个解决方案会改变我之前的问题的工作方式,但这将是另一个我敢肯定我会自己解决的话题,应该很简单.我只需要能够在第一时间正确设置它.

while not eof(MyFile) do
begin
  Readln(MyFile,sLine);
  iCheck := pos('*',sLine);

  if iCheck >= 0 then
    K := K + 1;
  else
    K := 1;
  sLine := sArrayParty[K];
end;

K是我的柜台.MyFile设置为文本文件.

我试图在while语句中运行if语句来检查是否有*一行读入sLine.如果是这样,我希望我的计数器递增,从而将以下文本放入数组的下一个索引.所以基本上我有一个文本文件,信息由*分隔符分隔,我希望每条信息都填充一个新的索引.但每当我把if语句放入时,delphi就会发挥作用.