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

Delphi¶àÏß³Ìѧϰ£¨3£©£ºÏß³Ìͬ²½µÄÔ­Òò

ÔÚʹÓöàÏ̵߳Äʱºò£¬Èç¹û¶àÏ̶߳Ôij¸öÌØ¶¨µÄ¹«¹²Êý¾Ý»ò×ÊÔ´½øÐзÃÎÊ£¬ÐèÒª¶Ô¶àÏ߳̽øÐÐЭµ÷²Ù×÷£¬½Ð×öÏß³Ìͬ²½¡£
     ÀýÈ磺Èý¸öÏ̷ֱ߳ðÑ­»·µØÏòListBoxÖÐдÈëÊý¾Ý¡£Ã»ÓнøÐÐͬ²½Ê±£¬Ð´ÈëµÄ˳ÐòÊDz»È·¶¨µÄ¡£
{Ö÷´°Ìå´úÂë}
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses MyThread;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
TMyThread.Create(False);
TMyThread.Create(False);
TMyThread.Create(False);
end;

end.{¶àÏ̴߳úÂë}
unit MyThread;

interface

uses
Classes,StdCtrls,SysUtils,Windows;

type
TMyThread = class(TThread)
private
{ Private declarations }
str:String;
procedure AddList;
protected
procedure Execute; override;
end;

implementation

uses Unit2;

{ TMyThread }

procedure TMyThread.AddList;
begin
Form2.ListBox1.Items.Add(str);
end;

procedure TMyThread.Execute;
var
i:Integer;
begin
{ Place thread code here }
for i := 0 to 99 do
begin
if not Terminated then
begin
str:=Format('Ïß³ÌID:%d£¬µÚ%d¸öÑ­»·¡£',[GetCurrentThreadId,i]);
Synchronize(AddList);
end;
end;
end;

end.

Èý¸öÏ̸߳ù¾Ý·ÖÅäµ½µÄCPUʱ¼äµÄ˳ÐòÏòListBoxÖÐдÈëÊý¾Ý¡£ÕâÀïµÄ¹«¹²×ÊÔ´ÊÇListBox¡£
¿ÉÒÔ½«Õâ¸ö¹«¹²µÄÀä×ÊÔ´±ÈÓ÷Ϊһ¸öͼÊé¹Ý£¬Ï̱߳ÈÓ÷Ϊ½èÊé¿´ÊéµÄÈËÔ±¡£ÄÇôûÓÐͬ²½´¦ÀíµÄÇé¿öÏ£¬¾ÍºÃÏñͼÊé¹ÝÍêÈ«¿ª·Å£¬Ã»ÓÐÈ˹ÜÀí£¬Ã¿¸öÈ˶¼¿ÉÒÔ·ÃÎÊÕâ¸öͼÊé¹Ý¡£¿´ÆðÀ´ÂÒÔãÔãµÄ£¬¶øÇÒµ±Ä³ÈËÏë½èÊéAµÄ»°£¬²éѯµÄʱºòÊéA»¹ÔÚ£¬µ±ËûÈ¥½èµÄʱºò¿ÉÄܱ»ÁíÒ»ÈËÒѽè×ß¡£
ΪÁ˸üºÃ¹ÜÀíµÄÐèÒª£¨Ä³Ð©¶Ô¹«¹²×ÊÔ´µÄ·ÃÎʱØÐëÖð¸öÏ̴߳¦Àí£¬²Å²»»á³ö´í£©£¬ÕâÀï¾ÍÒªÓõ½Í¬²½£¬¼´²éѯºÍ½èÊéÕâÁ½¸ö²½ÖèÒªÒ»ÆðÍê³É£¬µÈÒ»¸


Ïà¹ØÎĵµ£º

ÓÃDelphi±àÖÆ¿É×Ô¶¯Éý¼¶³ÌÐò

