자꾸 이런 저런 답변이 달리니까 재미있네요
저는 제리압빠님의 글에 대해서만 한두가지 의견을 적어봅니다.
str.t_str(); 이부분은?
앞의 저의 답변에도 얘기했듯이 2009에서
기본 String이 AnsiString이 아니라 UnicodeString이라서 그럴것입니다.
AnsiString으로 하면 여전이 str.c_str()로 char *를 얻어올것입니다.
---------------------------------------------------------------------------------
그리고 제리압빠님의 코드에서
Edit->Text 를 가져오는 부분에 대해
제리압빠님의 코드중에 짭게 부분에 대해 조금 의견을 달겠습니다.
// 잛게
Label1->Caption = Edit1->Text.SubString( 4 , Edit1->Text.Length() - 3 );
x = Label1->Caption.ToInt();
ShowMessage( x );
제리압빠님뿐만 아니라 많은 분들이 위와같은 식으로 코딩하는 경우를 왕왕 보아서요
위 코드에서
Label1->Caption 과 Edit1->Text 에 대한 접근은
TControl 클래스의 Caption 프로퍼티와 Text 프로퍼티에 접근합니다.
TControl에서 Caption과 Text는 근본적으로 똑같습니다.
문제는
TControl의 Caption을 읽을때
그냥 내부 String변수를 return하지 않는다는 것입니다.
여러단계의 과정을 거쳐서 String결과를 return합니다.
TControl클래스 Caption가져올때 소스
다음은 TControl클래스이 Caption이나 Text를 가져올때 호출되는 GetText함수 소스입니다.
function TControl.GetText: TCaption;
var
Len: Integer;
begin
Len := GetTextLen;
SetString(Result, PChar(nil), Len);
if Len <> 0 then GetTextBuf(Pointer(Result), Len + 1);
end;
function TControl.GetTextLen: Integer;
begin
Result := Perform(WM_GETTEXTLENGTH, 0, 0);
end;
function TControl.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;
begin
Result := Perform(WM_GETTEXT, BufSize, Longint(Buffer));
end;
C++Builder로 변환하면 다음과 같습니다.
String __fastcall TControl::GetText()
{
int Len=GetTextLen(); // 문자열의 길이를 확인합니다.
String Result; // String변수를 새로 선언하고
Result.SetLength(Len); // 문자열 길이만큼 메모리를 확보합니다.
if(Len!=0)
GetTextBuf(Result.c_str(), Len + 1); //확보된 buffer에 WM_GETTEXT로 string을 받아옵니다.
return Result;
}
int __fastcall TControl::GetTextLen()
{
return this->Perform(WM_GETTEXTLENGTH, 0, 0);
}
int __fastcall TControl::GetTextBuf(char *Buffer,int BufSize)
{
return this->Perform(WM_GETTEXT, BufSize, Longint(Buffer));
}
TEdit든 TLabel이든 VCL의 모든 Control의 Caption이나 Text에 접근할때 마다 위 함수들이 호출됩니다.
제라아빠님의 코드에서는?
// 잛게
Label1->Caption = Edit1->Text.SubString( 4 , Edit1->Text.Length() - 3 );
x = Label1->Caption.ToInt();
ShowMessage( x );
위 코드에서는
TControl::GetText가 3번 호출되었구
TControl::SetText가 1번 호출되었습니다.
(SetText내부적으로 GetText가 한번 호출되니 GetText는 4번이 되겠네요)
또한 메세지 핸들러 함수에서
WM_GETTEXT,WM_SETTEXT , WM_GETTEXTLENGTH등을 받아서 처리하는 부분도 있구요
그러니까 TEdit의 Text값을 한번 가져오는데 굉장히 복잡한 과정에
여러함수들이 호출되어진다는 것입니다.
-----------------------------------------------------------------------
그리고 또 하나
ShowMessage( x ); //이 부분에서는
ShowMessage는 기본적으로 int형을 받지 않고 String형을 받습니다.
즉 ShowMessage( x) 할때 String클래스에서
숫자를 IntToStr함수 등을 통해 문자열로 다시 변환하게 됩니다.
뭐 제리아빠님은 그냥 제대로 Label1->Caption에 내용이 들어있나 확인하기 위함인것 같지만..
결론적으로..
String변수하나 선언해두고
거기에다가 Edit->Text를 받아서 처리하는것이
속도면에서 훨씬더 빠를것입니다.
일부러 트집잡으려구 답변단것은 아니구요
앞서 얘기했듯이 많은 BCB , Delphi 개발자들이 TEdit등 TControl의 Text값을 가져오는것이
그냥 내부 String변수를 return해주는것으로 착각하고 코딩하는 경우를 왕왕 보아서 댓글 단것입니다.
진짜 황당한 코드
심지어 다음과 같은식의 코드도 보았습니다.
strcpy( Edit1->Text.c_str() , "문자열 복사") ;
위에 GetText 의 vcl소스를 보면 알수 있듯이
TEdit의 Text나 TLabel의 Caption은 내부 변수를 return한느것이 아니라
새로 메모리를 할당해서 내용을 복사해 return하는 것이므로
에러가 나지 않더라도(에러날수도 있음)
실제 Edit->Text에는 아무 변화를 줄수 없는 코드가 되죠
TControl의 Text나 Caption프로퍼티에 대한 비슷한 착각에서 코딩문제일것 같구요..
그럼..
제리압빠. 님이 쓰신 글 :
: 소스코드 일부만 있는거 같은데용..
: str.t_str().... 이 부분은 2009에서 새로 지원하는 String의 메소든가 보군요..
:
: 저는 아직 6.0 을 쓰는 처지라..유유
: 음.. 작성하신 코드 상으로는 풀어보면.
: 1) char 어레이를 초기화 한다.
: 2) String 형 데이타에서 특정 부위(?) 만큼의 숫자 필드 영역을 잘라서 char배열에 담는다.
: 3) int형으로 형변환 한다.
: 4) int형을 다시 형변환 하여 String( Caption )에 담는다..
:
: 순으로 진행이 되는데요..
:
: 나열한거에 보다 시피 형변환이 좀 빈번히 발생하는게 아닌가 싶네요.
: 윗분들 말씀하신 거에 좀더 사족을 달아 보자면..
:
: 위에서 거치는 형변환을 좀 줄이자 입니다.
: 윗분들 코드 사례를 보면 char *어레이 형 데이타가 필요 없어지지요.
: ( 내부에서 쓸일이 없다면 말입니다.. )
: 이부분을 좀 줄여서 2단게로 만들어 버리는게 제 개인적인 생각으로 좀 더 나은 생각이 아닌가 사려 됩니다.
:
: // 1 필요한 데이타 부분을 Label에 바로 담아 버립니다.
: Label1->Caption = Edit1->Text.SubString( 4 , Edit1->Text.Length() - 3 );
: // 2. Label1을 버퍼로 사용하였으므로 가공을 위한 인트형으로 바로 세트 한다.
: int ibuff = Data.ToInt();
:
: 이렇게 되면 좀 더 효율이 올라가지 않으려나요...
: Label을 사용하지 않을 계획이라면 윗분들의 예제 처럼 바로 Int 변수에 결과를 담아 버리는 것도 괜챦구요..
:
: 만약 위에 사용하신 데이타가 "abc1234" 가 Fixed length 타입의 전문 이라고 하면...아래 처리 부분 처럼 하면
: 될 듯 싶네요.. fixed length 인 경우 가공작업이 좀 필요하기도 합니다. 널스트링 이 없는 관계로.. 하지만 파일에서
: 로드하는 경우라면 파일에 구조체 통으로 바이너리 타입 저장 이라면 별 문제 업겠지용.
: //---------------------------------------------------------------------------
:
: #pragma pack( push , 1);
: typedef struct tag_x
: {
: char ABC[3];
: char NUMS[4];
: }st_x;
:
: #pragma pack(pop);
:
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
: // 원본 ..
: String Data = Edit2->Text;
: char buff[4+1];
: int x;
: memset( buff , 0x00 , sizeof( buff ));
: strncpy( buff , (Edit2->Text.c_str())+3 , Edit2->Text.Length() - 3 );
:
: x = atoi( buff );
: ShowMessage( x );
:
:
: // 잛게
: Label1->Caption = Edit1->Text.SubString( 4 , Edit1->Text.Length() - 3 );
: x = Label1->Caption.ToInt();
: ShowMessage( x );
:
: // 고정전문 방식. 뒷부분에 다른 문자열이 있다면 잘라 담는 처리를 위한 버퍼 필요함( 1234 ) 다음
: st_x sbuff;
: memcpy( &sbuff , Edit2->Text.c_str() , sizeof( sbuff ));
: Label3->Caption = sbuff.NUMS;
: ShowMessage( atoi( sbuff.NUMS ));
:
: }
: //---------------------------------------------------------------------------
:
: 즐 플 하세염~~~!
