제가 컴포넌트를 하나 만드는데요..
Tcustomedit를 상속받아서 만들었는데..
provate
FValue : Currency;
procedure SetValue(indexvalue : Currency);
.
.
published
property Value : Currency read FValue write SetValue;
이렇게 했는데요..
제대로 실행은 되는데요..
문제는 디자인타임에서 Value 에다가 숫자를 열자리까지 넣고 실행시키면 문제가 안되는데..
10자리 이상 넣구서 실행시키면
Invalid property value....라는 에러메시지가 뜹니다.
Currency 타입은 정수자리가 15자리까지 들어가는걸루 알고 있는데...
이거때문에 며칠째 고생입니다.
아시는분 누가 좀 가르쳐주세요....부탁합니다
SetValue 프로시져에서 FloatToStr 로 치환해서 대입해보세요.
Self.Text := FloatToStr(Value); 머 이런형태루여..
그럼~ 즐거운 프로그래밍 하시길~