Move WriteBuffer ReadBuffer String

在实际编程中，经常会用到Buffer，当string作为Buffer传值时需要注意的是

1， string的值的起始索引是1，千万记住！

2， 有时候需要先告诉系统去开辟出内存空间，用SetLength函数。

如下代码，示范了再Move、 WriteBuffer、 ReadBuffer时候的用法：

1. unit Unit3;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs, StdCtrls;
6. type
7. TForm3 = class(TForm)
8. Memo1: TMemo;
9. Button1: TButton;
10. Button2: TButton;
11. Button3: TButton;
12. Button4: TButton;
13. procedure Button1Click(Sender: TObject);
14. procedure Button2Click(Sender: TObject);
15. procedure FormCreate(Sender: TObject);
16. procedure FormDestroy(Sender: TObject);
17. procedure Button3Click(Sender: TObject);
18. procedure Button4Click(Sender: TObject);
19. private
20. { Private declarations }
21. FMemoryStream: TMemoryStream;
22. FBuffer: string;
23. public
24. { Public declarations }
25. end;
26. var
27. Form3: TForm3;
28. implementation
29. {$R *.dfm}
30. procedure TForm3.Button1Click(Sender: TObject);
31. var
32. LStr: string;
33. LLen: Integer;
34. begin
35. LStr := '太棒了！Hello, 世界 我太爱你了';
36. LLen := Length(LStr);
37. FMemoryStream.WriteBuffer(LLen, SizeOf(LLen));
38. // 要用LStr[1], 而不是LStr
39. FMemoryStream.WriteBuffer(LStr[1], LLen);
40. end;
41. procedure TForm3.Button2Click(Sender: TObject);
42. var
43. LStr: string;
44. LLen: Integer;
45. begin
46. // 因为写入与读出在一个工程中，所以先把指针指向开头位置
47. FMemoryStream.Position := 0;
48. FMemoryStream.ReadBuffer(LLen, SizeOf(LLen));
49. SetLength(LStr, LLen);
50. // 要用LStr[1], 而不是LStr
51. FMemoryStream.ReadBuffer(LStr[1], LLen);
52. Memo1.Lines.Add(LStr);
53. end;
54. procedure TForm3.Button3Click(Sender: TObject);
55. var
56. LStr: string;
57. LLen: Integer;
58. LIndex: Integer;
59. begin
60. LStr := '世界很美好 Hello, World!';
61. LLen := Length(LStr);
62. // 先为FBuffer开辟出空间
63. SetLength(FBuffer, SizeOf(LLen) + LLen);
64. LIndex := 1;
65. // FBuffer的起始位置为1
66. Move(LLen, FBuffer[1], SizeOf(LLen));
67. // 计算Buffer指针的移动位置
68. Inc(LIndex, SizeOf(LLen));
69. // 要用LStr[1], 而不是LStr
70. Move(LStr[1], FBuffer[LIndex], LLen);
71. end;
72. procedure TForm3.Button4Click(Sender: TObject);
73. var
74. LStr: string;
75. LLen: Integer;
76. LIndex: Integer;
77. begin
78. LIndex := 1;
79. Move(FBuffer[1], LLen, SizeOf(LLen));
80. Inc(LIndex, SizeOf(LLen));
81. SetLength(LStr, LLen);
82. // 要用LStr[1], 而不是LStr
83. Move(FBuffer[LIndex], LStr[1], LLen);
84. Memo1.Lines.Add(LStr);
85. end;
86. procedure TForm3.FormCreate(Sender: TObject);
87. begin
88. FMemoryStream := TMemoryStream.Create;
89. end;
90. procedure TForm3.FormDestroy(Sender: TObject);
91. begin
92. FMemoryStream.Free;
93. end;
94. end.

http://blog.csdn.net/procedure1984/article/details/5419454