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

Lucas Araújo

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar