2007이하의 AnString으로 설명드리겠습니다.
...
VCL의 String은 reference가 count됩니다.
String은 변수는 그냥 포인터 4Byte입니다.
그런데 4Byte에 적힌 address위치에 가 보면 실제data가 있죠
procedure TForm1.Button1Click(Sender: TObject);
var
s: AnsiString;
begin
s:='abcd';
ShowMessage(IntToStr(sizeof(s))); //'4'
ShowMessage(IntToStr(sizeof(AnsiString))); //'4'
end;
뮈 코드에서 s의 size나 AnsiString의 크기는 4입니다.
즉 String변수는 포인터이죠
실제 Data가 기록된 위치의 메모리 주소(Address)가 적힌 것입니다.
[AnsiStirng의 실제 기록 구조]
그렇다면 String변수가 가지고 있는 Address위치에는 어떻게 기록되어있을까요?
AllocSize = ( StrRec+ 실제 Data ) 까지의 크기가 기록되어있습니다.
RefCount = 말그대로 reference-Count 로 AnsiString변수가 참조하고 있는 숫자입니다.
Length = 실제Data의 길이입니다.
String의 길이를 구할때..
Delphi(VCL)의 AnsiString이 Lenth함수가 c에서 strlen보다 속도가 빠른데..
AnsiStirng의 Length를 구하면 위에 StrRec구조체에서 Length값을 그냥 return하지만
c에서 strlen은 $0 즉 NULL문자가 나타날때까지 처음부터 계속 search합니다.
그래서 AnsiString의 Length가 c의 strlen보다 속도를 비교할수 없을 정도로 빠르죠
참조 http://cafe.naver.com/bcbmaster/850
RefCount는 어떻게 ...
var
s1,12: Stirng;
begin // 1)
s1:='abcd'; // 2)
s2:=s1; // 3)
s2[1]='k'; // 4)
end; // 5)
위 소스에서 1) ~ 4) 과정을 설명해드리면...
1) AnsiString을 선언하면 스택에 4Byte 씩 2개 변수가 할당됩니다.
문론 내용은 nil 아무것도 없습니다.
2) heap(힙)에 strrec(12Byte)포함하여 실제 data 4Byte까지 총 16Byte가 할당됩니다.
AllocSize = 16
RefCnt = 1
Length = 4
data = 'abcd'
위와같이 메모리에 기록되고 stack에 s1위치에는 Data위치의 address가 기록됩니다.
3) s2:=s1 하면
RefCnt = 2 로 바뀌고
S2변수가 있는 stack위치에 Data가 s1과 똑같은 값 Data위치의 addr이 기록됩니다.
4) s2의 값의 일부를 변경하면
* s1의 가리키던 StrRec의 RefCnt =1 로 바뀝니다.
* 그리고 다시 또다른 힙에 14+8=22Byte의 메모리가 확보되고 다음과 같이 내용이 기록됩니다.
AllocSize = 22
RefCnt = 1
Length = 4
data = 'kbcd' //실데이타 5Byte인데.. 4의 배수로 할당되어서 8Byte가 할당됨
* 그리고 s2의 stack위치값은 새로할당된 data의 힙address가 기록됩니다.
음.. 그리고 AllocSize가 왜 12+data_length가 아니라 14+data_length인지는 저도 정확한 이유를 잘 모르겠네요
...
5) 함수를 빠져나가면 stack에 할당된 s1 , s2 가 삭제되겠죠
string변수가 삭제 될때는 RefCnt가 하나씩 줄어듭니다.
만약 RefCnt가 0이 될때면 메모리에 할당된 StrRec부터 Data까지 모두 free됩니다.
만약 전역변수에 문자열을 할당하면
전역변수의 내용을 바꾸지 않은한 RefCnt는 프로그램이 종료할때까지 항상 1보다 크겠죠
2009이상에서는 String으로 선언하면 UnicodeString을 가리키는걸로 알고있습니다.
2009이상에서 AnsiString과 UnicodeString은 어떤 구조로 되어있는지는 잘모르겠습니다만..
기본적인 원리는 같습니다.
vcl에서 이런 Refrence구조를 가진것이 String뿐인줄 알았는데...
한가지 더있더군요
팁게시판에 얼마전에 올라온 글인데요
TGraphic이 그런 구조로 되어있더군요
var
bmp1 , bmp2: TBitmap
begin
...
bmp1.LoadFromFile(..);
bmp2.Assign(bmp1); // 여기서 bmp1의 imagedata가 새로 할당되어서 bmp2에 들어가는것이 아닙니다.
http://www.delmadang.com/community/bbs_view.asp?bbsNo=3&bbsCat=0&st=&keyword=&indx=417281&keyword1=&keyword2=&page=1
그냥 bmp1이 가지고 있는 imageData의 address만 copy됩니다.
만약 bmp1이든 bmp2이든 어느쪽이든 내용을 수정하게되면
수정한쪽에서 새로 메모리를 할당하여서 내용을 복사하고 복사한곳에서 수정합니다.
참 한가지
AnsiStirng을 배열로 접근하면
s: Stirng;
s[1]='x'; 이런식으로 내용에 접근할때
일반적인 배열에 접근하듯이 접근하지 않습니다.
System유닛의 stirng관련 처리 유닛코드가 돌아갑니다.
프로젝트 옵션에서 Use Debug DCUs를 체크하시구
컴파일 하여서 위와같은 코드에서 break-point걸구.. F7을 클릭하셔서 vcl소스안쪽으로 디버깅해 들어가보면
다음과 같은 System.pas에 있는 코드를 타게 됩니다.
procedure _UniqueStringA(var str: AnsiString);
asm
JMP InternalUniqueString
end;
function InternalUniqueString(var str): Pointer;
asm
{ -> EAX pointer to str }
{ <- EAX pointer to unique copy &
[답변] String 할당 받아야 하는지요??
