这是德尔福 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
..................................................... ……