Problemas com Tstring e Tedit
Olá sou iniciante na linguagem delphi e estava querendo fazer um menu de vendas cujo você adicionava o produto escrevendo o mesmo no Tedit e ao clicar no botão passava o produto para uma string , mas não estou conseguindo fazer isso
Thalles Henrique
Curtidas 0
Respostas
Arthur Heinrich
20/02/2023
Você precisa entender como funciona a mecânica dos eventos.
No seu exemplo, ao clicar em um botão, o evento onClick do botão será chamado. Você pode escrever uma rotina, dentro deste evento, para copiar o conteúdo do seu TEdit para o seu TStrings.
Outra maneira de fazer isso é utilizar um dos eventos presentes em muitos componentes, que é o evento OnKeyPress. Ele é chamado sempre que uma tecla é pressionada.
Você pode escrever a rotina onKeyPress do seu TEdit e, caso o caractere pressionado seja o #13 (enter), você transfere o conteúdo do TEdit para o TStrings.
Por exemplo, um TMemo possui uma propriedade TStrings e é visível. Dentro do evento, você pode fazer:
[code]
Memo1.Lines.Add(Tedit1.Text);
Tedit1.Text:='';
/code]
No seu exemplo, ao clicar em um botão, o evento onClick do botão será chamado. Você pode escrever uma rotina, dentro deste evento, para copiar o conteúdo do seu TEdit para o seu TStrings.
Outra maneira de fazer isso é utilizar um dos eventos presentes em muitos componentes, que é o evento OnKeyPress. Ele é chamado sempre que uma tecla é pressionada.
Você pode escrever a rotina onKeyPress do seu TEdit e, caso o caractere pressionado seja o #13 (enter), você transfere o conteúdo do TEdit para o TStrings.
Por exemplo, um TMemo possui uma propriedade TStrings e é visível. Dentro do evento, você pode fazer:
[code]
Memo1.Lines.Add(Tedit1.Text);
Tedit1.Text:='';
/code]
GOSTEI 0