ÔÚ±àÖÆÁËÒ»¸öÓ¦ÓóÌÐòºóµÄά»¤½×¶Î£¬ÎÒÃÇ»áÃæÁÙ¸øÓ¦ÓóÌÐòÉý¼¶µÄ¹¤×÷.ÎÞÒÉ£¬ÊÖ¹¤Éý¼¶µÄ¹¤×÷ÊÇÊ®·Ö·±ËöµÄ£¬Äã¿ÉÄÜ»áÐèÒªµ½Óû§µÄ»úÆ÷ÉÏÈ¥¸üÐÂÎļþ.¿ÉÊÇ£¬Èç¹ûÄܱàÒ»¸ö×Ô¶¯Éý¼¶³ÌÐò£¬·ÅÔÚÍøÂçÉÏ£¬ÈÃÓû§ÏÂÔØ£¬Ö»ÐèÖ´ÐÐһϾÍÍê³ÉÉý¼¶¹¤×÷£¬²»ÊǺܷ½±ãÂð£¿Æäʵ£¬ÓÃDelphi¿ÉÒԺܷ½±ãµØ±àÖÆ³öÕâÑùÒ»¸öµÄ³ÌÐò.
ÒÔÏÂÊÇÎÒÃǵÄÀý×Ó£ ......

DelphiÏÂʵÏÖ°üº¬Í¨Åä·ûµÄÎı¾²éÕÒ

±¾ÎÄ×îÔçÔÚ±à³ÌÂÛ̳ÉÏ·¢±í£¬ÎÄÕµØÖ·£ºhttp://programbbs.com/bbs/view12-21351-1.htm£¬Ïà¹ØÎļþ¿ÉÒÔÔÚÉÏÊöµØÖ·µÄÒ³ÃæÖÐÏÂÔØ¡£×ªÔØÊ±Çë×¢Ã÷³ö´¦¡£
Ò»¡¢Ç°ÑÔ
ͨÅä·û¾ÍÊÇÖ¸“*”ºÍ“?”Á½¸ö×Ö·û£¬“*”±íʾµ±Ç°Î»ÖÿÉÒÔûÓлòÕßÓжà¸öÈÎÒâ×Ö·û£»“?”±íʾµ±Ç°Î»ÖÃÓÐÒ»¸öÈÎÒâ×Ö·û¡£ ......

Delphi Êý×éºÍ½á¹¹Ìå

¼¼Êõ½»Á÷,DH½²½â. ¼ÇµÃºÜÔç֮ǰÎÒ¾Í˵¹ý,Êý×éºÍ½á¹¹ÌåÔÚÄÚ´æÖÐÆäʵһÑùµÄ,ËûÃǶ¼ÊÇÁ¬Ðø·Ö²¼µÄ.
ÀýÈç: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
ÕâÁ½¸ö¶¼Õ¼12×Ö½Ú,¶øÇÒTMyStruct.A¾ÍÊÇT3IntArray[0].

¶øÎÒÃÇÖªµÀÔÚ·ÃÎÊÊý×éÖÐij¸öÔªËØµÄʱºò,Ö»ÊÇÔÚµ ......

delphiÖ¸Õë¼òµ¥ÈëÃÅ:


    
 Ö¸ÕëÓ÷¨µÄÀý×Ó£º  
  1         var  
  2             X,   Y:   Integer;       //   X   and   Y   ÕûÊýÀàÐÍ  
  3       &n ......

ÔÚDelphiÖУ¬×Ö·û´®²éÕÒ º¯Êý

DelphiÌṩµÄ×Ö·û´®º¯ÊýÀïÓÐÒ»¸öPosº¯Êý£¬ËüµÄ¶¨ÒåÊÇ£º
function Pos(Substr: string; S: string): Integer;
ËüµÄ×÷ÓÃÊÇÔÚ×Ö·û´®SÖвéÕÒ×Ö·û´®Substr£¬·µ»ØÖµÊÇSubstrÔÚSÖеÚÒ»´Î³öÏÖµÄλÖã¬Èç¹ûûÓÐÕÒµ½£¬·µ»ØÖµÎª0¡£
ʹÓÃposº¯ÊýÀ´²éÕÒ×Ö·ûµÚÒ»´Î³öÏÖµÄλÖÃ
var
str1:string;
i,j:integer;
begin
str1:='dsf465 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