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: 3878
bu kodları vb net kodlarına çevirmem lazım
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.Output:=chr($1B)+...