|
안녕하세요. 타락천사 입니다.
네이버 웹툰 중에 "덴마" 라는 만화에 X, Y 좌표를 알면 어디에 있든지 바꿔치기 할 수 있는 능력이 나옵니다.
잠긴 사무실의 잠긴 금고 안의 박스 안의 물건을 바꿔치기 해도 어떤 징조나 어떤 증거도 없습니다.
포인터는 알고 있는 데이터의 좌표를 이용해 데이터를 수정 하는 것 입니다.
제가 포인터를 무척 좋아 합니다만, Delphi 에서는 포인터 사용을 권하지 않습니다.
Delphi7 때 부터 사용하는 개인 라이브러리가, Delph 2010, Delphi XE, Delphi XE6 등 새버젼이 나올 때 마다
포인터 사용하는 부분이 계속 에러를 내고, 수정하기도 어려웠습니다.
Delphi 에서 포인터를 사용을 대신 할 수 있는 기능이 있습니다.
1. Call by Reference
** C/C++
void Swap(int* ANum1, int* ANum2)
{
int nTemp = 0;
nTemp = *ANum1;
*ANum1 = *ANum2;
*ANum2 = nTemp;
}
...
int nNum1, nNum2;
Swap(&nNum1, &nNum2);
** Delphi
procedure Swap(var ANum1: integer; var ANum2: integer);
var
nTemp: integer;
begin
nTemp := ANum1;
ANum1 := ANum2;
ANum2 := nTemp;
end;
...
nNum1, nNum2: integer;
Swap(nNum1, nNum2);
2. char*
** C/C++
char* pTemp;
char* pText = "This is sample"; // 메모리 할당 1
pText += 3;
*pText = 'e'; // 데이터 수정
pTemp = (char*)malloc(15); // 메모리 할당 2
memcpy(pText, pTemp, 15); // 데이터 복사
pTemp += 4;
*pTemp = 'n'; // 데이터 수정
** Delphi
pTemp, pText: string;
pText := 'This is sample'; // 메모리 할당 1
pText[4] := 'e'; // 데이터 수정
pTemp := pText;
pTemp[5] := 'n'; // 메모리 할당 2, 데이터 복사, 데이터 수정
3. Structure
C/C++ 에서는 Structure 의 멤버 변수 일일이 대입하는게 힘들어서, 포인터로 클래스나 함수에 넘깁니다.
Delphi 에서는 멤버 변수 일괄 대입해 줍니다.
** C/C**
Struct tagTest
{
int nAttack, nDefend, nStr, nInt, nDex, nVal;
}
...
tagTest Test1, Test2;
...
Test2->nAttack = Test1->nAttack;
Test2->nDefend = Test1->nDefend;
Test2->nStr = Test1->nStr;
Test2->nInt = Test1->nInt;
Test2->nDex = Test1->nDex;
Test2->nVal = Test1->nVal;
** Delphi
tagTest = record
nAttack, nDefend, nStr, nInt, nDex, nVal: integer;
end;
...
Test1, Test2: tagTest;
...
Test2 := Test1;
4. void *
** C/C**
보이드 포인터를 써야만 하는 경우가 있는데, 지금은 적당한 예가 떠오르지 않네요.
void* MyFunc(void* SumType, int Size)
{
char* pBuf;
pBuf = SumType;
...
}
...
MyFunc(&sText, 10);
MyFunc(&Test1, sizeof(tagTest));
MyFunc(&nNum1, sizeof(integer));
** Delphi
procedure MyFunc(const SumType; Size: integer); // 변수 타입이 없슴
var
pBuf: PChar;
begin
pBuf := PChar(@SumType);
...
end;
...
MyFunc(sText[1], 10);
MyFunc(Test1, sizeof(tagTest));
MyFunc(nNum1, sizeof(integer));
5. String
** C/C++
char* pTest = (char*)malloc(100); // 메모리 할당
memset(pTest, 100) ; // 초기화
** Delphi
pTest: PChar;
...
SetLength(pTest, 100); // 메모리 할당
FillChar(pTest, 0, 100); // 초기화
6. 멤버 변수
Delphi 는 포인터 변수를 포인터 안쓰고 처리 할수 있게 서비스 하고 있습니다.
Window API 를 쓰는 경우 와 같이 포인터 사용이 불가피한 경우에도 포인터 사용하지 않아도 되도록 한 것 같습니다.
*** easy example.
PTestData = ^TTestData;
TTestData = record
|
[angel] 포인터 2
