Dificuldade em criar uma propriedade do tipo array

Delphi

29/01/2007

Boa Tarde Galera!

Estou com um problema, não consigo criar uma propriedade do tipo array
estou declarando dessa forma;

Private
  FCAmpo  : Array of string;

Public
  Property Campo    : Array of string
      read FCampo     write SetCampo;
  procedure setCampo(const value: array of string);


na implematação esta assim:

procedure TRegistro.SetCampo(const value: Array of string);
begin
  FCampo := Value;
end;


Ai quando eu compilo me da este erro:
[Pascal Error] URegistro.pas(112): E2029 Identifier expected but ´ARRAY´ found, lá na declaração da propriedade depois da palavra array.

gostaria de saber se estou declarando alguma coisa errada.

Desde de já obrigado!


Ruyoutor

Ruyoutor

Curtidas 0

Respostas

Ruyoutor

Ruyoutor

29/01/2007

Galera dei uma olhada no help do delphi e acho q achei a resposta.

Vou postar aki. A declaraçãoi tem que ser da seguinte forma:


private
  Function getCampo (Index: Integer):String;
public
  Property Campo   [Index: integer]:String
       read GetCampo  write SetCampo;
  Procedure SetCampo (Index: Integer; Value: String);


Na implementação fica assim:

function getCampo(Index: integer):string;
begin
  result:= campo[index];
end;

procedure setCampo(index: integer; value string);
begin
  Campo[index]:= value;
end;


Acho q é assim fiz e compilou só ñ testei em execução ainda.


GOSTEI 0
POSTAR