자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Q,

TEdit, TComboBox 등의 MaxLength 속성을 이용해 DB 필드의 길이와 매핑해 데이터 입력을 제한했습니다.

 

하지만 최신 버전 델파이에서는 한글도 1글자로 인식되어 DB 필드 길이를 초과해 오류가 발생합니다.

예를 들어

"홍길동전123" 입력 시 아래와 같이 입력됩니다.

예전 버전에서는 "홍길동전12"(10 bytes)

최신 버전에서는 "홍길동전123"(11 bytes)

 

해결방법이 있을까요?

 

A, 

유니코드가 적용된 2009 이후 버전 부터 MaxLength는 글자의 길이를 기준으로 동작합니다.

(2007 이전 버전, 즉 안시스트링 기반에서는 바이트 수 기준으로 동작했습니다.)

 

이슈를 해결하는 가장 좋은 방법은 DBMS의 캐릭터 셋을 UTF8로 변경하는 것입니다.(하지만 현실적으로 어렵죠^^)

 

또다른 방법 중 하나로, MaxLength를 Byte 단위로 처리하도록 기능을 수정하는 것입니다.

아래 코드는 TEdit를 상속받아 위 내용을 구현한 내용의 일부입니다.

 

Vcl.Extension.Edit 유닛에 TEdit를 상속받아 다시 구현했습니다.

TEdit를 사용하는 폼의 유닛의 유즈절에 Vcl.Extension.Edit 유닛을 추가해야 합니다.

이 경우 주의할 점은 Vcl.StdCtrls 유닛보다 뒤에 Vcl.Extension.Edit 유닛을 추가해야 합니다.

유즈절은 뒤에서 읽기 때문에 Vcl.Extension.Edit에 있는 TEdit를 폼에서 읽어야 합니다.

 

다른 컴포넌트 들도 아래 내용을 참고해 구현할 수 있습니다.

혹시 더 좋은 방법을 알고 계신 분들은 댓글 부탁드립니다.

 

샘플 프로젝트는 첨부파일에서 받아 볼 수 있습니다.

-----------

unit Vcl.Extension.Edit;

 

interface

 

uses

  Vcl.StdCtrls, System.Classes, System.SysUtils;

 

type

  TEdit = class(Vcl.StdCtrls.TEdit)

  protected

    procedure Change; override;

  end;

 

implementation

 

uses

  WinAPI.Windows;

 

{ TEdit }

 

function CutString(Value : AnsiString; Len: Integer ) : string;

var

  I: Integer;

  Ch : AnsiChar;

  InChar: Boolean;

  Ansi: AnsiString;

begin

  InChar := False;

 

  for i := 1 to Len do begin

    Ch := Value[i];

    Ansi := Ansi + Ch;

 

    if (Ch > #127 ) and (not InChar) then

      InChar := True

    else if ( ch > #127 ) and ( InChar ) then

      InChar := False

  end;

 

  if InChar then

    Ansi := Copy(Ansi, 1, Length(Ansi) - 1);

 

  Result := string(Ansi);

 

  OutputDebugString(PChar(Result));

end;

 

procedure TEdit.Change;

begin

  inherited;

 

  if Length(AnsiString(Text)) > MaxLength then

  begin

    Text := CutString(AnsiString(Text), MaxLength);

    SelStart := MaxLength;

    keybd_event(VK_RIGHT, 0,0,0);

  end;

end;

 

end.

-----------

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97830
3119 퀵레포트에 대해서..? [2] 헨씀히포 2020.11.29 271
3118 Andorid, IOS에서 동영상 갤러리를 여는 방법 [2] delphiman 2020.11.26 194
3117 델파이 10 엑셀변환 관련 [3] 개미 2020.11.27 338
3116 Multi Tenant 모드가 계속 유지가 됩니다. [3] 초보개발자 2020.11.27 177
3115 RAD Server에서 FileStream사용하여 응답보내기 [2] 초보입니다 2020.11.19 188
3114 델파이 응용프로그램이 백그라운도 실행됩니다. [1] 비앤케이 2020.11.25 253
3113 refind 이용하여 변경 시 컬러적용 안되는부분 [1] file 개미 2020.11.24 164
3112 [마이그레이션] FastReport [1] 개미 2020.11.24 192
3111 [마이그레이션] 마이그레이션시 배경등 색상이 기본 흰색으로 변경되는 현상 [1] 개미 2020.11.24 148
3110 refind 기능을 이용하여 pageControl 에 올라가 있는 버튼은 수정이 안되나요 ? [1] 개미 2020.11.26 132
3109 폰트 적용 관련 문의 Firemonkey 2020.11.25 134
3108 문서편집기 기능에 대해 문의드립니다. [3] 김진규 2020.11.19 191
3107 FireDAC - TFDLocalSQL 문의드립니다. [2] 딤몽 2020.11.19 141
3106 PC의 맥주소를 확인하는 방법 [1] 천마산 2020.11.21 533
3105 dephi 10.1 DBExpress MySQL 접속 문제 질문드립니다. [1] kevin 2020.11.19 741
3104 10.4 Sydney getit 문제 [1] file 김프로 2020.11.20 227
3103 [공유] 엣지 브라우저 컴포넌트 설치 후 실행 시 "Failed to initialise Edge browser control" 오류가 발생합니다. [2] file 험프리 2020.09.28 1210
3102 Android 카메라 앨범 저장 문제 [2] 초보입니다 2020.11.16 174
3101 안드로이드 개발시 선굵기가 제각기로 나오는 이유(현상) [1] file delphiman 2020.11.17 163
3100 델파이 xe seattle 10 사용중 이미지 인쇄 버그 네이트 2020.11.17 77