22.12.2010, 10:02
|
Новичок
|
|
Регистрация: 24.11.2010
Сообщения: 91
Репутация: 41
|
|
на форме
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const c='0123456789';
var i,j,k:integer;
s:string;
begin
if Key=#13 then begin
s:=Edit1.Text;
memo1.Clear;
for i:=1 to length(c) do begin
k:=0;
for j:=1 to length(s) do
if c[i]=s[j] then Inc(k);
if k<>0 then Memo1.Lines.Add(c[i]+'='+IntToStr(k));
end;
end;
end;
|