Delphi ，VB高手看过来！怎样把下面几行VB代码转换成等效Delphi代码？？——————在线等待！！！！

Question

大家好！怎样把下面这些VB代码转换成DELPHI 等效代码？？？？？？？？？？？？？？？？？？Dim strPort As String
Dim nBaudRate As Long
Dim X As Long
Dim loopIndex As Integer
Dim bPortName(3) As Byte
Dim RC As IntegerstrPort = “COM1” 
nBaudRate = 115200 
For loopIndex = 1 To Len(strPort)
bPortName(loopIndex - 1) = Asc(Right(Left(strPort, loopIndex), 1))
Next loopIndex
RC = Amic_DeviceOpen(bPortName(0), nBaudRate)

Answer 1

var
strport:string;
nbaudrate,x:long;
loopindex,rc:integer;
bportname:array[0..3] of byte;strport:='com1';
nbaudrate:=115200;
for loopindex:=1 to len(strport) do后3句你解释一下什么意思好不好，VB这个不太明白

Answer 2

var
  strPort : String;
  nBaudRate : Integer;
  X : Integer;
  loopIndex : Integer;
  bPortName(3) : Byte;
  RC : Integer;
begin
  strPort := 'COM1'; 
  nBaudRate := 115200; 
  For loopIndex := 1 To Length(strPort);
  bPortName(loopIndex - 1) := Asc(Right(Left(strPort, loopIndex), 1));//asc可用key = 来代替..就是按键 
  loopIndex := loopIndex + 1;
  RC = Amic_DeviceOpen(bPortName(0), nBaudRate);/DeviceOpen(devicenum,句柄)
end; 
vb学的不好...忘了...只能搞这么多...还不知道对不对的...

Answer 3

bPortName(3) : Byte; 这句错了...呵呵...

Answer 4

函数Asc和Amic_DeviceOpen在vb里面是干什么用的

Answer 5

只解释这一句话：bPortName(loopIndex - 1) = Asc(Right(Left(strPort, loopIndex), 1))Asc在VB中是返回字符ASCALL码的。。怎么用Delphi 写啊

Answer 6

Asc在VB中是返回字符ASCALL码的。。怎么用Delphi 写啊// Ord();

Answer 7

var
  strPort : String;
  nBaudRate,X : Longint;
  LoopIndex,RC:integer;
  bPortName : array[0..2] of byte;
begin
  strPort := 'COM1';
  nBaudRate := 115200;
  For loopIndex := 1 To Length(strPort) do
  bPortName[loopIndex - 1] := ORD(strPort[loopIndex]);
   // bPortName[loopIndex - 1] := Asc(Right(Left(strPort, loopIndex), 1))
  //RC = Amic_DeviceOpen(bPortName(0), nBaudRate)
end;Amic_DeviceOpen不知道是做什么的了

Answer 8

Amic_DeviceOpen 不用解释。谢谢大家啊 ？

Answer 9

Amic_DeviceOpen是将在VB使用的函数名
DeviceOpen是devicenum的句柄
-------------------------------------------------------------------------------
不敢保证是对的...我看了是这样理解的