아래서 소스를 보시면 Memo1 이 80 byte 까지 써지고 Label 에 현재 byte 수를 표시 합니다.
근데 여기서 한글 조합을 하면 최대 83byte 까지 가더군요..
80byte 에서 무조건 짤라야 하는데 어떻게 방법이 없을까요?
부탁드리겠습니다.^^
<!--CodeS-->
procedure TForm1.Memo1Change(Sender: TObject);
begin
Label1.Caption:= IntToStr(Length(Memo1.Lines.Text));
end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
nLength: Integer;
begin
nLength:= Length(Memo1.Lines.Text);
If nLength >= 80 Then
Begin
If Key <> #8 Then
Key:= #0;
End;
end;
<!--CodeE-->