Move WriteBuffer ReadBuffer String

  在實際編程中，經常會用到Buffer，當string作爲Buffer傳值時需要注意的是

 1， string的值的起始索引是1，千萬記住！

 2， 有時候需要先告訴系統去開闢出內存空間，用SetLength函數。

 

如下代碼，示範了再Move、 WriteBuffer、 ReadBuffer時候的用法：

unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } FMemoryStream: TMemoryStream; FBuffer: string; public { Public declarations } end; var Form3: TForm3; implementation {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); var LStr: string; LLen: Integer; begin LStr := '太棒了！Hello, 世界 我太愛你了'; LLen := Length(LStr); FMemoryStream.WriteBuffer(LLen, SizeOf(LLen)); // 要用LStr[1], 而不是LStr FMemoryStream.WriteBuffer(LStr[1], LLen); end; procedure TForm3.Button2Click(Sender: TObject); var LStr: string; LLen: Integer; begin // 因爲寫入與讀出在一個工程中，所以先把指針指向開頭位置 FMemoryStream.Position := 0; FMemoryStream.ReadBuffer(LLen, SizeOf(LLen)); SetLength(LStr, LLen); // 要用LStr[1], 而不是LStr FMemoryStream.ReadBuffer(LStr[1], LLen); Memo1.Lines.Add(LStr); end; procedure TForm3.Button3Click(Sender: TObject); var LStr: string; LLen: Integer; LIndex: Integer; begin LStr := '世界很美好 Hello, World!'; LLen := Length(LStr); // 先爲FBuffer開闢出空間 SetLength(FBuffer, SizeOf(LLen) + LLen); LIndex := 1; // FBuffer的起始位置爲1 Move(LLen, FBuffer[1], SizeOf(LLen)); // 計算Buffer指針的移動位置 Inc(LIndex, SizeOf(LLen)); // 要用LStr[1], 而不是LStr Move(LStr[1], FBuffer[LIndex], LLen); end; procedure TForm3.Button4Click(Sender: TObject); var LStr: string; LLen: Integer; LIndex: Integer; begin LIndex := 1; Move(FBuffer[1], LLen, SizeOf(LLen)); Inc(LIndex, SizeOf(LLen)); SetLength(LStr, LLen); // 要用LStr[1], 而不是LStr Move(FBuffer[LIndex], LStr[1], LLen); Memo1.Lines.Add(LStr); end; procedure TForm3.FormCreate(Sender: TObject); begin FMemoryStream := TMemoryStream.Create; end; procedure TForm3.FormDestroy(Sender: TObject); begin FMemoryStream.Free; end; end.