Exibição de cadastro no Tmemo, no Delphi
17/12/2018
0
Galera, tenho que exibir do tmemo o cadastro, exibindo codigo, nome e telefone, deu certo com apenas uma entrada, porém quero mostra no memo todas as entradas feitas.
implementation {$R *.dfm} procedure TForm1.BT_ADDClick(Sender: TObject); begin if ED_COD.Text <> ('''') then begin if ED_NAME.Text <> ('''') then begin if MK_PHONE.Text <> ('''') then begin //COD ListaCod.add(ED_COD.Text); ED_COD.Clear; //NAME ListaName.Add(ED_NAME.text); ED_NAME.Clear; //PHONE ListaPhone.Add(MK_PHONE.Text); MK_PHONE.Clear; end end; end else if ED_COD.Text = '''' then begin Showmessage(''Erro na gravação(Preencha todos os campos)''); end else if ED_NAME.Text = '''' then begin Showmessage(''Erro na gravação(Preencha todos os campos)''); end else if MK_PHONE.Text = '''' then begin Showmessage(''Erro na gravação(Preencha todos os campos)''); end; end; procedure TForm1.BT_PESQUISARClick(Sender: TObject); var i : integer; begin for i := 0 to ListaCod.Count-1 do memo1.Lines[i] := (''Código: '' +ListaCod[i]+ '' '' + ''- Nome: '' +ListaName[i]+ '' '' + ''- Telefone: '' +ListaPhone[i]); end; procedure TForm1.BT_REMOVERClick(Sender: TObject); begin memo1.Lines.clear; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin //Zerar lista de codigo// ListaCod.Free; ListaCod := NIl; //Zerar lista de nomes// ListaName.Free; ListaName := NIl; //Zerar lista de telefone// ListaPhone.Free; ListaPhone := NIl; end; procedure TForm1.FormCreate(Sender: TObject); begin ListaCod := TStringList.Create; ListaName := TStringList.Create; ListaPhone := TStringList.Create; end; end.
Lucas Araújo
Curtir tópico
+ 0
Responder
Posts
19/12/2018
Flavio Silva
Limpar as linhas antes de no laço for deve dar o lines.add
procedure TForm1.BT_PESQUISARClick(Sender: TObject);
var
i : integer;
begin
memo1.lines.clear;
for i := 0 to ListaCod.Count-1 do
memo1.Lines.add(''Código: '' +ListaCod[i]+ '' '' + ''- Nome: '' +ListaName[i]+ '' '' + ''- Telefone: '' +ListaPhone[i]);
end;
procedure TForm1.BT_PESQUISARClick(Sender: TObject);
var
i : integer;
begin
memo1.lines.clear;
for i := 0 to ListaCod.Count-1 do
memo1.Lines.add(''Código: '' +ListaCod[i]+ '' '' + ''- Nome: '' +ListaName[i]+ '' '' + ''- Telefone: '' +ListaPhone[i]);
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)