Ajuda type - array

Delphi

11/10/2005

E ae será que alguem pode me ajudar...

é o seguinte...
criei um tipo.. TToken

ex: TTokens = Array of Byte;


Agora vou usar... ele..


procedure TForm1.Varre(linha:String;nLin:integer);
var
substr : String;
i: integer;
token:TTokens;
tokenE:TTokens;
begin
token[1]:=1;
token[2]:=1;

Porem quando vou dar um valor a ele... (token [1]:=1;)
Ele da erro como se nao fosse inicializado..

o que tenho q fazer...
pra isso funcinar..
Preciso usar esse tipo q criei.. pois vou utilizado depois ...


alguem pode me ajudar...
preciso de uma reposta urgente..
pra um trabalho da facul que tenho q entregar hj...

grato..
atenciosamente,.
DAVE


Davefloripa

Davefloripa

Curtidas 0

Respostas

Edilcimar

Edilcimar

11/10/2005

tem que dizer que o array vai de um número inicial até um número final, vc não especificou a faixa portanto ele não conhece o array[1]


GOSTEI 0
Massuda

Massuda

11/10/2005

TTokens = Array of Byte;
Essa declaração cria um array dinâmico no Delphi. Todo array dinâmico pode ter seu tamanho definido durante a execução e o tamanho não precisa ser um valor fixo.

No seu caso, provavelmente o mais simples é seguir o que o [b:37aff1a942]edilcimar[/b:37aff1a942] escreveu... defina um tamanho para o array; por exemplo...
const
  MaximoDeTokes = 1000;

type
  TTokens = Array[1..MaximoDeTokens] of Byte;



GOSTEI 0
Edilcimar

Edilcimar

11/10/2005

ou assim
Numero := um valor qualquer a ser calculado durante a execução
NomeDivisao := VarArrayCreate([1, Numero], VarOleStr);
e depois
For I := 1 to Numero do
NomeDivisao[I] := ´´;
para inicializar o array que no caso é string


GOSTEI 0
POSTAR