关于Delphi地址和指针的问题(很幼稚的问题...唉) ( 积分: 50 )

B

bxdwx21

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #1

通过以下这种方式怎么让edit1.Text显示“bbbb”
好像和“@”“^”有关系，但我不会用

procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := 'aaaaa';
aaa(str);
edit1.Text := str;
end;

procedure TForm1.aaa(s:string);
begin
s := 'bbbb';
end;

 

S

songrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #2

edit1.Text := aaa(str);

 

H

hfqxfx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #3

procedure TForm1.aaa(var s:string);

 

B

bxdwx21

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #4

我是想用地址指针实现，点击Button1，通过aaa过程把bbbb赋值给edit1.Text

好象类似：
procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := 'aaaaa';
aaa(@str);
edit1.Text := str;
end;

procedure TForm1.aaa(s:^string);
begin
s := 'bbbb';
end;

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := 'aaaaa';
aaa(str);
edit1.Text := str;
end;

procedure TForm1.aaa([red]var [/red]s:string);
begin
s := 'bbbb';
end;

 

B

bxdwx21

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #6

谢谢kaida，但是什么意思呢?