Como utilizar o TStringList no Delphi?

12/12/2018

400

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.
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.
Responder

Mais Posts

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

if listas.count>0 then listas.delete(0);
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar