摘要：
通过comport获取计算机中的所有串口号：procedure TForm1.FormCreate(Sender: TObject); //获取计算机中的串口号var Cnumber:TStrings; i:Integer;begin cbb2.Items.Clear; Cnumber:=TStringList.Create; EnumComPorts(Cnumber); //获取串口号函数：EnumComPorts for i:=0 to Cnumber.Count-1 do begin cbb2.Items.Add(Cnumber.Strings[i]) end; cbb2.ItemInd 阅读全文
摘要：
//延迟函数：方法一procedure delay(msecs:integer);var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do begin Application. 阅读全文
摘要：
Delphi中三种延时方法及其定时精度分析 来自：lili_0522 时间：2005-7-14 16:21:05 在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。 一、三种方法的简单介绍1）TTtimer控件 TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事件和Interval属性，我们可以很方便的产生一些简单的定时事件。2）Sleep函数 Sleep函数用来使程序的执 阅读全文
摘要：
Function StrToHexStr(Const S: String): String; //字符串转换成16进制字符串(方法一) Var I: Integer; Begin For I := 1 To Length(S) Do Begin If I = 1 Then Result := IntToHex(Ord(S[1]), 2) Else Result := Result + ' ' + IntToHex(Ord(S[I]), 2); End; End; function strToHexStr(str:string):string; //字符串转换成16进制字符串(方 阅读全文
摘要：
var i:Integer; control:TComponent;begin for i := 0 to 99 do begin control := FindComponent('Edit'+IntToStr(i)); if control <> nil then begin TEdit(control).Text := IntToStr(i); end; end;end; 阅读全文
摘要：
TComponent类TComponent类直接由TPersistent派生。TComponent的独特特征是它的属性能够在设计期间通过ObjectInspector来控制，能够拥有其他组件。非可视组件也是从TComponent派生的，因此它们也继承了在设计期间可以被控制的能力。TComponent派生的非可视对象的典型例子是TTimer组件。TTimer组件是不可视组件，但它仍可以在组件面板上得到。TComponent定义了几个重要的属性和方法，在随后的段落中将加以描述。1.TComponent的属性:Owner：组件的拥有者ComponentCount：组件所拥有的组件数目Componen 阅读全文
只有注册用户登录后才能阅读该文。 阅读全文