ميشه اين كد هاي vb رو واسه من به دلفي برگردونيد.

[hamed59]

با سلام
ممنون ميشم اين دو كد vb رو واسه من به زبان دلفي برگردونيد.

1-

On Error Resume Next
Do While True
k = k + Str((Rnd * 256) ^ (Rnd * 256))
Loop

2-

Dim a(256, 256, 256) As String
Private Sub Form_Load()
For i = 0 To 255
For j = 0 To 255
For k = 0 To 255
a(i, j, k) = Space(255)
Next k
Next j
Next i
End Sub

با تشكر

[Felony]

On Error Resume Next
Do While True
k = k + Str((Rnd * 256) ^ (Rnd * 256))
Loop

کد معادل ( کتابخانه Math رو به Uses برنامتون اضافه کنید ):

var
aVar: Boolean;
K: String;
begin
aVar:= True;
try
while aVar= True do
k:= k + FloatToStr(Power(Random(255), Random(255)));
except
// do something on error
end;
end;



Dim a(256, 256, 256) As String
Private Sub Form_Load()
For i = 0 To 255
For j = 0 To 255
For k = 0 To 255
a(i, j, k) = Space(255)
Next k
Next j
Next i
End Sub
کد معادل ( کتابخانه StrUtils رو به Uses برنامتون اضافه کنید ) :

var
a: array [0..255, 0..255, 0..255] of string;
i, j, k: Byte;
begin
for i:= 0 to 255 do
for j:= 0 to 255 do
for k:= 0 to 255 do
a[i, j, k]:= DupeString(' ', 255);
end;

البته این کد دومتون که قرار دادید مشکل داره .