求助：怎么把字符串读到数组里，谢谢！
请教：怎么把字符串读到数组里?

procedure TForm1.Button3Click(Sender: TObject);
var
s1:string;
s2:string;
filename: string;
m1:TMemoryStream;
buffer:array of byte;

begin
s1:= '123 ';
s2:= '456 ';
filename:=ExtractFilePath(paramstr(0))+ '01.bmp ';
m1:=m1.Create;
m1.LoadFromFile(filename);
//现在怎么把 字符串 '123 ' '456 ' 和 流读到 数组 buffer;
end;


procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
len:longint;
buffer:array of byte;
m1:TMemoryStream;
begin
len:=Socket.ReceiveLength;
Socket.ReceiveBuf(buffer,len);
//现在怎么得到 字符串 '123 ' '456 ' 和 流 m1


end;

谢谢！




[解决办法]
IdTCPClient可以直接WriteStream

//---------写入
var
s:string;
sbuf: array[0..2] of Byte;
begin
s:= '123 ';
mov( s, sbuf,sizeof( sbuf ) );
ms.Position:=0;//写入buf的位置
ms.writebuffer( sbuf, sizeof( sbuf ) );
end;

//---------读取
ms.Position:=0;//取buf的起始位置
ms.ReadBuffer( buf,sizeof( buf ) );
[解决办法]
SetLength分配大小
SetLength(sbuf,3);