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
Ïà¹ØÎÊ´ð£º
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
mov eax,[eax]
xor eax,[ecx+4]
cmp eax,0
je @b
end;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......
¹¤×÷µØµãÔÚ½ËÕÀ¥É½
delphi¿ª·¢¾Ñ飺1Ä꣨º¬£©ÒÔÉÏ
ÊìÁ·Ê¹ÓÃSQL Server OracleµÈ³£ÓÃÊý¾Ý¿â
ÄܶÀÁ¢½â¾öÏà¹ØÎÊÌâ
ÎÒÃǹ«Ë¾ÒªÕÐdelphi³ÌÐòÔ±,²»ÖªµÀÒª¿ª¶àÉÙÒø×Ó£¬Çë¸÷λָ½ÌÖ¸½Ì
Â¥Ö÷£¬¿´¿´ÎÒÕ¦Ñù 5ÄêµÄdelph ......
ºÜ¼òµ¥µÄÎÊÌ⣬ÈçºÎÔÚ×é¼þmapcontrolÖÐÏÔʾAutoCAD»æÖƵĵØÍ¼ÐÅÏ¢£¿ÇëÏêϸָ½Ì
ʲôÇé¿ö£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿
mapcontrolÊÇʲô¶«Î÷ѽ
ÏÔʾAutoCAD»æÖƵĵØÍ¼ÐÅÏ¢,´ÓÍøÉÏÕҿؼþ°É,
»òÕßÄúÓнâÊÍ ......