BorlandTalk.com

stbecker · Guest

I'm a little new at this, how do I convert a pointer to a string?In the following example, Buffer may contain a null characterso the Len variable is required to show the length. UsingStrPas will interpret the first null character as the end ofline, so how can I do this?

procedure This(Buffer: Pointer; var Len: Integer);
var
mystr: string;
begin
mystr:=strpas(buffer);
end;
User submitted from AEWNET (http://www.aewnet.com/)

Jianwei Sun · Guest

You can try:
procedure This(Buffer: Pointer; var Len: Integer);
var
mystr: string;
begin
SetLength(mystr, Len);
Move(Buffer^, mystr[1], Len);
end;
"stbecker" <stbecker (AT) aew_nospam (DOT) com> ????
news:41896f52 (AT) newsgroups (DOT) borland.com...
I'm a little new at this, how do I convert a pointer to a string? In the
following example, Buffer may contain a null character so the Len variable
is required to show the length. Using StrPas will interpret the first null
character as the end of line, so how can I do this?

procedure This(Buffer: Pointer; var Len: Integer);
var
mystr: string;
begin
mystr:=strpas(buffer);
end;
User submitted from AEWNET (http://www.aewnet.com/)

Jianwei Sun · Guest

You can try:
procedure This(Buffer: Pointer; var Len: Integer);
var
mystr: string;
begin
SetLength(mystr, Len);
Move(Buffer^, mystr[1], Len);
end;
"stbecker" <stbecker (AT) aew_nospam (DOT) com> ????
news:41896f52 (AT) newsgroups (DOT) borland.com...
I'm a little new at this, how do I convert a pointer to a string? In the
following example, Buffer may contain a null character so the Len variable
is required to show the length. Using StrPas will interpret the first null
character as the end of line, so how can I do this?

procedure This(Buffer: Pointer; var Len: Integer);
var
mystr: string;
begin
mystr:=strpas(buffer);
end;
User submitted from AEWNET (http://www.aewnet.com/)