Fórum Qual a melhor Maneira? #156860
30/04/2003
0
Olá, colegas!
Bom minha dúvida é a seguinte:
Criei um programa que grava os dados inseridos na tela, para um arquivo testo. Já apliquei nos Edits a funçãi UpperCase para que todos fiquem em maiúsculas, agora minha dúvida é a [color=red:d3a5914aea]acentuação[/color:d3a5914aea], estes campos não podem receber acentos.
A melhor maneira é ir [color=red:d3a5914aea]checando um a um após ter pressionado o TAB[/color:d3a5914aea]?
ou posso fazer esta [color=red:d3a5914aea]checagem após o ultimo Edit preenchido[/color:d3a5914aea]?
Como posso fazer?
Bom minha dúvida é a seguinte:
Criei um programa que grava os dados inseridos na tela, para um arquivo testo. Já apliquei nos Edits a funçãi UpperCase para que todos fiquem em maiúsculas, agora minha dúvida é a [color=red:d3a5914aea]acentuação[/color:d3a5914aea], estes campos não podem receber acentos.
A melhor maneira é ir [color=red:d3a5914aea]checando um a um após ter pressionado o TAB[/color:d3a5914aea]?
ou posso fazer esta [color=red:d3a5914aea]checagem após o ultimo Edit preenchido[/color:d3a5914aea]?
Como posso fazer?
Wgm8
Curtir tópico
+ 0
Responder
Posts
30/04/2003
Marcelo.c
Eu resolvi este problema utilizando uma ReplaceDialog para substituir todos os caracteres acentuados por caracteres sem acento.
Criei três memos, um com os caracteres acentuados, outro com os caracteres substitutos (na mesma seqüência do primeiro) e o último para receber os dados alterados.
veja o código:
with TReplaceDialog(Sender) do
begin
While i < 41 do
begin
i:=i+1;
FindText:=Memo2.Lines[i];
ReplaceText:=Memo3.Lines[i];
SelPos := Pos(FindText, Memo1.Lines.Text);
if SelPos > 0 then
begin
Memo1.SelStart := SelPos - 1;
Memo1.SelLength := Length(FindText);
// Replace selected text with ReplaceText
Memo1.SelText := ReplaceText;
end;
Acho que pela idéia inicial dá pra você fazer alguma coisa, qq coisa dê um toque.
Criei três memos, um com os caracteres acentuados, outro com os caracteres substitutos (na mesma seqüência do primeiro) e o último para receber os dados alterados.
veja o código:
with TReplaceDialog(Sender) do
begin
While i < 41 do
begin
i:=i+1;
FindText:=Memo2.Lines[i];
ReplaceText:=Memo3.Lines[i];
SelPos := Pos(FindText, Memo1.Lines.Text);
if SelPos > 0 then
begin
Memo1.SelStart := SelPos - 1;
Memo1.SelLength := Length(FindText);
// Replace selected text with ReplaceText
Memo1.SelText := ReplaceText;
end;
Acho que pela idéia inicial dá pra você fazer alguma coisa, qq coisa dê um toque.
Responder
Gostei + 0
30/04/2003
Wgm8
Cadê o pessoal da casa, esta rotina ainda não me ajudou, torno a perguntar, qual é a melhor maneira?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)