Delphi的试题

1、模态窗体和非模态窗体的区别？

 模态窗口，就是类似于消息对话框那样的窗口，必须等待窗口关闭后才能进行下一步的操作。  
  而非模态的则没有这个限制。

模态窗体三大特点：  
  1.弹出后主窗体不能用：EnableWindow使主窗口不能用  
  2.模态窗体在主窗体上：用CreateWindowEx创建窗体时注意加上WS_POPUP风格，hWndParent填上筑窗体的hWnd  
  3.模态窗体弹出时，函数调用不返回：CreateWindowEx后写一个消息循环，注意设置好消息循环的退出条件   
    procedure  TForm1.CreateBtn();
  var
          Frm:TForm;
          Btn:TButton;
  begin
        Frm   :=   TForm.Create(Application);
        with   Frm   do
        begin
                width   :=   500;
                height   :=   500;
        end;
          Btn   :=   TButton.Create(Frm);
          with   Btn   do
          begin
                  Parent   :=   Frm;
                  //name   :=   'btn1';
                  width   :=   50;
                  height   :=   50;
                  left   :=   100;
                  top   :=   30;
          end;
          Frm.Show;
  end;

 

2、一、Owner和Parent的区别：

　　Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下：
　　(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大，
　　(2)在Panel1上放一Button1；
　　(3)在Form1上放一Button2。

　　现在如果移动Panel1,则Button1随着Panel1移动，这是因为Button1的Parent是Panel1。现在将Button2移到Panel1上，再次移动Panel1,Button2并不跟着移动，这是因为Button2的Parent是Form1。除在窗体设计中，应注意构件的Parent是谁外，在动态创建构件时，也应指出构件的Parent，如在上例中继续操作：
　　1)Procedure Tform1.Button2click(Sender:Tobjet);
　　2)Var
　　3) Button:Tbutton;
　　4) Begin
　　5) Button:Tbutton.cerate(self);
　　6) Button.parent=panel1;
　　7) Button.lleft=0;
　　8) Button.top=0;
　　9) Button.caption:='OK';
　　10) End；

　　当按Button2时，将在Panel1上创建一个Button，而如果把第6句改为Button.parent:=self；按Button2时，将在Form1上创建一个Button了。如果将第6句删除，按Button2时，什么都不会发生，这是因为创建方法无法知道应在哪里显示构件。

　　Owner属性是指构件的所有者，它负责构件的创建和释放。如在上例中，系统默认窗体上所有构件的所有者是窗体，而窗体的所有者是Application。顺便指出，create方法应带有表示构件所有者的参数，如在上例中，构件所有者是窗体，即self。

　　Parent属性和Owner属性是运行阶段的属性，只能在运行阶段，通过代码设置。　　

二、Self和Sender的区别：

　　在事件处理程序参数表中，至少含有一个参数Sender,它代表触发事件处理程序的构件，如在上例中，Sender就指Button2，有了Sender参数，可以使多个构件共用相同的事件处理程序，如下例：
　　Procedure Tform1.Buttonclick(Sender:Tobject);
　　Begin
　　If sender=button1 then
　　Label1.caption:=′看庭前花开花落
′ 　　Else Label2.caption:=′望天上云卷云舒′
　　End；

　　在此例中，Button1,Button2共用了Buttonclick事件处理程序。

　　Self是指所编的程序范围是在哪一个类中，Delphi中大都在窗体范围内编程，因此，self即指窗体，如果在编写一个类或是一个组件，则self指该类或组件。我们在函数或过程的声明中可看出self是代表哪个组件，即self代表‘.’号之前的组件，如在第一个例子中，self代表Tform1。另外应注意，self只能用在类方法中，而不能用在过程或函数中，如下例用法是错的:
Function a1(B:Integer):Integer;
　　Begin
　　……
　　Button:=tbutton.create(self)；……
　　End；　　

三、Clientheight和Height,Clientwidth和Width的区别：

　　对于一般的构件而言，Height就是Clientheight,Width就是Clientwidth，而对于窗体而言，Height是包括标题条在内的高度，而Clientheight是指窗体工作区的高度。同理，Clientwidth是指定窗体工作区的宽度。

　　从上面陈述可知，理解Ower和Parent,Self和Sender，Clientheight和Height,Clientwidth和Width区别，对于Delphi中正确编程是重要的。

