小编IEl*_*ite的帖子

德尔福7

如何删除delphi字符串中的前导零？

例:

00000004357816

function removeLeadingZeros(ValueStr: String): String
begin
 result:= 
end;

我需要从字符串中删除所有非标准文本characers.我需要删除所有非ascii和控制字符(换行/回车除外).

使用delphi 7:

• 如何使用AddObject？将一个整数添加到stringlist项的对象部分？
• 如何从stringlist项的对象属性中检索整数？
• 完成后如何释放所有对象并列出？

我在64位Windows机器(Win 7)和32位Windows机器(XP)上运行Delphi 2010.

我正在尝试学习如何使用TRibbon控件.

我一直在关注Marco Cantu的2009年手册中的例子并观看YouTube演示,但我的控制并没有像书中所解释的那样工作.

我通过右键单击控件添加了两个选项卡.然而,当我将它放在主窗体上时,它与我的截图中的TRibbon完全一样.它没有书本或youtube演示中那么高.

我在运行Windows Xp和Delphi 2010的Win 32笔记本电脑上尝试了相同的操作并获得了完全相同的结果

这是我的机器上的样子

这是在演示中看起来的样子

再来一次.当它放在表格上时,它不会像我在演示中看到的那样形状和高度.即使我添加标签.在我的Delphi 2010安装过程中,我做错了什么？

我正在尝试从命令行编译器构建一个delphi项目

示例:C:\ dcc32 -BC:\ BD\Delphi7\work\MyProject.dpr

除了标准的环境路径:

$(DELPHI)\ BIN; $(DELPHI)\ Lib文件; $(DELPHI)\进口; $(DELPHI)\项目\栉Bpl; $(DELPHI)\ Rave5\Lib文件;

其他库,组件等有近50条其他路径......

我如何将这一切打包并指向这些在commanline参数中使用以进行构建？

当我运行上面的例子

C:\ dcc32 -BC:\ BD\Delphi7\work\MyProject.dpr

我得到致命错误:文件未找到:'文件名在这里'

谢谢

我在这里(代码部分)获得了一些很好的帮助,用于将单词doc转储到文本中.现在,我正在寻找帮助将PDF文档(*.pdf)转储到文本？我正在使用Delphi 2010.我更喜欢非组件,非Active-X解决方案......因为这段代码将被合并到我自己的组件中.

谢谢

在处理文本文件时,可以在While循环中使用Continue吗？

我想做一些处理并检查一些值.如果是,我想跳过迭代.如果为false,我想继续下一组行(继续处理).

while not EOF(InFile) do  
begin  
 DoSomething;  
 if (AcctTag = '') OR (MasterId = '') then  
  Continue;  
 DoSomething;  
end;  

在这种情况下,continue是否会跳过迭代？

我正在编写一个需要使用这两个单元的组件

DesignIntf​​,DesignEditors

当我构建我的包时,我得到了错误

找不到档案:'DockForm.dcu'

当我将"designide.dcp"添加到包的"requires"部分时,它构建并编译就好了.

但是,当我将组件添加到新项目时(在设计时,它可以工作.我可以更改所有属性等......但是,它在运行时不起作用.当我使用组件运行应用程序时在主窗体上,我再次得到""找不到文件:'DockForm.dcu'"错误

请帮忙

谢谢

使用Delphi 7和interbase 7

是否可以在一个SQL语句中删除主详细记录及其所有嵌套详细记录？

例:

表1
ID - 整数
标题 - Varchar(80)

Table2
ID - 整数
Table1_ID - 整数
TITLE - Varchar(80)

表3
ID - 整数
Table2_ID - 整数
TITLE - Varchar(80)

我想删除Table1中的ID 10,以及表2中的所有匹配记录(Table1_ID),以及表3中的所有匹配记录(Table2_ID)

如果我不能在一个sql中执行此操作,我如何在多个sqls(正确的序列调用语句)中执行此操作？

似乎我的代码中的某个地方我正在使用的文件以某种方式保持它,因为我似乎无法删除它.我的CopyFile例程似乎工作,但在我完成复制后,我似乎无法删除它.

   FSize:=  GetFileSizeExt(InPath + InFileName);
   if FSize <= 0 then
   begin
    //archive file
    if  AfterAction = 'MOVE' then
    begin
     tmpExt:= ExtractFileExt(InFileName);
     if CopyFile(PChar(InPath + InFileName), PChar(MovePath + '\' + ChangeFileExt(InFileName,'') + '_' + FormatDateTime('mmddyyyy-hhmmss', Now) + tmpExt), True) then
     begin
      if not DeleteFile(pchar(InPath + InFileName)) then
      begin
       ExitCode:= 8;
       raise ECustomException.Create('Invalid After Action. Error Deleting File!');
      end;
     end //if CopyFile
     else //if not DeleteFile
     begin
      ExitCode:= 16;
      raise ECustomException.Create('File Copy Error!');
     end; //else
    end; //if  AfterAction = 'MOVE' then
     ExitCode:= …