Move WriteBuffer ReadBuffer String

最新推荐文章于 2021-05-15 15:49:02 发布

原创最新推荐文章于 2021-05-15 15:49:02 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #button #integer #buffer #forms #windows

技术学习专栏收录该内容

27 篇文章

订阅专栏

本文介绍在编程中如何利用Buffer处理字符串，重点讲解了在Delphi中使用WriteBuffer、ReadBuffer和Move函数的方法，并强调了字符串索引从1开始等注意事项。

在实际编程中，经常会用到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.