函数如何返回array of byte(20分)

C

chong_chong214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #1

先拜了，如个做一个返回array of byte的函数（输入字符串返回比特数组）

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #2

procedure TForm1.Button1Click(Sender: TObject);
type TByteArray=Array of Byte;
function GetStr:TByteArray;
begin
SetLength(Result,100);
StrPCopy(PChar(@Result[0]),'aaaaaaaaaaa');
end;
var B:TByteArray;
begin
B:=GetStr;
ShowMessage(Pchar(@B[0]));
end;

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #3

这两种方法读可以
funcation f1(var buf :array of byte):integer;
funcation f2(bufChar):Integer;

 

C

chong_chong214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #4

谢谢俩位了先，第一位的试过不行
我的代码如下
//将字符转换成比特型
Function TShortLetter.StringToByt(sOrder:String):array of Byte;
var
SendData:array of byte;
i:Integer;
iOrderLen:Integer;
begin
iOrderLen:=Length(sOrder);
SetLength(SendData,iOrderLen);
for i:=0 to iOrderLen-1do
SendData:=Ord(sOrder[i+1]);
Result:=SendData;
end;

 

C

chong_chong214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #5

编译不过去，这是为什么？

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #6

你有没有仔细看？
type TByteArray=Array of Byte;
Function StringToByt(sOrder:String):TByteArray;
var
i:Integer;
iOrderLen:Integer;
begin
iOrderLen:=Length(sOrder);
SetLength(Result,iOrderLen);
for i:=0 to iOrderLen-1do
Result:=Ord(sOrder[i+1]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var S:String;
B:TByteArray;
begin
S:='aaaaaaaaaa';
B:=StringToByt(S);
ShowMessage(Pchar(@B[0]));
end;

 

C

chong_chong214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-08

• #7

多人接受答案了。