Function Get_KoreanCharPos(letter: String; WishCnt: Integer): Integer;
Var
i, msb : integer;
Begin
If System.Length(letter) < WishCnt Then Begin
Get_KoreanCharPos := -1;
System.Exit;
End;

msb := 0;
For i := 1 To WishCnt Do
If (Integer(letter[i]) And Integer($80)) = Integer($80) Then
Inc(msb);

If (msb Mod 2) = 0 Then {'$80'인것이 짝수개이면 완성된 한글문장}
Get_KoreanCharPos := WishCnt
Else
Get_KoreanCharPos := WishCnt - 1;
End;


if Length(sString) > 40 then
lable1.Caption := Copy(sString, 1, Get_KoreanCharPos(sString, 40));

대략 위와 같은 샘플 형태로 사용하시면 됩니다.
위 함수는 한글이 잘리는 경우 바로 전 길이를 구합니다.
필요하시면 함수를 적당히 수정하시면 바로 결과를 가져올 수 있게 수정할 수 있겠네요...

출처 : 아주 오래전 사이트 어딘가에서...

ByteType이란 함수를 쓰시면 쉽게 할 수 있습니다.

if Length(sString) > 40 then
L := 40;
If ByteType(sString, L) = mbTrailByte then
Dec(L);

lable1.Caption := Copy(sString, 1, L);
lable2.Caption := Copy(sString, L+1, Length(sString) - L );
end;

감사합니다~~

그런데,

If ByteType(sString, L) = mbTrailByte then
Dec(L);

에서 '=' 를 '<>' 해야 되는거 같습니다...

덕분에 야근시간이 단축되었습니다.. (__);;;

두분 즐거운 하루 되세요...