한대필 wrote:

> 이상하네요.

> 메모장의 MaxLength 를 10으로 설정했습니다.

> 그랬더니 이럴수가 한글이 10글자가 들어갑니다.

> 크허헉! 한글은 옛부터 2바이트를 차지 한다고들 하던데..

>

> 아니나 다를까? 한글 6자 이상넣고 프로그램을

> 돌리면 크허헉! 에러하나 내 놓고 프로그램을 싹 닫아 버리네요.

>

> 알려 주세요..





하이염... 저는 델파이세상의 조규춘이라고 합지요...



위에서 이야기 한 경우가 참 신기하군요.. 그럴수가 있다니....



저는 참고로 잘되더군요....



안되단면 다른 방법을 써보셔용...



procedure TForm1.FormCreate(Sender: TObject);

begin

// Memo1.MaxLength := 10;

end;



procedure TForm1.Memo1Change(Sender: TObject);

begin

Label1.Caption := inttostr(Length(Memo1.Lines.Text));

end;



procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

if Length(Memo1.Lines.Text) > 10 then

begin

key:= #0;

end;

end;





그럼 행복하셔용.. 규춘올림.