hsr//////////////////////////////////////////////////////////
예로 들어볼겠습니다
1번
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
p : PWideChar;
i : integer;
begin
s := '12345';
GetMem(P, 256);
StringToWideChar(s,p,length(s)+1);
//i := lstrlenW(p); //길이
i := StrToint(string(p));
showmessage(intToStr(i));
showmessage(string(p));
end;
2번
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
p : PWideChar;
Buffer: array[0..256] of WideChar;
i : integer;
begin
s := '12345';
P := StringToWideChar(s,Buffer,length(s)+1);
i := StrToint(string(p));
showmessage(intToStr(i));
showmessage(string(p));
showmessage(string(Buffer));
end;
예로 들어볼겠습니다
1번
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
p : PWideChar;
i : integer;
begin
s := '12345';
GetMem(P, 256);
StringToWideChar(s,p,length(s)+1);
//i := lstrlenW(p); //길이
i := StrToint(string(p));
showmessage(intToStr(i));
showmessage(string(p));
end;
2번
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
p : PWideChar;
Buffer: array[0..256] of WideChar;
i : integer;
begin
s := '12345';
P := StringToWideChar(s,Buffer,length(s)+1);
i := StrToint(string(p));
showmessage(intToStr(i));
showmessage(string(p));
showmessage(string(Buffer));
end;