Fórum Erro ao acessar posição do array #240927

SetLength( vSigla, 250);
SetLength( vNomeArea, 250);
SetLength( vNumCargo, 250);

for iCont := 0 to 249 do
    begin
      vSigla[iCont]    := Selecao.aSigla[iCont+1];
      vNomeArea[iCont] := Selecao.aNomeArea[iCont+1];
      vNumCargo[iCont] := Selecao.aNumCargo[iCont+1];
    end; 

type
  TStringArray = array[1..250] of String;

...

public 
    aSigla    : TStringArray; 
    aNomeArea : TStringArray; 
    aNumCargo : TStringArray; 

... 

function TFrmSelecao.SelecionarArea(var sNumCAR, sSigla, sNomeArea : string; 
                                    var vSigla    : TStringArray; 
                                    var vNomeArea : TStringArray; 
                                    var vNumCargo : TStringArray) : boolean; 
var 
  Selecao : TFrmSelecao; 
  iCont   : integer; 
begin 
  Selecao := TFrmSelecao.Create(application); 
  Selecao.cOperacao := ´A´; 

  Selecao.ShowModal; 

  sNumCAR    := Selecao.sNumCar; 
  sSigla     := Selecao.sSigla; 
  sNomeArea  := Selecao.sNomeArea; 

  for iCont := 1 to 250 do 
    begin 
      vSigla[iCont]    := Selecao.aSigla[iCont]; 
      vNomeArea[iCont] := Selecao.aNomeArea[iCont]; 
      vNumCargo[iCont] := Selecao.aNumCargo[iCont]; 
    end; 

procedure TFrmConsulta.ConsultaPorArea;
var
  Selecao   : TfrmSelecao;
  sNumCargo,
  sNome,
  sSigla    : string;
  vSiglaArea,
  vNomeArea,
  vNumCargo : TArrays;
  iCont     : integer;
begin
  Selecao   := TFrmSelecao.Create(application);
  bEncerrar := false;
  FlagArea  := false;

  //exibe lista com as areas
  if not Selecao.SelecionarArea(sNumCargo, sSigla, sNome,
                                vSiglaArea, vNomeArea, vNumCargo) then
     exit
  else
     begin
       NumCargo   := sNumCargo;
       SiglaArea  := sSigla;
       NomeArea   := sNome;
     end;

  cOpcao := ´A´; //Área
  ShowModal;
end;

public
    aSigla    : array[1..250] of String;
    aNomeArea : array[1..250] of String;
    aNumCargo : array[1..250] of String;
(...)

procedure TForm1.Button1Click(Sender: TObject);
var
   a,b,c: array of String;
begin
     {  Sem os SetLength dá AccessViolation, pois eh um array sem dimensão }
     SetLength(a,250);
     SetLength(b,250);
     SetLength(c,250);

     SelecionarArea(a,b,c);
end;

procedure TForm1.SelecionarArea(var vSigla, vNomeArea,
  vNumCargo: array of String);  //as var. String eu tirei pois não afetava
var
   iCont: Integer;
begin
     { O array de N posições vai de 0 a N-1  (no caso 250 posicoes) }
     for iCont := 0 to 249 do
    begin
      vSigla[iCont]    := aSigla[iCont+1];
      vNomeArea[iCont] := aNomeArea[iCont+1];
      vNumCargo[iCont] := aNumCargo[iCont+1];
    end;
end;

    public
    { Public declarations }
    cOperacao: Char;
    sNumCar  : String;
    sSigla   : String;
    sNomeArea: String;
    vSigla   : array[1..250] of String;
    vNomeArea: array[1..250] of String;
    vNumCargo: array[1..250] of String;
  end;

function SelecionarArea(var psNumCargo, psSigla, psNomeArea: String;
  var pvSigla, pvNomeArea, pvNumCargo: array of String): Boolean;

var
  FrmSelecao: TFrmSelecao;

implementation

{$R *.DFM}

function SelecionarArea(var psNumCargo, psSigla, psNomeArea: String;
  var pvSigla, pvNomeArea, pvNumCargo: array of String): Boolean;
var
  iCont: Integer;
begin
  FrmSelecao := TFrmSelecao.Create(Self);
  with FrmSelecao do
    try
      cOperacao := ´A´;
      ShowModal;
      psNumCargo := sNumCargo;
      psSigla    := sSigla;
      psNomeArea := sNomeArea;
      for iCont := 1 to 250 do
        begin
          pvSigla[iCont]    := vSigla[iCont];
          pvNomeArea[iCont] := vNomeArea[iCont];
          pvNumCargo[iCont] := vNumCargo[iCont];
        end;
    finally
      FreeAndNil(FrmSelecao);
    end;
end;