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

12/12/2018

Como utilizo o TStringList no Delphi?, como por exemplo, digitar algo no campo TEdit e ele guardar após o click do TButton, numa lista, e após clicar num outro TButton ele mostrar essa lista.

Lucas Araújo

Curtir tópico

+ 0

Responder

Post mais votado

12/12/2018

Opa Lucas, blz cara...

Então tem bastante material na net sobre isso mas segue exemplo bem simples com dois botões e um edit :

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.

O StringList tem vários métodos bacanas, da uma pesquisada.

Jucélio Silva

Responder

Gostei + 2

Mais Posts

24/09/2021

Wellington Telles

Só acrescento para remover : listas.delete (0) para apagar o primeiro item da lista.....verifica se tem pelo menos um item.

1	`if` `listas.count>0` `then` `listas.delete(0);`

Responder

Gostei + 0