Delphi 对使用中文件的读取!? 请高手帮忙!(200)

文件被使用中,如c:/windows/schedlgu.txt文件,windows系统在使用中;请问怎样才能读取它的内容到TStringlist中??

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; mmo1: TMemo; procedure btn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } s:TStringlist; end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);begin s.LoadFromFile('C:/01.txt');///我先用记事本打开后也能加载成功 mmo1.Text:=s.Text;end;procedure TForm1.FormCreate(Sender: TObject);begins:=TStringlist.Create;end;procedure TForm1.FormDestroy(Sender: TObject);begins.Free;end;end.PS：LZ有空帮我顶顶我的帖子吧 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3998555

感谢zhengrong117的回复,但你的方法,好像不行!首先,c:/windows/schedlgu.txt是Unicode编码;其次,它被WINDOWS使用中.

答复3楼：1、Unicode编码，这个你可以自己转换下，网上查下，有现成的转换函数。 我比较懒，不然我直接查出来给你贴上了[]2、我不了解你说的 被WINDOWS使用中 怎么实现，我只是用记事本打开，然后在加载 现在是可以加载成功的，能说下你是怎么做的吗？

回4楼!记事本打开,是可以的;但用TSTRINGLIST.LOADFILE('C:/WINDOWS/..TXT')时候,运行会报错,说文件正在被另一个程序使用中.(因为这个TXT文件特殊嘛!)

以只读方式打开