char数组赋值(25分)

P

PowerXJQ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #1

请问想把长度固定但内容不定的edit.text（比如说时间）赋值给char数组该怎么办

 

Q

qince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
szTmp: string;
AByte: array [0..4] of Char;
begin
FillChar(AByte, 5, 0);
szTmp := Edit1.Text;
CopyMemory(@AByte, PChar(szTmp), 5);
// if AByte[1] = '4' then
// Beep();
end;

 

P

PowerXJQ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #3

to 楼上:
为什么有时候会有乱码

 

Q

qince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #4

没道理呀，是不是5的问题？

 

P

PowerXJQ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #5

我想在数组前面加个固定字符串，再加上edit.text怎么办

 

Q

qince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
szTmp: string;
AByte: array [0..11] of Char;
pTmp: PChar;
begin
FillChar(AByte, 5, 0);
pTmp := @AByte;
szTmp := 'abcdefg';
CopyMemory(pTmp, PChar(szTmp), 7)

szTmp := Edit1.Text;
Inc(pTmp, 7)
// 重点是这句！
CopyMemory(pTmp, PChar(szTmp), 5);
// if AByte[1] = '4' then
// Beep();
end;

 

P

PowerXJQ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #7

ok 谢谢了