這是我的一個發送數據到com1口的函數:
procedure TMainf.BtimeClick(Sender: TObject);
var a:byte;i:integer;str:array[0..6]of string;
tmp:String;
begin
a:=$09; //這個就表示是十六制數
com.WriteCommData(@a,1);//發送該十六制數的地址
str[0]:=right('0000'+edit5.text,2);
str[1]:=right('00'+edit6.text,2);
str[2]:=right('00'+edit7.text,2);
str[3]:=right('00'+edit8.text,2);
str[4]:=right('00'+edit9.text,2);
str[5]:='00';
str[6]:=right('00'+edit10.text,2);
for i:=0 to 6 do
begin
a:=strtoint(str);
com.WriteCommData(@a,1);
end;
end;