关于SetLength的问题，我从学DELPHI的时候就一直没有明白过。(100分)

L

liguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #1

以上代码，
procedure TForm1.Button1Click(Sender: TObject);
var
str: String;
begin
SetLength(str, 50);
GetTempPath(50, PChar(str));
showMessage(str + 'light')
end;
showMessage后无法显示正确的值，为什么，另外在使用SetLength来设置一个string的长度的时候有没有什么需要注意的问题。望高手问答。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #2

var
str: String;
begin
SetLength(str, 50);
GetTempPath(50, PChar(str));
showMessage(trim(str)+ 'light')
////

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
str: String;
begin
SetLength(str, 50);
GetTempPath(50, PChar(str));
showMessage(Trim(str)+'Light' );
end;

改成上面的形式就正常了，因为SetLength将String长度限定死了，而GetTempPath会将缓冲区
填满，所以你得到的Str是带空格的，需要Trim一下

 

Z

ZRWeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #4

是不是ShowMessage显示的字符有限？？
发现 SetLength(str, 16);可以刚好显示
C:/windows/temp/light

真奇怪～

 

J

jinmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #5

SetLength给动态数组设定大小，开始可以设定的大一些，用一个变量记录其真实大小，最后
用copy函数可以重新设置其大小（削减）。

 

A

Awen.ZW.Yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #6

showMessage后无法显示正确的值,因为
GetTempPath(50, PChar(str));
后str后灌进了字符串终止符号，所以即使+ 'light'你也看不到。
你可以检验一下：

procedure TForm1.BitBtn1Click(Sender: TObject);
var
str: String;
B : Boolean;
I : integer;
begin
B:= False;
SetLength(str, 50);
GetTempPath(50, PChar(str));
showMessage(str + 'light');

for I := Length(Trim(str)) - 2 to 50 do
begin
if B then
str := '_';
if str = '/' then
B := True;
end;
showMessage(str + 'light')
end;

 

D

delphiandoracle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #7

setlength就是给一个变量设其长度啊

 

3

328xy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #8

顺便问问：
ArrayStr:Array [1..10] of String;
Schar;
对数组附值以后进行如下操作
begin
S:=Pchar(concat(ArrayStr[1],ArrayStr[2],ArrayStr[3]));
showmessage(s);
end;
S的值是乱码。估计出现了指针错误，正确的方法应该是什么呢

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #9

设置了str的长度为50，"+"操作符在字符串运算中是追加到另一字符串结尾。
GetTempPath方法执行后，由于原str后有#0（字符串结束符），所以你看不到light

 

薛

薛獅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #10

1、GetTempPath返回字符串长度：
procedure TForm1.Button1Click(Sender: TObject);
var
str: String;
len:Integer;
begin
SetLength(str, 50);
len:=GetTempPath(50, PChar(str));
showMessage(Copy(str,1,len)+'Light' );
end;
SetLength给str分配长度空间，但不清空，要用GetTempPath的返回值来取正确的部分。

2、PChar要转换为string;

begin
S:=Pchar(concat(ArrayStr[1],ArrayStr[2],ArrayStr[3]));
showmessage(string(s));
end;

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #11

procedure TForm1.Button1Click(Sender: TObject);
var
str，tmp: String;
begin
SetLength(str, 50);
GetTempPath(50, PChar(str));
tmp:=Trim(str)+'Light'
showMessage(tmp);
end;
d5 中showmessage()不能‘...'+'....'

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #12

这样做既安全效率也高
procedure TForm1.Button1Click(Sender: TObject);
var
str: String;
X: Integer;
begin
SetLength(str, 50);
GetTempPath(50, @str[1]);
X:= Pos(#0, str);
Move('light'#0, str[X], 6);
showMessage(str)
end;

 

3

328xy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #13

顺便问问：
ArrayStr:Array [1..10] of String;
Schar;
对数组附值以后进行如下操作
begin
S:=Pchar(concat(ArrayStr[1],ArrayStr[2],ArrayStr[3]));
showmessage(s);
end;
S的值是乱码。估计出现了指针错误，正确的方法应该是什么呢

按楼上说的方法：S:=Pchar(concat(ArrayStr[1],ArrayStr[2],ArrayStr[3]));
showmessage(String(s));
无法正常显示

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #14

试一试这样：
var
str: string;
begin
str := ArrayStr[1] + ArrayStr[2] + ArrayStr[3];
S := PChar(str);
ShowMessage(S);
end;

 

S

stargazer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #15

顺便说一句,最好不要用[red]字符串数组[/red],而要用[blue]TStringList[/blue],这个东东很好用

 

S

softBugg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #16

procedure TForm1.Button1Click(Sender: TObject);
var
str: String;
iCopyLen: integer ;
begin
SetLength(str, 50);
iCopyLen :=GetTempPath(50, PChar(str));//返回Copy的长度
showMessage(LeftStr(str,iCopyLen) + 'light')
end;

 

W

watter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #17

listen