Array de Tstrings

Delphi

10/03/2006

Pessoal preciso criar um array de Tstrings

vmatsqls: array [0..150,0..1] of TStrings;

quando vou igualar o conteudo da posicao ex:

vmatsqls[0,0].text := ´teste´;

me retorna mensagem de erro.

Alguém poderia me ajudar?


Jubrovolski

Jubrovolski

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

10/03/2006

Colega,

Para cada elemento da matriz, você deve utilizar o construtor. Exemplo:

  vmatsqls[0,0] := TStringList.Create;



GOSTEI 0
Marco Salles

Marco Salles

10/03/2006

Colega, Para cada elemento da matriz, você deve utilizar o construtor. Exemplo: Código: vmatsqls[0,0] := TStringList.Create;


de fato Aroldo Zanela , mas veja o que o amigo esta fazendo

vmatsqls[0,0].text := ´teste´;


isto esta mais para String Do que para TStrings , com exceção da propriedade Text..

Então amigo , faça como o Aroldo sugeriu , ou se for o caso redefina seu array para String

procedure TForm1.Button2Click(Sender: TObject);
var
vmatsqls: array [0..150,0..1] of String;
begin
 vmatsqls[0,0]:= ´teste´;
 showmessage(vmatsqls[0,0])
end;



GOSTEI 0
POSTAR