흔히 메신져 등의 프로그램에서 쪽지를 보낼때 실시간으로 입력한 문자열의 바이트 수가 표시되는데요..
그냥 간단하게
<!--CodeS-->
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.Text := IntToStr(length(trim(RichEdit1.Lines.Text)));
end;
<!--CodeE-->
이렇게 하면 될줄 알았는데 1바이트 씩(전각문자는 2바이트씩) 늦게 표시 되는군요..
실시간으로 정확히 처리할 수 있는 방법 없을까요..?
추가로 GetDlgItemText 함수 델파이에선 어떤식으로 사용해야 하죠?
그냥 C 언어에서 사용하는 것처럼 쓰니깐 안되더라구요..^^;;
답변 부탁드릴께요..
아래처럼.....
procedure TForm1.Memo1Change(Sender: TObject);
begin
Try
Edit1.Text := IntToStr(length(trim(Memo1.Lines.Text)));
except
on E : Exception do
begin
showMessage(E.Message);
end;
end;
end;
즐건 하루 되세요.