Limpar espaços de um Edit
Ola, estou com o seguinte problema: Preciso percorrer todos os TEdits, TMaskEdits e/ou TLabelEdtis em um form, e limpar os espaços em branco do inicio e fim de CADA um deles. Estou tentando assim:
for i := NomeDoForm.ComponentCount -1 downto 0 do
begin
if (NomeDoForm.Components[i] is TCustomEdit) then
begin
(NomeDoForm.Components[i] as TCustomEdit).text := TrimLeft((Sender as TEdit).Name);
(NomeDoForm.Components[i] as TCustomEdit).text := TrimRight((Sender as TEdit).Name);
end;
end;
Está compilando, mas na ora da execução desse código gera o errro: "INVALID CLASS TYPECAST"
Ajuda por favor!!
for i := NomeDoForm.ComponentCount -1 downto 0 do
begin
if (NomeDoForm.Components[i] is TCustomEdit) then
begin
(NomeDoForm.Components[i] as TCustomEdit).text := TrimLeft((Sender as TEdit).Name);
(NomeDoForm.Components[i] as TCustomEdit).text := TrimRight((Sender as TEdit).Name);
end;
end;
Está compilando, mas na ora da execução desse código gera o errro: "INVALID CLASS TYPECAST"
Ajuda por favor!!
Wancley Ribeiro
Curtidas 0
Respostas
Raimundo Pereira
06/02/2017
String Repleace, também resolve
GOSTEI 0
Marco Antônio
06/02/2017
Bom dia. Testei aqui da seguinte forma:
for i := 0 to ComponentCount -1
do begin
if ( Components[i] is TCustomEdit)
then begin
(Components[i] as TCustomEdit).text := Trim((Components[i] as TCustomEdit).text);
end;
end;
Espero ajudar. Abc
for i := 0 to ComponentCount -1
do begin
if ( Components[i] is TCustomEdit)
then begin
(Components[i] as TCustomEdit).text := Trim((Components[i] as TCustomEdit).text);
end;
end;
Espero ajudar. Abc
GOSTEI 0