小编Cha*_*iga的帖子

我应该使用什么组件在Delphi 2009应用程序中显示PDF文件？

编辑:

我一直在使用 Synactis的PDF Viewer - 一个非常好的免费PDF查看器但它没有Delphi 2009支持.

所以我需要从产品中进行设计

如果是这样 - 这张桌子必须改变什么？

CREATE TABLE  contestants 
( 
  idContestants  int(10) unsigned NOT NULL AUTO_INCREMENT,
  idEvent        int(10) unsigned NOT NULL,
  ContestantName  varchar(50) DEFAULT NULL,
  PRIMARY KEY (idContestants),
  UNIQUE KEY Index_UniqueName (idEvent,ContestantName),
)
ENGINE=InnoDB AUTO_INCREMENT=1 DEFAULT CHARSET=latin1;

可能重复:
Delphi的"with"有什么问题

我在调试BDS 2006中使用'WITH'语句的代码时遇到问题调试器不会在类或记录中显示变量的值.我做错了什么或者BDS 2006有错误吗？

type
  TNumber = class
      Num: Integer;
  end;

implementation

{$R *.dfm}

var
   MyNumber: TNumber;

procedure TForm2.FormCreate(Sender: TObject);
begin
   MyNumber := TNumber.Create;
   MyNumber.Num := 10;   /// MyNumber.Num Can be seen with debugger
   with  MyNumber do
   begin
     Num := Num +1 ;           /// Num is not seen by the  debugger
     MyNumber.Num := Num +1 ;  /// MyNumber.Num is seen but Num is not seen by the  debugger
   end;
end;

编辑:

当然可以使用变量的全名但是如果你有一个具有多个级别的复杂结构,事情会变得非常混乱

我正忙着开发一个使用F12的Delphi应用程序

当我在Delphi IDE下运行软件并按F12时,程序停止并打开"CPU"窗口

当按下F12时,我该怎么做才能阻止Delphi IDE执行此操作？

嗨,有没有关于如何在delphi中使用接口的好视频或其他资源？

我追求的是基础知识和更高级的东西.

在我的应用程序中,我需要复制超过1000个小文件

这是我正在使用的代码,但它非常慢有没有更好的方法来做到这一点？

procedure Tdatafeeds.RestotreTodaysFiles;
var
  SearchRec: TSearchRec;
  FromFn, ToFn: string;
Begin
    if DirectoryExists(BackupPath1) then
    begin
      try
        if FindFirst(BackupPath1 + '\*.*', (faAnyFile AND NOT(faDirectory)), SearchRec) = 0 then
        begin
          repeat
            FromFn := BackupPath1 + '\' + SearchRec.name;
            ToFn := DatafeedsPath1 + '\' + SearchRec.name;
            CopyFile(Pchar(FromFn), Pchar(ToFn), false);
          until FindNext(SearchRec) <> 0;
        end;
      finally
        FindClose(SearchRec);
      end;
    end;
End;

在Delphi中FindFirst,FindNext和FindClose Thread是否安全？如果没有应该在那里使用什么？

我需要在我的Delphi 2010应用程序中向一个TDataModule发送一条Windows消息.

我想用

PostMessage(???.Handle, UM_LOG_ON_OFF, 0,0);

题:

TDataModule没有Handle.我如何向它发送Windows消息？

是否有适用于Delphi 2006/2007/2009的FitNesse版本？

如果是这样我在哪里可以找到它？

是否还有像FitNesse这样的其他程序可以在Delphi 2006上运行？

如何在Delphi 2010中的delphi Thread中访问"NameThreadForDebugging"？

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
    procedure UpdateCaption;
  end;

implementation

procedure TMyThread.UpdateCaption;
begin
  Form1.Caption := 'Name Thread For Debugging'; 
  // how I get 'TestThread1' displayed in the caption  
end;


procedure TMyThread.Execute;
begin
  NameThreadForDebugging('TestThread1');
  Synchronize(UpdateCaption); 
  Sleep(5000);
end;