Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphiÊéд¸ñÔò? - Delphi / ·Ç¼¼ÊõÇø

ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,дµÄ´úÂëÿһÐж¼ÊÇҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,Õâ¸öÓй涨Âð?Ôõô¿´?

ÒÔÏÂÊÇÎÒÔÚÍøÉÏÕÒµÄÒ»¶Î³ÌÐò´úÂë

===============================================================================

procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
  I,J:integer; SUM:real;
begin
  For I:=1 To N do
  begin
  Sum:=B[I];
  For J:=1 To I - 1 do
  Sum:=Sum - A[I, J] * B[J];
  B[I]:=Sum;
  end;
  For I:=N DownTo 1 do
  begin
  If D[I] = 0 Then
  begin
  ShowMessage('Singular Matrix');
  Exit;
  end
  Else
  Sum:=B[I] / D[I];
  For J:=I + 1 To N do
  Sum:=Sum - A[J, I] * B[J];
  B[I]:=Sum;
  end;
end;


Ϊʲô²»ÄÜд³ÉÕâÑù?
===============================================================================
procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=B[I];
For J:=1 To I - 1 do
Sum:=Sum - A[I, J] * B[J];
B[I]:=Sum;
end;
For I:=N DownTo 1 do
begin
If D[I] = 0 Then
begin


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

delphi Õ÷¼¯¸ßÊÖ·ÖÎö

СµÜ×î½ü×öÁ˼¸¸ö·þÎñ ·þÎñÔËÐÐÐèҪһЩ²ÎÊý ²ÎÊýÊÇͨ¹ýÒ»¸ö³ÌÐò½çÃæÐÞ¸ÄµÄ ²ÎÊý±£´æÔÚaccessÊý¾Ý¿âÖÐ ÏÖÔÚ³öÏÖÒ»ÁéÒìÏÖÏó µ¥¶ÀµÄ·þÎñÊÇ¿ÉÒÔ½øÐпØÖƵ썷þÎñµÄÍ£Ö¹ ÔÝÍ£µÈµÈ£©µ«ÊǶà¸ö·þÎñÒ»Æð¿ªÆô»á³öÏÖÒ»·þÎñ¿ª ......

DelphiÊý¾Ý¿âͼƬÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÓõÄÊÇsql server2000£¬ÀïÃæ´æÓÐ×ֶΣºÕÕÆ¬ image
ÎÒ²»Ã÷°×Ôõô°ÑͼƬ´æÈëÊý¾Ý¿âÖУ¿
ÎÒ»¹ÔÚDelphiÖн¨Á¢ÁË´°Ì壬ÈçºÎ½«Êý¾Ý¿âÖеÄͼƬһ²¢ÏÔʾ³öÀ´£¬ÎÒÓõÄÊÇDBGridºÍImage
ÈçºÎ½«Á½Õß¹ØÁªÆðÀ´£¿£¡
²Î¿¼(ÎÒ»Ø ......

Delphi spcomm ¿Ø¼þ - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

´óÏÀÃǰïæ¿´Ò»Ï£¬ÓÃspcomm¿Ø¼þ½øÐд®¿ÚͨÐÅ¡£
·¢ËÍÊý¾Ý£º
procedure TForm1.Button2Click(Sender: TObject);
var
 strPressure:string;
begin
 
 strPressure:='SEND'+#13;
 comm ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