-3

这是德尔福 6代码:

Buf: array[1..5000000] of Char;
BufC: array[1..5000000] of Char;

如何在VB.NET中编写它?

这就是为什么我需要'var' BufC(Delphi6):

var
i,ii: LongInt;
BitPenanda,inbuf,buflong,SameBit,ulang4,uu :integer;
SigmaMin:LongInt;
Save_Cursor:TCursor;
SigmaAscii: Array[0..255] of LongInt;

Begin
BufC[1]:='R';BufC[2]:='U';BufC[3]:='N';
for uu:=0 to 255 do

..................................................... ……

4

1 回答 1

2
Dim Buf(4999999) as Char
Dim BufC(4999999) as Char

根据您的编辑:

Dim i,ii,SigmaMin as Long
Dim BitPenanda,inbuf,buflong,SameBit,ulang4,uu as Integer;
Dim BufC(4999999) as Char
//TCursor? 
Dim SigmaAscii (255) as Long;



For uu = 0 To 255
     BufC(0) = "R"
     BufC(1) = "U"
     BufC(2) = "N"
Next

上面的代码似乎毫无意义,除非你有错字?

于 2013-09-27T07:47:24.023 回答