请问如何循环读入文本文件的内容？？？

Question

请问如何循环读入文本文件( MyFile.txt)的内容？？？
如：
Wuhan|98392|00:00:0|00:00:00|00:09:00
wuhan|98393|00:00:0|00:00:00|00:09:00
wuhan|98394|00:00:0|00:00:00|00:09:00
wuhan|98395|00:00:0|00:00:00|00:09:00
我想将读出的数据显示在lvService: TListView;上，假如ColumnName分别是：
"用户名称 | 进程号 | 启动时间 | 最后一次io操作时间 | 消耗系统资源时间"
请问我应该怎么将数据放到相应的列中,请大侠指教，最好有例子，谢谢！！但如果该文件存放在服务器的某个目录上，请问我又该如何去读取？？？？

Answer 1

TLogItem = record
  Name: string;
  ID: Integer;
  StartTime: TDateTime;
  LastIOTime: TDateTime;
  RunTime: TDateTime;
end;//切分出分隔项
function SplitColum(S: string; var Item: TLogItem): Boolean;
begin
end;//加入ListView
function AddListIite(const Item: TLogItem): Boolean;
begin
end;//记录日志
function DoLog(FileName: string): Boolena;
var
  S: string;
  Item: TLogItem;
  MyFile: TextFile
begin
  AssignFile(MyFile, FileName);
  Reset(MyFile);
  
  while not Eoln(MyFile) do
  begin
    ReadLn(MyFile, S);
    if SplitColum(S, Item) then
     AddListItem(Item);
  end; 
  
  CloseFile(MyFile)
end;流程就这样，应该不难了吧
如果是远程，先将文件下载下来，用HTTP或FTP，用Indy控件有DEMO或网找很容易