삭제를 위한 암호를 넣어 주세요

unicode는 괴안지만 Andi에서의 한들은 자를위치에 한글인지 안닌지를 알아야 합니다. ByteType함수를 참고하시기 바랍니다. 
2020-05-15 오후 9:03:36

삭제를 위한 암호를 넣어 주세요

다음 코드로 Test 해 보세요.

function Copy2(const Src:String; Index, Len :integer ) : String;
var n : integer;
begin
  n := Length(Src);
  if  n <= Len then Len := n;

  if not (ByteType(Src, Index) in [mbSingleByte, mbLeadByte]) then inc(index);
  if Index + Len - 1 < n then n := Index + Len - 1;
  if not (ByteType(Src, n) in [mbSingleByte, mbTrailByte]) then dec(Len);

  Result := copy(Src, Index, Len);
end; 
2020-05-18 오전 11:34:18