procedure TForm1.btnM10Click(Sender: TObject);
begin
MaskEdit1.Text := IntToStr(StrToInt(MaskEdit1.Text) + 10);
end;
StrToInt : 문자열을 정수로 변환
IntToStr : 정수를 문자열로 변환
라원석 님이 쓰신 글 :
: 지금 프로그래밍을 막 시작한 왕초보 질문 올립니다.
:
: 버튼(btnM10 으로 명명)을 '누를때마다' 마스크에디트창에서 10씩 계속 더해지게 하려면 어떻게 해야 하나요?
:
: procedure TForm1.btnM10Click(Sender: TObject);
: begin
: MaskEdit1.Text := '10';
: end;
:
: 마스크 에디트는 숫자열을 인식한다고 들었는데 제가 직접 해보니 문자열로 밖에 인식을 못하네요.
: 숫자열로 인식시킬려면 뭘 선언해야하는지도 좀 알려주세요.
:
: 처음 프로그래밍을 델파이로 하는데 아 깝깝하네요,
|