Erro estranho: declarar constante (CONST)

08/12/2003

1

Uso DELPHI 6 / WINXP pro

De repente meus programas com a declaração de CONST NÃO FUNCIONAM MAIS. Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
const aTeste: array[0..2] of string = (´Teste1´,´Teste2´,´Teste3´);
begin
 ShowMessage(aTeste[1]);
end;


ERRO:
´Access violation at address 00A1DA69 in module ´dcc60.dll´. Read od address FFFFFFFF´


Se fizer como VAR funciona sem problemas.
procedure TForm1.Button1Click(Sender: TObject);
var aTeste: array[0..2] of string;
begin
 aTeste[0]:=´teste1´;
 aTeste[1]:=´teste2´;
 aTeste[2]:=´teste3´;
 ShowMessage(aTeste[1]);
end;


Alguém já passou por isso...


Responder