delphiÖеÄðºÅÎÊÌâ
program question1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type Tpoint=Record
x,y:single;
end;
const p0:Tpoint=(x:0;y:0);
var p1,p2:Tpoint;
A:array of array of Integer;
I,j: Integer;
begin
p1.x:=100;
p1.y:=200;
p2.x:=p1.x+10;
p2.y:=p1.y+20;
writeln(p1.x:0:1,' ',p1.y:0:2);
Writeln(p1.x:2:2,' ',p1.y:2:2,' ',p1.x:2);
//Setlength(a,9);ºóÃæµÄÊǶԱÈÓÃµÄ ¿ÉÒÔ²»Óÿ´
SetLength(a,9);
for I:=Low(A) to High(A) do
begin
SetLength(A[I],I+1);
for J:=Low(A[I]) to High(A[I]) do
begin
A[I,J]:=(I+1)*(J+1);
Write(A[I,J]:3);
end;
Writeln;
end;
readln;
end.
ÎÊÌâ1£º
p1.x:0:1 ÕâÁ½¸öðºÅÊÇ×öʲôÓõģ¿
ÎÊÌâ2£º
p1.x:2:2 ºÍ p1.x:0:1 Êä³öµÄ½á¹ûÔõôÊÇÏàͬµÄ£¿ ¹À¼Æ1ÖªµÀÁË2¾ÍÖªµÀÁË ²»¹ýÎÒÊÇÐÂÊÖ ËùÒÔ啰àÂһϠлл½â´ð
ÎÊÌâ3£º
Write(A[I,J]:3);
ÕâÀïµÄ £º3 Ч¹ûÊÇ Ç°Ãæ¶àÁË3¸ö¿Õ¸ñ
p1.x:2
ÕâÀïµÄ £º2 Ч¹ûÊÇ1.0E+0002 Ôõô¾Í»áÕâÑùÄØ£¿
delphi ÐÂÈ˲»ÈÝÒ× ¸øµÄ²»¶à ÏÈллÁË
ÐÞÕýÏ£º
Write(A[I,J]:3);
ÕâÀïµÄ £º
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......