delphi 测试字符串读取类: TStringReader

本文整理自网络，侵删。

 
TStringReader 比 TStringWriter 的方法少得多, 分别可按: 字符、行或全部读取;

读取字符时得到的是字符编码, 全部或按行读取得到是字符串, 也可读取到字符数组.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// TStringReader.Read 是按字符读取, 返回字符编码
procedure TForm1.Button1Click(Sender: TObject);
var
  Reader: TStringReader;
  i: Integer;
begin
  Reader := TStringReader.Create('ABCDEFGHIJKLMNOPQRSTUVWXYZ');

  {读取}
  i := Reader.Read;
  ShowMessageFmt('%d : %s', [i, Chr(i)]); {65 : A}

  {继续读取}
  i := Reader.Read;
  ShowMessageFmt('%d : %s', [i, Chr(i)]); {66 : B}

  {将要读取的}
  i := Reader.Peek;
  ShowMessageFmt('%d : %s', [i, Chr(i)]); {67 : C}

  Reader.Free;
end;

//试试中文
procedure TForm1.Button2Click(Sender: TObject);
var
  Reader: TStringReader;
  i: Integer;
begin
  Reader := TStringReader.Create('万一的 Delphi 博客');

  {读取}
  i := Reader.Read;
  ShowMessageFmt('%d : %s', [i, Chr(i)]); {19975 : 万}

  {继续读取}
  i := Reader.Read;
  ShowMessageFmt('%d : %s', [i, Chr(i)]); {19968 : 一}

  {将要读取的}
  i := Reader.Peek;
  ShowMessageFmt('%d : %s', [i, Chr(i)]); {30340 : 的}

  Reader.Free;
end;

//读取一行
procedure TForm1.Button3Click(Sender: TObject);
var
  Reader: TStringReader;
begin
  Reader := TStringReader.Create('123' + sLineBreak + 'abc' + sLineBreak + 'xyz');

  ShowMessage(Reader.ReadLine); {123}
  ShowMessage(Reader.ReadLine); {abc}
  ShowMessage(Reader.ReadLine); {xyz}

  Reader.Free;
end;

//一次读取全部
procedure TForm1.Button4Click(Sender: TObject);
var
  Reader: TStringReader;
begin
  Reader := TStringReader.Create('123' + sLineBreak + 'abc' + sLineBreak + 'xyz');
  ShowMessage(Reader.ReadToEnd); {123 / abc / xyz}
  Reader.Free;
end;

//按字符读取全部
procedure TForm1.Button5Click(Sender: TObject);
var
  Reader: TStringReader;
  str: string;
begin
  Reader := TStringReader.Create('123' + sLineBreak + 'abc' + sLineBreak + 'xyz');

  while Reader.Peek > 0 do str := str + Chr(Reader.Read);
  ShowMessage(str); {123 / abc / xyz}

  Reader.Free;
end;

//按行读取全部
procedure TForm1.Button6Click(Sender: TObject);
var
  Reader: TStringReader;
  str: string;
begin
  Reader := TStringReader.Create('123' + sLineBreak + 'abc' + sLineBreak + 'xyz');

  while Reader.Peek > 0 do str := str + Reader.ReadLine;
  ShowMessage(str); {123abcxyz}

  Reader.Free;
end;

//读取到字符数组
procedure TForm1.Button7Click(Sender: TObject);
var
  Reader: TStringReader;
  buf: TCharArray;
begin
  Reader := TStringReader.Create('ABCDEFGHIJKLMNOPQRSTUVWXYZ');

  SetLength(buf, 3);
  Reader.ReadBlock(buf, 0, Length(buf));
  ShowMessageFmt('%s%s%s', [buf[0], buf[1], buf[2]]); {ABC}

  Reader.Free;
end;

end.

来源：https://www.cnblogs.com/del/archive/2009/10/12/1581842.html
 

相关阅读 >>

Delphi xe5开发的android手机截屏功能

Delphi 10中实现android的广播接收器

Delphi 一组数据，按由大到小进行排序，并输出最大值与最小值

Delphi 增加/获得windows用户帐号

Delphi中emptyparam参数被改写问题

Delphi 获取cpu占用时间

Delphi timagelist 中使用 透明 png 图标

Delphi httpresponsestrings

Delphi 中的自动引用计数使用规则

Delphi for android 获取手机号

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 测试字符串读取类: TStringReader