procedure TForm1.FormCreate(Sender: TObject);
var t:pchar;
i,len:Integer;
begin
ApdComPort1.Output:=chr($0C);
t:=pchar(Edit1.Text);
len:=9-strlen(t);
for i:=0 to strlen(t) do
begin
if t ='.' then
begin
len:=len+1;
break;
end;
end;
//钱数在顾显屏右对齐。（默认是左对齐，不好看）
case len of
1: ApdComPort1 ...
1 uygun sonuç bulundu
- 27 Mar 2018 05:42
- Forum: Delphi .net
- Başlık: bu kodları vb net kodlarına çevirmem lazım
- Cevaplar: 0
- Görüntüleme: 13429