[Janom]

Процедурка:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure StringFormat(aEdit:TMemo; CharAllo: array of Char; MaxCharCount:Byte); var   i,j:byte;   Result:ShortString; begin Result:=''; for i:=1 to Length(aEdit.Text) do     for j:=0 to Length(CharAllo) do         if aEdit.Text[i]=CharAllo[j] then           begin             Result:=Result+aEdit.Text[i];             break;           end; Delete(Result, MaxCharCount+1, Length(Result)-MaxCharCount); if Result='' then Result:=CharAllo[0]; aEdit.Text:=Result; aEdit.SelStart:=MaxCharCount+1; aEdit.SelLength:=1; end;

Использовать?

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Edit3Change(Sender: TObject); var   CA: array [0..9] of Char;   i:byte; begin for i:=0 to 9 do CA[i]:=Char(48+i); StringFormat(TEdit(Sender),CA,3); end;