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

http://www.delphipages.com/forum/showthread.php?t=170787 을 참고하면

이것은 되고...

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s := '10001';
  ComboBox1.Items.AddObject('a',TObject(s) );
  s := '10002';
  ComboBox1.Items.AddObject('b',TObject(s) );
  s := '10003';
  ComboBox1.Items.AddObject('c',TObject(s) );
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  label1.Caption := String( ComboBox1.Items.Objects[ComboBox1.ItemIndex] );
end;


이것은 안되요...

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.AddObject('a',TObject('10001') );
  ComboBox1.Items.AddObject('b',TObject('10002') );
  ComboBox1.Items.AddObject('c',TObject('10003') );
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  label1.Caption := String( ComboBox1.Items.Objects[ComboBox1.ItemIndex] );
end;


https://www.thoughtco.com/store-a-string-or-an-object-1058392 참고(구글번역 이용하면 됩니다. ^^) 하여 왜 안되는지... 이유를 붙이자면...

" A direct typecast from an integer to an object is made above. The "AObject" parameter is actually the 4-byte pointer (address) of the object added. Since in Win32 an integer occupies 4 bytes - such a hard cast is possible. "


s := '10001';
  ComboBox1.Items.AddObject('a',TObject(s) );

이것은 문자열의 주소가 TObject 에 전달되는 것이고?


ComboBox1.Items.AddObject('a',TObject('10001') );
은 형변환을 시도하는 것? ( string을 4byte Integer로 typecast 안되므로... )

위 에것을 그냥 내 생각입니다. 검증이 필요합니다~. 
2019-05-23 오후 10:33:39

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

[요점]
TObject() 의 매변변수(parameter)는 객체의 4-byte pointer (address)  이다.

정수변수에 문자열을 못 넣는 것과 같이, 4-byte pointer 변수에 문자열을 못 넣으므로 에러.

TObject('10001')   //에러발생


s := '10001';    // 메모리에 문자열 생성, 문자열의 포인터 주소가 s 
TObject(s);    // TObject 매개변수에 문자열 주소 전달


String( ComboBox1.Items.Objects[ComboBox1.ItemIndex] )
이것은 형변환을 뜻하는 것이 아니고 포인터의 형(Type)이 string 임을 알려 주는 것.

C언어의 포인터에서 포인터 연산을 보면, 포인터 타입에 따라 포인터 주소 연산이 다른 것...



제가 공부가 많이 되네요... 감사합니다. 
2019-05-23 오후 11:54:57

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

낫씽님 감사합니다 덕분에 저두 하나 또 배워가네요!~

정말감사합니다^^ 
2019-05-24 오후 5:23:41