Como utilizar o TStringList no Delphi?
12/12/2018
0
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 :
O StringList tem vários métodos bacanas, da uma pesquisada.
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
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.
if listas.count>0 then listas.delete(0);
Responder
Clique aqui para fazer login e interagir na Comunidade :)