Não confunda adicionar com inserir. Para adicionar um item a um array dinâmico
em Delphi, basta fazer algo como o que se segue no exemplo abaixo:
{$APPTYPE CONSOLE}
program StrDynArraySample;
uses SysUtils;
// Se vc usa Delphi 5 ou 4, declare o seguinte tipo.
// Se vc usa Delphi 6 ou maior,
Tem que ser array dinâmico, assim:
procedure TForm1.btn1Click(Sender: TObject);
var
Array1 : Array of string;
I : Integer;
begin
for I := 1 to 5 do
begin
SetLength(Array1, SizeOf(Array1));
Array1[I] := 'Array: ' + IntToStr(I);
end;
ShowMessage('Teste');
end;
--
Boa Leitura,
Maycon Sanches Amaro wrote:
Como posso 'automaticamente' ir adicionando valores no array mas sem
precisar especificar a posição? Tem jeito?
Não. Pra isso você usa um TList, TObjectList ou TStringList.
Joao Morais
Valeu pessoal, vou tentar aqui...
Grato.
Att.
Maycon Sanches Amaro
Rubem Nascimento da Rocha escreveu:
Não confunda adicionar com inserir. Para adicionar um item a um array
dinâmico em Delphi, basta fazer algo como o que se segue no exemplo
abaixo:
{$APPTYPE CONSOLE}
program
4 matches
Mail list logo