求助：怎么把字符串读到数组里，谢谢！ ( 积分: 1 )

请教：怎么把字符串读到数组里?

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;

谢谢！

你的名字太嚣张了
亵渎

s1 := s1 + s2;
setlength(buffer, length(s1));
for i := 0 to high(buffer) do
buffer := strtoint(s1[i + 1]);
我这个方法比较笨

setlength 加上 copymemory ，注意COPY s1+s2的时候，Destination为 @buffer[第一个数]； Copy 流的时候指针要移动一下。
VOID CopyMemory(
PVOID Destination, // copy destination
CONST VOID* Source, // memory block
SIZE_T Length // size of memory block
);