用ShellExecute(handle, 'open',pchar('myfile'), nil, nil,SW_SHOWNORMAL)试试,可以用记事本打开
如果你想在程序中读取文本内容的话可以这样
procedure TForm1.Button1Click(Sender: TObject);
const maxbuf=10;
var f:Tfilestream ;
buf:array[0..maxbuf-1] of char;
i:integer;
thecount:integer;
begin
f:=Tfilestream.Create('c:\a.txt',fmOpenRead);
thecount:=(f.size div maxbuf);
for i:=1 to thecount do
begin
f.ReadBuffer(buf,10);
memo1.Lines.Add(buf);
end;
f.ReadBuffer(buf,f.size-thecount*maxbuf);
memo1.Lines.Add(buf);
end;