(Resolvido) Criar Matriz no meio do evento de um componente

[K!ko]

Bom dia senhores.

Seguinte... eu preciso criar uma matriz no meio do evento do um determinado componente, um BitBtn pra ser mais preciso.

Por exemplo:

procedure TFRelMov_Cob.BitBtn3Click(Sender: TObject);
type data = array[1.. 15] of string;
type sum = array[1.. 2,1.. 15] of integer;
var {Variáveis};
Begin

//Linhas de código

//Criar a matriz aqui. <<<<<<<<< 

//Restante dos códigos

end;

não sei se fui claro com meu exemplo, mas preciso criar a matriz no meio do código pois o nº de linhas da mesma deve ser o nº de registros resultantes de um select que já esta no código e só sei criar matrizes e vetores usando o "Type" como esta no exemplo.

agradecido desde já.

[Jhonas]

eu preciso criar uma matriz no meio do evento do um determinado componente, um BitBtn pra ser mais preciso.

Vou te dar um exemplo de como criar um array dinamico, com o numero de indices que voce quizer

procedure TForm1.Button1Click(Sender: TObject);
var MeuArray: array of String;
    i : integer;
    InputString : string;
begin
   InputString:= InputBox('Digite o valor do array', 'Prompt', '0');

   SetLength(MeuArray, strtoint(InputString));

   for i := 0 to strtoint(InputString)-1 do
      begin
         MeuArray[i] := inttostr(i);
         memo1.Lines.Append(MeuArray[i]);
      end;
end;

abraço

[K!ko]

Vou te dar um exemplo de como criar um array dinamico, com o numero de indices que voce quizer

abraço

Brow... eu fiquei um tanto confuso em algumas partes do código... se não for pedir muito, teria como explica-lo?

Como ficaria se eu fosse montar algo com seu exemplo usando o recordcount de um ClientDataSet pra indicar as linhas e que o mesmo array tivesse 15 colunas?

Obrigado pela atenção

Abraço.

Editado Julho 14, 2008 por K!ko

[Jhonas]

Como ficaria se eu fosse montar algo com seu exemplo usando o recordcount de um ClientDataSet pra indicar as linhas e que o mesmo array tivesse 15 colunas?

Ficara mais ou menos assim

procedure TForm1.Button1Click(Sender: TObject);
var MeuArray: array of array of Integer;
    i,j : integer;
begin

   for i := 0 to CDS_Query1.RecordCount-1 do
      for j := 0 to 14 do         
         begin

            MeuArray[i,j] := CDS_Query1CampodaTabela.Value;

         end;

end;

Primeiro voce define um array com duas dimensões ( var MeuArray: array of array of Integer; )

depois voce define o tamanho dos indices do array ( SetLength(MeuArray,CDS_Query1.RecordCount,15); )

depois disso é só trabalhar com os indices

abraço

[K!ko]

Como ficaria se eu fosse montar algo com seu exemplo usando o recordcount de um ClientDataSet pra indicar as linhas e que o mesmo array tivesse 15 colunas?

Ficara mais ou menos assim

Primeiro voce define um array com duas dimensões ( var MeuArray: array of array of Integer; )

depois voce define o tamanho dos indices do array ( SetLength(MeuArray,CDS_Query1.RecordCount,15); )

depois disso é só trabalhar com os indices

abraço

Agora ficou claro... funfo beleza....

Obrigado Jhonas!

abraço