Erro �is not a valid integer value�

Question

:cry:
Ao tentar zerar os Edits:

for I:= 0 to ComponentCount -1 do
if (Components[I] is TEdit) then
TEdit(Components[I]).Text:= ��;

retorna o erro. N�o consigo achar o problema, pode ajudar?

Obrigada
Fab
:oops:

Aroldo Zanela · Answer

Colega,Apenas declarei a vari�vel I como integer, copiei, colei e funcionou.[code:1:c10a11f8ba]var i: Integer;begin  for I:= 0 to ComponentCount -1 do    if (Components&#91;I&93; is TEdit) then      TEdit(Components&91;I&93;).Text:= ��;end;[/code:1:c10a11f8ba]...

Edilcimar · Answer

o problema � que talvez vc esteja tentando transformaredit1.text := �� em um inteiro por isto o erro...

Fab · Answer

Realmente utilizo alguns StrToInt, mas se o problema � esse, como inicialmente, levando em considera��o que todo TEdit � Text, n�o causa erro? Estou tentando somente estabelecer a posi��o inicial do TEdit que � �� (vazio) - acho!.

Como resolver este problema? Tenho muitos Edits para fazer um a um.

Obrigada
Fab

Fabio.hc · Answer

Como disse o edilcimar, talvez vc tem alguma coisa parecido com este exemplo em algum edit. Sem esta linha [b:71ed585f55]if Edit3.Text <> �� then[/b:71ed585f55] d� erro.

Ex:

procedure TForm1.Edit3Change(Sender: TObject);
var x:integer;
begin
   if Edit3.Text <> �� then
      x:=strtoint(Edit3.Text);
end;

F�rum Erro �is not a valid integer value� #230975