3、   F7 TRACE INTO （步进式调试同时追踪进入子过程）

        F8 STEP OVER （步进式调试不进入子过程） 

        F4  Run  to Cursor 

最基本、最重要的调试手段包括：单步跟踪、断点、变量观察、堆栈检查等。所有这些功能在Delphi的集成调试程序中都能提供。
当你按下F9（Compile and Run，编译并运行）一个程序时，就已经启动了Delphi的集成调试程序，而按下Ctrl+Break（Program Pause，程序暂停）时则会暂停被调试程序返回到集成调试程序中去，再次按下F9会从暂停地地方继续执行，而Alt+F2（Program Reset，程序复位）则会完全中止被调试程序的执行，返回集成调试程序中去。

4 断点（Breakpoint）

断电是调试中非常重要的一个手段。由于在执行到某些代码前需要执行许多其它代码，不可能用单步跟踪一条一条执行过来，这时只要在需要暂停的地方设置一个断点，然后让程序运行，当执行到这个断点位置时不需要用户干预就会暂停并返回集成调试程序。
Delphi提供了丰富的断点功能，包括：源代码断点、指令断点、数据断点等。
源代码断点（Source Breakpoint）是指在你的源程序中设置断点，指令断点（Address Breakpoint）是指在某机器指令处设置断点，数据断点（Data Breakpoint）是指当写入某变量时暂停用户程序。
所有的断点都可以设置更详细的属性，包括：条件、通过次数、组、高级操作等。
条件（Condition）是指触发断点的条件，例如你可以写：a=10，表示当a等于10时在这个断点位置暂停；
通过次数（Pass Count）是指即使符合条件，也需要执行这些次数才N暂停，例如在某断点设置通过次数为5，则表示当第5次通过这个断点时才暂停程序，当然，如果有条件存在的话还要符合相当次数的条件；
组（Group）是指一组断点，你可以用一个名字来标记许多断点，这样你可以用禁止或允许组（Disable Group/Enable Group）来同时打开或禁止多个断点。
高级操作是指和每个断点相关的一些行为（Action），具体如下：
中断（Break）：中断程序，这是默认操作。
忽略后续异常（Ignore subsequent exceptions）：通过这个断点后忽略所有异常（exceptions）；
处理后续异常（Handle subsequent exceptions）：通过这个断点后处理异常，这和前一个操作是对应的；
记录信息（Log message），通过这个断点时记录一条事件日志信息，你可以在事件日志（Event Log）中查看这条信息；
表达式求值（Eval expression）：对指定的一个表达式进行求值，并且可以通过记录结果（Log result）把这个结果记录在日志中；
禁止/允许组（Enable group/Disable group）：通过这个断点以后禁止或者允许其它的组，由此可以控制其它断点的状态。
在Delphi中除了上述的显式断点以外，还提供了隐式断点：运行到光标（Run to cursor）和运行到返回（Run until return）。
运行到光标是让程序到当前光标所在程序行，相当于你在当前光标位置设置了一个断点。这是一次性断点，并且如果在到达这里前遇到了其它断点，会停止在那个断点的地方，同时取消了这个临时断点。
运行到返回是用于过程和函数中，运行到过程和函数退出的位置，使得可以迅速返回上层调用程序。

5 变量查看（Watch）/检查（Inspect）

在程序暂停的时候你可以用Watch查看某个变量，按Ctrl+F7（Add Watch，添加查看）可以在查看列表（Watch List）中增加一个变量。在Watch中你可以查看变量或者表达式，指定数据的格式，甚至可以指示Delphi调用某些函数，显示函数的返回值。
有一种快速查看模式，称为Local Variables（局部变量），按Ctrl+Alt+L能够显示这个窗体，里面是当前过程或函数的局部变量。
Delphi还支持一种临时的求值模式（Evaluate/Modify），按Ctrl+F4显示求值框，你可以在这里输入一个变量或者表达式，计算其数值，对于变量还可以在运行时改变它的值，这样如果你已经发现数据有错，你可以修改它，让程序继续运行下去，就像这个数值就是程序得出的一样。
检查（Inspect），是一种可以进一步查看变量信息的手段。把光标放在某个变量前，按Alt+F5显示检查窗。在这里可以看到有关这个变量的详细信息，包括：类型、值等，这对于类类型、记录类型尤其有用。和Evaluate/Modify一样，你也可以改变这些值。

