Fórum Contar strings em DBEdits #242607
12/07/2004
0
Piassa
Curtir tópico
+ 0Posts
12/07/2004
Adeno
Gostei + 0
12/07/2004
Lucas Silva
procedure TForm1.Button1Click(Sender: TObject); var i,n: integer; palavra: String; begin n := 0; palavra := edit1.text; for i:= 0 to Length(palavra) do if palavra[i] in [´0´..´9´] then Inc(n); ShowMessage(´No edit tem ´+IntToStr(n)+´ números´); end;
Gostei + 0
12/07/2004
Piassa
isso mesmo kra, função lenght , tentei fazer, mas tv dando erro
Gostei + 0
12/07/2004
Paulo_amorim
Olá
Que erro!?
Explique melhor ae...
Até+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)