Fórum Como utilizar o TStringList no Delphi? #599162

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  listas  : TStringlist; // declara a variável de forma global 

implementation

{$R *.dfm}

// no click do primeiro botão você adiciona o texto do edit
procedure TForm1.Button1Click(Sender: TObject);
begin
  if(Length(Edit1.Text)>0)then
    listas.Add(Edit1.Text)
end;

// na criação do formulario você instancia a variavel declarada com o metodo create 
procedure TForm1.FormCreate(Sender: TObject);
begin
  listas := TStringList.Create;
end;

// no segundo botão você percorre a lista e mostra o valor
procedure TForm1.Button2Click(Sender: TObject);
var i : Smallint;
begin
  for i:=0 to listas.Count-1 do
    ShowMessage(listas.Strings[i]);
end;

// ao fechar o formulario você limpa da memoria a lista
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  listas.Free;
end;

end.