6 调用堆栈（Call Stack）

对于某些递归调用和复杂的嵌套调用来说，使用Call Stack功能能够方便的检查函数的调用情况。
按Ctrl+Alt+S可以显示这个窗体，在最上面的是当前过程或函数，在最下面的往往是你的主程序。例如：
TForm1.Button1Click(???);
Project1
这表示Project1调用了方法TForm1.Button1Click，由于其参数是一个对象（Sender:TObject），不能求值，所以用???表示。双击Project1可以看出在什么地方调用了TForm1.Button1Click（如果调用点没有源代码，则显示有源代码的第一行）。

7 高级调试功能

上面所说的是常规的调试功能，Delphi还提供了很多高级调试功能。
线程状态（Thread Status）：显示当前程序中有多少线程在运行，各线程的状态是什么？参数是什么？
模块（Modules）：显示当前进程使用了多少模块，其名称和地址是多少？这对于调试DLL时很有用。
CPU/FPU：在汇编语言层次显示代码，这能够更加精确地观察程序是如何运行的，各寄存器是怎么变化的。
进程附着（Attach Process）：为了调试某些特殊程序（例如Windows 2000下的服务【Service】），允许先运行用户程序，再运行调试程序。
远程调试（Remote Debug）：允许在一台计算机上运行用户程序，在另外一台计算机上运行Delphi，通过网络进行调试，这对于调试大型程序很有用，也能调试那些对系统有特殊要求的程序。

4、进程与线程：

进程和线程都是由操作系统所体会的程序运行的基本单元，系统利用该基本单元实现系统对应用的并发性。进程和线程的区别在于：

简而言之,一个程序至少有一个进程,一个进程至少有一个线程.
线程的划分尺度小于进程，使得多线程程序的并发性高。
另外，进程在执行过程中拥有独立的内存单元，而多个线程共享内存，从而极大地提高了程序的运行效率。
线程在执行过程中与进程还是有区别的。每个独立的线程有一个程序运行的入口、顺序执行序列和程序的出口。但是线程不能够独立执行，必须依存在应用程序中，由应用程序提供多个线程执行控制。
从逻辑角度来看，多线程的意义在于一个应用程序中，有多个执行部分可以同时执行。但操作系统并没有将多个线程看做多个独立的应用，来实现进程的调度和管理以及资源分配。这就是进程和线程的重要区别。

进程是具有一定独立功能的程序关于某个数据集合上的一次运行活动,进程是系统进行资源分配和调度的一个独立单位.
线程是进程的一个实体,是CPU调度和分派的基本单位,它是比进程更小的能独立运行的基本单位.线程自己基本上不拥有系统资源,只拥有一点在运行中必不可少的资源(如程序计数器,一组寄存器和栈),但是它可与同属一个进程的其他的线程共享进程所拥有的全部资源.
一个线程可以创建和撤销另一个线程;同一个进程中的多个线程之间可以并发执行.
                

5、正则表达式

确认有效电子邮件格式 
下面的代码示例使用静态 Regex.IsMatch 方法验证一个字符串是否为有效电子邮件格式。如果字符串包含一个有效的电子邮件地址，则 IsValidEmail 方法返回 true，否则返回 false，但不采取其他任何操作。您可以使用 IsValidEmail，在应用程序将地址存储在数据库中或显示在 ASP.NET 页中之前，筛选出包含无效字符的电子邮件地址。 

