将PCHAR形式 的变量值付给 ADOTable.fieldbyname('e').asstring (50分)

C

caroline

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #1

将PCHAR形式的变量值付给ADOTable.fieldbyname('e').asstring
var xr_ChrBuf1 : Pchar;
begin
xr_ChrBuf2 := AllocMem(sizeof(char)*400);
ADOTable.fieldbyname('e').asstring:=??????????????????????????
end;

怎么计算 这个xr_ChrBuf2有多长呢？

 

L

LiWD

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #2

直接赋值不可以吗?

var xr_ChrBuf1 : Pchar;
begin
xr_ChrBuf1 := AllocMem(sizeof(char)*400);
xr_ChrBuf1 := 'aaaaaaaaaaaaaaaaaaa';
Button1.Caption := IntToStr( Length(xr_ChrBuf1));
ADOTable1.Edit;
ADOTable1.fieldbyname('d').asstring:= xr_ChrBuf1;

 

Y

YNTW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #3

赋值给字段值，只需要要进行类型转换就行了，老大计算要分配内存空间做什么？：）
要进行类型转换，直接用StrPas函数就可以：
ADOTable.fieldbyname('e').asstring:=StrPas(xr_ChrBuf1);

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #4

多人接受答案了。