DelPhiÈëÃÅÓöµ½µÄÎÊÌâ
ÏÂÃæµÄ³ÌÐò³öÏֵĴíÎóÊÇ
[Error] INPUTBOX.pas(36): '.' expected but '(' found //¹â±êÍ£ÔÚinputboxµÄ×óÀ¨ºÅºóÃæ
[Error] INPUTBOX.pas(37): '.' expected but '(' found
[Error] INPUTBOX.pas(38): '.' expected but '(' found
[Error] INPUTBOX.pas(38): There is no overloaded version of 'StrToFloat' that can be called with these arguments
[Error] INPUTBOX.pas(41): Incompatible types: 'String' and 'Integer'
[Error] INPUTBOX.pas(42): Incompatible types: 'String' and 'Extended'
[Fatal Error] Project_InputBox.dpr(5): Could not compile used unit 'INPUTBOX.pas'
È«²¿³ÌÐò´úÂëΪ£º
unit INPUTBOX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses QDialogs;
procedure TFor
Ïà¹ØÎÊ´ð£º
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
mov eax,[eax]
xor eax,[ecx+4]
cmp eax,0
je @b
end;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )
¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö
Mark!!!!!!
se ......
¹¤×÷µØµãÔÚ½ËÕÀ¥É½
delphi¿ª·¢¾Ñ飺1Ä꣨º¬£©ÒÔÉÏ
ÊìÁ·Ê¹ÓÃSQL Server OracleµÈ³£ÓÃÊý¾Ý¿â
ÄܶÀÁ¢½â¾öÏà¹ØÎÊÌâ
ÎÒÃǹ«Ë¾ÒªÕÐdelphi³ÌÐòÔ±,²»ÖªµÀÒª¿ª¶àÉÙÒø×Ó£¬Çë¸÷λָ½ÌÖ¸½Ì
Â¥Ö÷£¬¿´¿´ÎÒÕ¦Ñù 5ÄêµÄdelph ......
ÈçÌâËùʾ
СµÜʹÓÃDelphi7»·¾³½øÐÐÊý¾Ý²É¼¯£¬²É¼¯µ½µÄÊý¾Ý·ÅÈëSQL Server2000Êý¾Ý¿âÖУ¬µ«ÊÇÏë²»°²×°SQLServer2000À´ÊµÏÖ´ÓÆäËü¼ÆËã»úÉÏÔËÐд˳ÌÐò£¬²»ÖªÈçºÎʵÏÖ£¿Íû¸÷λ´óϺ¸æÖªÒ»¶þ¡£
ÁíÍ⣬ÏÖÔÚСµÜÓöµ½ÁËÒ»¸ö ......