Dividir linha de um memo para varios edit
12/04/2019
0
Olá pessoal
Possuo 6 campos edit e 1 campo memo, após clicar em um botão "cadastrar" os 6 campos preenchidos formam uma linha do memo.
memo1.Lines.Add(EdData.Text +
EdPlaca.Text +
EdRENAVAM.Text +
EdModelo.Text +
EdOpcionais.Text +
EdValor.Text);
Minha dúvida é o seguinte:
Gostaria que ao clicar 2 vezes em uma linha do memo (Evento DblClick) as informações voltem cada uma para o seu edit.
Ex: a Data informada inicialmente volte para o edData, a placa informada volte para o edPlaca, etc...
Possuo 6 campos edit e 1 campo memo, após clicar em um botão "cadastrar" os 6 campos preenchidos formam uma linha do memo.
memo1.Lines.Add(EdData.Text +
EdPlaca.Text +
EdRENAVAM.Text +
EdModelo.Text +
EdOpcionais.Text +
EdValor.Text);
Minha dúvida é o seguinte:
Gostaria que ao clicar 2 vezes em uma linha do memo (Evento DblClick) as informações voltem cada uma para o seu edit.
Ex: a Data informada inicialmente volte para o edData, a placa informada volte para o edPlaca, etc...
Artur
Curtir tópico
+ 0
Responder
Posts
23/04/2019
Fernando Wahl
Boa tarde Artur, eu fiz um teste rápido e consegui simular uma forma, deve ter mais formas mas a que eu fiz deu certo, desde que seja 1 para 1;
Segue:
Declaração de variáveis globais:
var
//Variaveis Globais
ed1, ed2, ed3, ed4, ed5, ed6 : string;
Botão de enviar para o Memo:
procedure TForm1.EnviaMemoClick(Sender: TObject);
begin
ed1 := Edit1.Text;
ed2 := Edit2.Text;
ed3 := Edit3.Text;
ed4 := Edit4.Text;
ed5 := Edit5.Text;
ed6 := Edit6.Text;
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Memo1.Lines.Add(ed1+ ed2+ed3+ ed4+ ed5+ ed6);
end;
Duplo clique no memo1:
procedure TForm1.Memo1DblClick(Sender: TObject);
begin
Edit1.Text := ed1;
Edit2.Text := ed2;
Edit3.Text := ed3;
Edit4.Text := ed4;
Edit5.Text := ed5;
Edit6.Text := ed6;
end;
Veja se vai dar certo ai, qualquer coisa nos avise que ajudamos e pensamos em outra coisa.
Até mais.
Segue:
Declaração de variáveis globais:
var
//Variaveis Globais
ed1, ed2, ed3, ed4, ed5, ed6 : string;
Botão de enviar para o Memo:
procedure TForm1.EnviaMemoClick(Sender: TObject);
begin
ed1 := Edit1.Text;
ed2 := Edit2.Text;
ed3 := Edit3.Text;
ed4 := Edit4.Text;
ed5 := Edit5.Text;
ed6 := Edit6.Text;
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Memo1.Lines.Add(ed1+ ed2+ed3+ ed4+ ed5+ ed6);
end;
Duplo clique no memo1:
procedure TForm1.Memo1DblClick(Sender: TObject);
begin
Edit1.Text := ed1;
Edit2.Text := ed2;
Edit3.Text := ed3;
Edit4.Text := ed4;
Edit5.Text := ed5;
Edit6.Text := ed6;
end;
Veja se vai dar certo ai, qualquer coisa nos avise que ajudamos e pensamos em outra coisa.
Até mais.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
