안녕들 하신지요!
제가 궁금한 것은..
Edit에 금액을 입력한 후에 콤마를 삽입하고 싶습니다.
예를 들어서
'90000'이라고 입력하면 '90,000'이라고 콤마를 삽입하고 싶습니다.
저는 Edit의 Exit이벤트를 사용해서
procedure TCustomerForm.EditGigupExit(Sender: TObject);
begin
If EditGigup.Text<>'' then
EditGigup.text:=FormatFloat('###,###,###,###,##0',strToint(EditGigup.text));
end;
문제는 처음에는 잘 되어지지만 수정을 위해서 2번째 사용을 하면 에러가 발생하지요
StrTOint부분에서 '콤마'가 에러로 발생합니다.
해결방법 좀 알려주십시요..
MaskEdit로 사용하는 방법은 없는지도..
전에 3.0용으로된 금액출력용 컴포넌트는 사용한 적이 있지만 4.0용으로
된것은 없는지요..
|