procedure TForm1.Button5Click(Sender: TObject);
var
S: string;
P: PInt;
begin
S := '12345678901234567890';
P := PInt(S);
Dec(P);
ShowMessage(IntToStr(P^));
end;
어느분에게 String의 길이가 Str[-1] 부터 들어있다고 들었거든요.. Str[0]이나 Str[-1]은 값을 가지고 올수가 없어서 byte := pByte(integer(@str[1])-2); Edit2.Text := IntToStr(byte^); 이런식으로 포인터를 바꿔서 가지고 와봤는데 ...
최용일
•
2005.07.05 07:18
안녕하세요. 최용일입니다.
길이는 4바이트입니다. 문자열 주소 - 4옵셋 에 길이가 들어 있습니다.
S...
길이는 4바이트입니다. 문자열 주소 - 4옵셋 에 길이가 들어 있습니다.
Str[0] Str[-1] 이렇게 표시할수가 없죠... 4바이트이기 때문에...
4바이트정수형이기 때문에.. 2억개의 문자를 저장할수가 있는거죠...
procedure TForm1.Button5Click(Sender: TObject);
var
S: string;
P: PInt;
begin
S := '12345678901234567890';
P := PInt(S);
Dec(P);
ShowMessage(IntToStr(P^));
end;
^^ 항상 즐코하세요...