delphi读文本文件的问题~高手都来下~

来源：百度知道 编辑：UC知道 时间：2024/05/16 20:38:50
请高手帮个忙!
怎么读取文本文件的或memo中的指定内容!
具体要求就是 比如C盘下有一个文件或是MEMO中有片文章
怎么读出内容的前20个非空字符!?
高手们谢谢啦 在线等```

var
F:TFileStream;
begin
F:=TFileStream.Create('D:\gg.txt',fmOpenRead);
Memo1.Lines.LoadFromStream(F);

var
MyList: TStringList;
Line : String;
begin
MyList := TStringList.Create;
MyList.LoadFromFile('c:/file.txt');
Line := MyList.Strings[1];