Fórum Trabalhando com Matriz em Delphi. #382045

unit Unit4; interface uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls; type
  TForm4 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end; var
  Form4: TForm4; implementation {$R *.dfm} procedure TForm4.Button1Click(Sender: TObject);
var
  Matriz: array of array of string;
  Cont:Integer;
begin
  // Definindo as Dimensoes da Matriz
  // Nome do Objeto, Linha,Coluna
  SetLength(Matriz,7,2);  // --> 8 linhas "O indice sempre começa do Zero" e 2 Colunas
  for Cont := 0 to 7 do begin
    Matriz[Cont,0]:= IntToStr(Cont) + ' ª Linha' + ' -- 1ª Coluna';
    Matriz[Cont,1]:= IntToStr(Cont) + ' ª Linha' + ' -- 2ª Coluna';
    ListBox1.Items.Add(Matriz[Cont,0]);
    ListBox2.Items.Add(Matriz[Cont,1]);
  end; end; end. Um bom exemplo de matriz, é usar para pesquisas avançadas...por exemplo   Você pode listar todos os campos de sua tabela para que o usuário possa pesquisar, porem vc mostra para o usuário o display Label da sua tabela, mas no Select você usa o nome do Campo...   Se vcs quiserem como faz depois eu posto....vlw