Possuo o seguinte código que adiciona o conteúdo de um botão e um espaço após clicado
procedure TForm3.Button1Click(Sender: TObject);
begin
if count = 0 then
Edit1.Text := Edit1.Text + TLabel(Sender).caption+ ' ';
if count = 1 then
begin
Edit2.Text := Edit2.Text + TLabel(Sender).caption+ ' ';
end;
end;
Saida: Dose = Max + Min
e uma outra situação para numero, que não aplica os espaços:
procedure TForm3.Button29Click(Sender: TObject);
begin
if count = 0 then
Edit1.Text := Edit1.Text + TLabel(Sender).caption;
if count = 1 then
begin
Edit2.Text := Edit2.Text + TLabel(Sender).caption;
end;
end;
Saida: Dose = 10
Porem estava pensando que após o numero poderia encontrar um texto e do jeito que eu faria o caracter após o numero sairia assim
Saida: Dose = 10AND 20
Onde o correto seria:
Saida: Dose = 10 AND 20
Como tratar a função para que quando o próximo caracter após o numero seja um a letra, ele adicione um espaço?