из single в string

[claymen]

У меня есть массивы данных

Код: Выделить всё

x(140,140) AS SINGLE
y(140,140) AS STRING


мне надо быстро заполнить Y данными из X
Как такое сделать, но быстро?

[Роман-вб]

Код: Выделить всё

for i=1 to 140
   for j=1 to 140
      y(i,j)=Str$(x(i,j))
nextj,i

[claymen]

Код: Выделить всё

for i=1 to 140
   for j=1 to 140
      y(i,j)=Str$(x(i,j))
nextj,i

ну это первое, что пришло мне в голову, но когда это надо делать несколько раз, прога начинает зависать ;((

[hCORe]

DoEvents

[Роман-вб]

claymen
Ну да, DoEvents впихни.

[claymen]

сейчас попробую....

[Amed]

Расскажи, зачем надо заполнить String числами. Может быть обходной маневр.