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

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = 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;varForm1: TForm1;implementation{$R *.dfm}// TStringReader.Read 是按字符读取, 返回字符编码
procedure TForm1.Button1Click(Sender: TObject);
varReader: TStringReader;i: Integer;
beginReader := 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);
varReader: TStringReader;i: Integer;
beginReader := 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);
varReader: TStringReader;
beginReader := 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);
varReader: TStringReader;
beginReader := TStringReader.Create('123' + sLineBreak + 'abc' + sLineBreak + 'xyz');ShowMessage(Reader.ReadToEnd); {123 / abc / xyz}Reader.Free;
end;//按字符读取全部
procedure TForm1.Button5Click(Sender: TObject);
varReader: TStringReader;str: string;
beginReader := 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);
varReader: TStringReader;str: string;
beginReader := 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);
varReader: TStringReader;buf: TCharArray;
beginReader := 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.