如何给数组赋值的，50分，少了点，请那个大侠帮我讲讲。(50分)

J

JACKKL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #1

大家好，我是刚来始学DELPHI的。
书上的例子讲的不是很明白。
那位大侠可以告诉我如何将一个EDIT。TEXT中的数据赋值给数组的。
如：
VAR
ARRAYF：ARRAY OF BYTE；
S：STRING；
begin
EDIT。TEXT=‘12 34 56 AA 12 A2 F1 。。。’；//长度不定
S：=EDIT。TEXT；
SETLENGTH（ARRAYF，LENGTH（S））；//下面是如何进行STRING和BYTE间的转换，并将S赋值给
//数组ARRAYF的。

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #2

var
Arrayf:array[1..255] of Byte;
pchar;
begin
Edit1.Text:='ABCDEFG';
FillMemory(@ArrayF,255,0);
p:=Pchar(Edit1.Text);
CopyMemory(@ArrayF,p,Strlen(p));
ShowMessage(inttostr(Arrayf[1]));
end;

 

D

datoncg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #3

应该将STRING定义为PCHAR指针类型！

 

J

JACKKL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #4

请问两位，在这里数级是动态的。
所以我用LENGTH求出S的长度。
然后在SETLENGTH（ARRAYF，LENGTH（S））不可以这样用吗。

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #5

这样做行不行？
procedure TForm1.Button1Click(Sender: TObject);
var
txt : TStringList;
i : Integer;
begin
txt := TSTringList.Create;
txt.CommaText := Edit1.text;
for i := 0 To txt.Count-1do
showmessage(txt.strings);
txt.free;
end;

 

J

JACKKL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #6

好的，谢谢大家了。这就加分。