1 procedure TFormTestRichText.btn1Click(Sender: TObject);
2 begin
3 //cxrchdt1.Lines.SaveToFile('d:\test.txt');
4 mStream := TMemoryStream.Create;
5 cxrchdt1.Lines.SaveToStream(mStream);
6 ShowMessage(IntToStr(mStream.Size));
7 end;
8
9 procedure TFormTestRichText.btn2Click(Sender: TObject);
10 var
11 c: Char;
12 s1, s2: string;
13 vMemoryStream: TMemoryStream;
14 begin
15 //cxrchdt1.Lines.LoadFromFile('d:\test.txt');
16 cxrchdt1.Lines.LoadFromStream(mStream);
17
18 s1 := '';
19 mStream.Position := 0; {指针到开始}
20 while mStream.Position < mStream.Size do {循环读出}
21 begin
22 mStream.Read(c, 1); {每读出一个字节, 指针会自动移到新的位置}
23 s1 := s1 + c + ''; {用文本记录}
24 // s2 := s2 + IntToHex(Byte(c),2) + ' '; {用两位数的十六进制记录}
25 end;
26
27 vMemoryStream := TStringStream.create(s1);
28 cxrchdt1.Lines.LoadFromStream(vMemoryStream);
29 end;
