再加一个问题...怎么把string转换为char数组? 例如 var a : string; b : array[1..1024] of char; begin a := '123456'; b := ????? //如何把 string转换成 array[??..??] of char?
var a : TMemoryStream; b : string; c : string; begin a := TMemoryStream.Create; a.Postion = 0; b := 'abcde'; a.Write(b[1],5); b := '12345'; a.Write(b[1],5) a.Postion := 0; SetLength(c, 10); a.Read(c[1],10);
我把string改成Pchar似乎也可以达到效果.
请教原理..
例如
var
a : string;
b : array[1..1024] of char;
begin
a := '123456';
b := ????? //如何把 string转换成 array[??..??] of char?
a : TMemoryStream;
b : string;
c : string;
begin
a := TMemoryStream.Create;
a.Postion = 0;
b := 'abcde';
a.Write(b[1],5);
b := '12345';
a.Write(b[1],5) a.Postion := 0;
SetLength(c, 10);
a.Read(c[1],10);
ShowMessage(c);