在 Delphi 2009 中,
TStrings 类(包括 TStringList 和包含 TStrings 属性的所有组件, 譬如 Memo.lines 属性、ListBox.Items 属性)、
TStream 类系列(包括 TFileStream、TMemoryStream 等) 的存取方法, 譬如:
LoadFromFile、SaveToFile、LoadFromStream、SaveToStream, 都有了选择 TEncoding 参数的重载.

---

本例效果图:

---

代码文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;Memo2: TMemo;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Button5: TButton;Button6: TButton;Button7: TButton;Button8: TButton;Button9: TButton;procedure FormCreate(Sender: TObject);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);procedure Button8Click(Sender: TObject);procedure Button9Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}constFilePath = 'c:\temp\test.txt';varstr: string;procedure TForm1.FormCreate(Sender: TObject);
beginMemo1.ReadOnly := True;str := Memo1.Text;Button1.Caption := 'TStrings 默认存取';Button2.Caption := 'TStrings ASCII 存取';Button3.Caption := 'TStrings UTF8 存取';Button4.Caption := 'TFileStream 默认存取';Button5.Caption := 'TFileStream ASCII 存取';Button6.Caption := 'TFileStream UTF8存取';Button7.Caption := 'TMemoryStream 默认存取';Button8.Caption := 'TMemoryStream ASCII 存取';Button9.Caption := 'TMemoryStream UTF8 存取';
end;procedure TForm1.Button1Click(Sender: TObject);
varList: TStrings;
beginList := TStringList.Create;List.Text := str;List.SaveToFile(FilePath);List.LoadFromFile(FilePath);Memo2.Lines := List;List.Free;
end;procedure TForm1.Button2Click(Sender: TObject);
varList: TStrings;
beginList := TStringList.Create;List.Text := str;List.SaveToFile(FilePath, TEncoding.ASCII);List.LoadFromFile(FilePath, TEncoding.ASCII);Memo2.Lines := List;List.Free;
end;procedure TForm1.Button3Click(Sender: TObject);
varList: TStrings;
beginList := TStringList.Create;List.Text := str;List.SaveToFile(FilePath, TEncoding.UTF8);List.LoadFromFile(FilePath, TEncoding.UTF8);Memo2.Lines := List;List.Free;
end;procedure TForm1.Button4Click(Sender: TObject);
varstream: TStream;
beginstream := TFileStream.Create(FilePath, fmCreate);Memo1.Lines.SaveToStream(stream);stream.Position := 0;Memo2.Lines.LoadFromStream(stream);stream.Free;
end;procedure TForm1.Button5Click(Sender: TObject);
varstream: TStream;
beginstream := TFileStream.Create(FilePath, fmCreate);Memo1.Lines.SaveToStream(stream, TEncoding.ASCII);stream.Position := 0;Memo2.Lines.LoadFromStream(stream, TEncoding.ASCII);stream.Free;
end;procedure TForm1.Button6Click(Sender: TObject);
varstream: TStream;
beginstream := TFileStream.Create(FilePath, fmCreate);Memo1.Lines.SaveToStream(stream, TEncoding.UTF8);stream.Position := 0;Memo2.Lines.LoadFromStream(stream, TEncoding.UTF8);stream.Free;
end;procedure TForm1.Button7Click(Sender: TObject);
varstream: TMemoryStream;
beginstream := TMemoryStream.Create;Memo1.Lines.SaveToStream(stream);stream.SaveToFile(FilePath);stream.LoadFromFile(FilePath);stream.Position := 0;Memo2.Lines.LoadFromStream(stream);stream.Free;
end;procedure TForm1.Button8Click(Sender: TObject);
varstream: TMemoryStream;
beginstream := TMemoryStream.Create;Memo1.Lines.SaveToStream(stream, TEncoding.ASCII);stream.SaveToFile(FilePath);stream.LoadFromFile(FilePath);stream.Position := 0;Memo2.Lines.LoadFromStream(stream, TEncoding.ASCII);stream.Free;
end;procedure TForm1.Button9Click(Sender: TObject);
varstream: TMemoryStream;
beginstream := TMemoryStream.Create;Memo1.Lines.SaveToStream(stream, TEncoding.UTF8);stream.SaveToFile(FilePath);stream.LoadFromFile(FilePath);stream.Position := 0;Memo2.Lines.LoadFromStream(stream, TEncoding.UTF8);stream.Free;
end;end.

窗体文件:

---

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 103ClientWidth = 686Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Button1: TButtonLeft = 117Top = 8Width = 150Height = 25Caption = 'Button1'TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 268Top = 8Width = 150Height = 25Caption = 'Button2'TabOrder = 1OnClick = Button2Clickendobject Button3: TButtonLeft = 419Top = 8Width = 150Height = 25Caption = 'Button3'TabOrder = 2OnClick = Button3Clickendobject Button4: TButtonLeft = 117Top = 39Width = 150Height = 25Caption = 'Button4'TabOrder = 3OnClick = Button4Clickendobject Memo1: TMemoLeft = 0Top = 0Width = 116Height = 103Align = alLeftLines.Strings = ('Hello World'#19990#30028#24744#22909#12495#12525#12540#19990#30028#50668#47084#48516', '#50504#45397#54616#49464#50836'Ol'#225' Mundo'#1055#1088#1080#1074#1077#1090' '#1084#1080#1088)TabOrder = 4endobject Memo2: TMemoLeft = 570Top = 0Width = 116Height = 103Align = alRightLines.Strings = ('Memo2')TabOrder = 5ExplicitLeft = 578endobject Button5: TButtonLeft = 268Top = 39Width = 150Height = 25Caption = 'Button5'TabOrder = 6OnClick = Button5Clickendobject Button6: TButtonLeft = 419Top = 39Width = 150Height = 25Caption = 'Button6'TabOrder = 7OnClick = Button6Clickendobject Button7: TButtonLeft = 117Top = 70Width = 150Height = 25Caption = 'Button7'TabOrder = 8OnClick = Button7Clickendobject Button8: TButtonLeft = 268Top = 70Width = 150Height = 25Caption = 'Button8'TabOrder = 9OnClick = Button8Clickendobject Button9: TButtonLeft = 419Top = 70Width = 150Height = 25Caption = 'Button9'TabOrder = 10OnClick = Button9Clickend
end