string 转 array of char (30分)

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #1

[]

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #2

var
aa:array[0..80] of char;
bb:array[1..80] of char;
s:string;
begin
strpcoy(a,'safndasnfsakl');
strpcoy(@bb[1],'sdfjklasdjfsa');

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #3

thanks,
procedure TForm1.insertword(Sender: TObject);
var i:integer;
btncap:array[0..17] of char;
btncapstr:string;
begin
btncapstr:=(sender as tspeedbutton).caption;
strcopy(btncap,btncapstr);
memo1.SetSelTextBuf(btncap);
end;
执行strcopy(btncap,btncapstr);报错：incompatible types :'String'and 'Pchar'

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #4

这样对了，谢谢你
procedure TForm1.insertword(Sender: TObject);
var btncap:array[1..17] of char;
bufferchar;
begin
btncapstr:=(sender as tspeedbutton).caption;
GetMem(Buffer,Length(btncapstr) + 1);
StrCopy(Buffer, PChar(btncapstr));
memo1.SetSelTextBuf(Buffer);
end;

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #5

其实，只要这样：
memo1.SetSelTextBuf(PChar((sender as tspeedbutton).caption));

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #6

果然，thks

 

W

watter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #7

copy最简单了

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #8

[]