1 uygun sonuç bulundu

gönderen vigor37
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)+...