Fórum Array #234501

Como quase 90¬ das tabelas deste banco tem um numero elevado de registro acho que seria mais conveniente trabalhar com arrays já que o acesso a memoria é bem mais rápido do que o acesso ao banco.

Domine o array dinamico :) Estou começando do princípio que você já conheça os princípios do array ´simples´, ou seja, array fixo (Exemplo abaixo) Procedure Tform1.Button1Click (Sender: Tobject) ; var Dias_de_Semana: array[1..7] of String; DiaNo: Integer; begin {Inicializa o array com nomes dos dias da semana } Dias_de_Semana [1] := ´Domingo´ ; Dias_de_Semana [2] := ´Segunda-feira´ ; Dias_de_Semana [3] := ´Terça-feira´ ; Dias_de_Semana [4] := ´Quarta-feira´ ; Dias_de_Semana [5] := ´Quinta-feira´ ; Dias_de_Semana [6] := ´Sexta-feira´ ; Dias_de_Semana [7] := ´Sábado´ ; // Retorna o número da semana atual DiaNo :=DayOfWeek (Date) ; ShowMessage(´ Hoje é ´ + Dias_de_Semana [DiaNo] ) ; Caso você não entenda o exemplo acima, então aconselho a estudar o Array primeiramente. Existem na Internet muitos materiais que ensinam os princípios do array. Bom se esta seguro do uso da array, vamos em frente. Array Dinâmico, significa que você pode alterar um array durante a execução, alterando o tamanho ou adicionando/retirando informações. No Delphi, existem funções que servem também para ajudar nestas necessidades. Utilizaremos dentre as existentes, as funções: SETLENGTH; HIGH; LOW; LENGTH. Veremos a seguir, detalhadamente o uso de cada uma delas. Vamos a prática!!! Dentro do form, insira um button e dê duplo clique no mesmo. Insira o código: procedure TForm1.Button1Click(Sender: TObject); var ContadorDinamico : array of string; //Indico o meu vetor (ContadorDinamico) como array do tipo string. Begin // SetLength aqui, serve para pegar a quantidade máxima que o ContadorDinamico suportará, ou seja, de 0 a 9 posições.. SETLENGTH(ContadorDinamico,10); // LENGTH tem a finalidade de capturar a quantidade total definida em SETLENGTH ShowMessage(IntToStr(LENGTH(ContadorDinamico))); end; Agora no próximo exemplo, veja a utilidade das funções HIGW e LOW. procedure TForm1.Button2Click(Sender: TObject); var ContadorDinamico : array of string; //Indico o meu vetor (ContadorDinamico) como array do tipo string. Begin // SetLength aqui, serve para pegar a quantidade máxima que o ContadorDinamico suportará, ou seja, de 0 a 9 posições.. SETLENGTH(ContadorDinamico,10); // LENGTH tem a finalidade de capturar a quantidade total definida em SETLENGTH ShowMessage(IntToStr(LENGTH(ContadorDinamico))); // Apresenta a última posição, ou seja, 9, enquanto o LENGTH apresenta o tamanho suportado. ShowMessage(inttostr(HIGH(contadordinamico))); // Apresenta a primeira posição, ou seja, 0. showmessage(inttostr(LOW(contadordinamico))); end; Nota: Um Array de tamanho 0 (Zero) é um array NIL, ou seja, nulo. Ex. SETLENGTH(ContadorDinamico,0); Vamos praticar mais. Imagine que você precise, através de um array, contar os caracteres digitados em um edit. Insira no form um edit e um novo botão que receberá o código abaixo: var ContadorDinamico : array of string; Begin SETLENGTH(ContadorDinamico,length(edit1.text)); showmessage(inttostr(length(contadordinamico))); end; O length pega a quantidade de caracteres do edit e repassa esta informação para o vetor, armazendo pelo SetLength. Na segunda linha o length conta o que foi armazenado pelo SetLength. Atenção! Imaginemos que o texto do edit seja ´edit1´. O SetLength armazenou o vetor de 0 a 5, contudo o length conta iniciando do 1. Caso tenha ainda dúvidas, coloque abaixo da linha do show message, esta 2 (duas) linhas para entender. showmessage(inttostr(low(contadordinamico))); showmessage(inttostr(high(contadordinamico))); Agora basta aprimorar: Veja um exemplo mais complexo, utilizando um form com um listbox e um botão no qual vai o código abaixo: var Matriz : Array of array of String; i, j: integer; begin i:=0; j:=0; SetLength( Matriz, 10 ); For i:= Low(Matriz) to High(Matriz) do begin listbox1.Items.Add(´***** ´+inttostr(j)+´ Decimal com final ´+inttostr(i)+´ *****´); SetLength( Matriz[i], 10 ); For j:= Low(Matriz[i]) to High(Matriz[i]) do Begin Matriz[i,j] := IntToStr(i) + ´,´ + IntToStr(j) + ´ ´; sleep(2); listbox1.Items.Add(inttostr(j)+inttostr(i)); end; end; end; Um exemplo prático para o qual você poderia utilizar, seria para verificar entre 2(duas) StringList se a contagem é a mesma. Ex. //Utilizo 2 Stringlist. Uma para jogar os campos e outro para os dados. StringListCampo.Add(´Nome´); StringListDado.Add(editNome.text); StringListCampo.Add(´Ender´); StringListDado.Add(edtEnder.text); //Chamo a função InsertSQL(StringListCampo,StringListDado); // A função verifica se a quantidade de campo é igual para os dados. function InsertSQL(Tabela: String; Campo: array of string; Valor: array of variant): String; var lstCampo, lstValor: TStringList; Begin if Length(Campo) <> Length(Valor) then ShowMessage(´O número de elementos nas listas de campos e valores é diferente.´); A base já foi passada, agora é só praticar.