Contar strings em DBEdits
12/07/2004
0
Piassa
Posts
12/07/2004
Adeno
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;12/07/2004
Piassa
isso mesmo kra, função lenght , tentei fazer, mas tv dando erro
12/07/2004
Paulo_amorim
Olá
Que erro!?
Explique melhor ae...
Até+
Clique aqui para fazer login e interagir na Comunidade :)
