Qual a melhor Maneira?
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
Curtidas 0
Respostas
Marcelo.c
30/04/2003
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.
GOSTEI 0
Wgm8
30/04/2003
Cadê o pessoal da casa, esta rotina ainda não me ajudou, torno a perguntar, qual é a melhor maneira?
GOSTEI 0