[Visual Basic] 
Function IsValidEmail(strIn As String) As Boolean 
' Return true if strIn is in valid e-mail format. 
Return Regex.IsMatch(strIn, ("^([/w-/.]+)@((/[[0-9]{1,3}/.[0-9]{1,3}/.[0-9]{1,3}/.)|(([/w-]+/.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(/]?)$") 
End Function 
[C#] 
bool IsValidEmail(string strIn) 
{ 
// Return true if strIn is in valid e-mail format. 
return Regex.IsMatch(strIn, @"^([/w-/.]+)@((/[[0-9]{1,3}/.[0-9]{1,3}/.[0-9]{1,3}/.)|(([/w-]+/.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(/]?)$"); 
} 


2.清理输入字符串 
下面的代码示例使用静态 Regex.Replace 方法从字符串中抽出无效字符。您可以使用这里定义的 CleanInput 方法，清除掉在接受用户输入的窗体的文本字段中输入的可能有害的字符。CleanInput 在清除掉除 @、-（连字符）和 .（句点）以外的所有非字母数字字符后返回一个字符串。 

[Visual Basic] 
Function CleanInput(strIn As String) As String 
' Replace invalid characters with empty strings. 
Return Regex.Replace(strIn, "[^/w/.@-]", "") 
End Function 
[C#] 
String CleanInput(string strIn) 
{ 
// Replace invalid characters with empty strings. 
return Regex.Replace(strIn, @"[^/w/.@-]", ""); 
} 


3.更改日期格式 
以下代码示例使用 Regex.Replace 方法来用 dd-mm-yy 的日期形式代替 mm/dd/yy 的日期形式。 

[Visual Basic] 
Function MDYToDMY(input As String) As String 
Return Regex.Replace(input, _ 
"/b(?<month>/d{1,2})/(?<day>/d{1,2})/(?<year>/d{2,4})/b", _ 
"${day}-${month}-${year}") 
End Function 
[C#] 
String MDYToDMY(String input) 
{ 
return Regex.Replace(input, 
"//b(?<month>//d{1,2})/(?<day>//d{1,2})/(?<year>//d{2,4})//b", 
"${day}-${month}-${year}"); 
} 
Regex 替换模式 
本示例说明如何在 Regex.Replace 的替换模式中使用命名的反向引用。其中，替换表达式 ${day} 插入由 (?<day>...) 组捕获的子字符串。 

有几种静态函数使您可以在使用正则表达式操作时无需创建显式正则表达式对象，而 Regex.Replace 函数正是其中之一。如果您不想保留编译的正则表达式，这将给您带来方便 


4.提取 URL 信息 
以下代码示例使用 Match.Result 来从 URL 提取协议和端口号。例如，“http://www.contoso.com:8080/letters/readme.html&rdquo;将返回“http:8080”。  

[Visual Basic] 
Function Extension(url As String) As String 
Dim r As New Regex("^(?<proto>/w+)://[^/]+?(?<port>:/d+)?/", _ 
RegexOptions.Compiled) 
Return r.Match(url).Result("${proto}${port}") 
End Function 
[C#] 
String Extension(String url) 
{ 
Regex r = new Regex(@"^(?<proto>/w+)://[^/]+?(?<port>:/d+)?/", 
RegexOptions.Compiled); 
return r.Match(url).Result("${proto}${port}"); 
} 

6、Initialization:程序初始化时自动调用该模块的代码；  
  Finalization：程序退出时或者释放资源时自动调用；  
gettickcount函数是一个WinAPI函数，它的作用是返回自开机开始至调用该函数为止，系统的运行时间（单位是：毫秒）即elapsed   time。

inttostrdef ??

assigned 函数 测试函数或过程变量是否为空
7、DLL的调用：

动态调用：

procedure TForm1.Button1Click(Sender: TObject);

type

TIntFunc=function(i:integer):integer;stdcall;

var

Th:Thandle;

Tf:TIntFunc;

Tp:TFarProc;

begin

Th:=LoadLibrary(’Cpp.dll’); {装载DLL}

if Th>0 then

try

Tp:=GetProcAddress(Th,PChar(’TestC’));

if Tp<>nil

then begin

Tf:=TIntFunc(Tp);

Edit1.Text:=IntToStr(Tf(1)); {调用TestC函数}

end

else

ShowMessage(’TestC函数没有找到’);

finally

FreeLibrary(Th); {释放DLL}

end

else

ShowMessage(’Cpp.dll没有找到’);

end;

静态调用：

function TestDll(i:integer):integer;stdcall;

external ’Delphi.dll’;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:=IntToStr(TestDll(1));

end;

end.

 

10、如何实现自画菜单？

MainMenu或PopupMenu的OwnerDraw为true;  
  然后填写OnMenuDrawItem()和OnMenuMeasureItem()   事件;  
  然后其它菜单的这两个事件共享已经完成的这两个事件.  
  另外还有OnAdvancedMenuDrawItem();  

 在菜单的OnMeasureItem方法里设置菜单项的大小  
  在OnDrawItem里通过Canvas自画菜单