DelphiÔÚ±à¼×´Ì¬ÖУ¬ÔÚij¸öÀà»òÕß±äÁ¿Éϰ´Ctrl+click»òÕßÓÒ¼ü²Ëµ¥->Find Declaration¿ÉÒÔ¶¨Î»µ½ÉùÃ÷µÄλÖã¬Èç¹ûÊÇÔÚdebug״̬£¬Ó¦¸ÃÈçºÎ¶¨Î»£¨Ctrl+Clickû·´Ó¦£¬Find DeclarationÎÞÏÔʾ£©£¿
Õâ¸öÔÚD6ÖеÄÈ·Èç´Ë£¬ÎÒÒѾÔçϰ¹ßÁË£¬D7-D2009¼¸ºõûÓùý
D2010¾ÍûÕâ¸öÎÊÌâÁË
û·¢ÏÖ½â¾ö°ì·¨
Ctrl + F 脡 ......
Ï̴߳úÂë
Delphi(Pascal) code:
unit Unit2;
interface
uses
SysUtils,
Classes,IdGlobal;
type
TTestThread = class(TThread)
private
protected
procedure Execute; override;
public
end;
implementation
procedure TTestThread.Execute;
begin
FreeOnTerminate := True ;
......
Ö÷´°Ìåunit
Ö÷´°Ìå¶ÔÏó,
ͨ¹ýÖ÷´°Ìå´ò¿ªÒ»¸ö×Ó´°Ìå.
×Ó´°ÌåÔÚimplementÀïÑ»·ÒýÓÃÁËÖ÷´°Ìåunit,
×Ó´°Ìå×öÍêÊÂÇéºó¹Ø±Õ, Ïëµ÷ÓÃÖ÷´°ÌåµÄclose·½·¨,ÈÃËû¹Ø±Õ,¿ÉÊÇû·´Ó¦,Ö÷´°Ì幨²»µô,Ôõô°ìѽ?
µ«µ÷ÓÃËûµÄÆäËû·½·¨¾Í¿ÉÒÔÁË,Ϊʲôѽ?
ʲô´úÂ룿
unit OrderNewBookUnit;
interface
use ......
ÈçÌ⣬ÎÒÏë°ÑÏÂÃæÕâ¶ÎsqlÓï¾äдÔÚadoqueryÖУ¬µ«ÊÇ×ÜÊÇ´¦Àí²»ºÃµ¥ÒýºÅµÄÎÊÌâ
select b.Ô²ÄÁÏÃû³Æ,a.²ÄÁϺÅ,ʱ¼ä,Èë¿âÊýÁ¿ = sum(Èë¿âÊýÁ¿),³ö¿âÊýÁ¿ = sum(³ö¿âÊýÁ¿)
from
(
select '²ÄÁϺÅ' = case when isnull(ÔÁÏÈë¿â±í.²ÄÁϺÅ,'') = '' then ÔÁϳö¿â±í.²ÄÁϺŠelse ÔÁ ......
function TFrm_FncUpdateManager.StreamToString(
aStream: TStream): String;
var
vi: Integer;
begin
Result := '';
if not Assigned(aStream) then
Exit;
SetLength(Result, aStream.Size);
for vi := 0 to Pr ......
SQLStoredProc.StoredProcName:='[dbo].[UpDIMS]';
SQLStoredProc.ParamByName('@Mindex').AsInteger:=mInfo.Mindex;
SQLStoredProc.ParamByName('@Longitude').AsInteger:=mInfo.Longitude;
SQLStoredProc.ParamByName('@L ......