Question

Delphi字符串到指针

请问谁可以帮我解决这个问题啊？比如对于字符串12 34 56，我希望可以得到一维数组data[1..3],使data[1]=12....
我用CopyMemory(@data[j], @TmpStr[1], Length(TmpStr));
时，要取出data[i]就是不会，哪位好心人帮我解决一下好不好？
就是我想读出data[1]

Answer 1

procedure TForm1.Button1Click(Sender:TObject);
var
data:TStrings;
begin
data := TStringList.Create;
data.CommaText := '12 34 56';
// 此时data[0]='12' data[1]='34' data[2]='56'
end;

Answer 2

Delphi 中长字符串（string类型）可以当字符数组使用。
如：s:='123456' ，则s[1]中为字符'1'、s[2]中为字符'2'、s[3]中为字符'3'、。。。。

所以，可以用一个循环实现你的要求：
var
data:array of integer;
s:string;
i:integer;
begin
s:='123456';
setlength(data,length(s));
for i:=1 to length(s) div 2 do
data[i]:=strtoint(s[2*i-1]+s[2*i]);
end;