delphi中怎样读取txt文件的内容

text 文件最能想到的读取方式是按行以字符串的方式读取，然后对读取的串进行分解抽取你想要的东西。

如果是以空格分隔的数值数据，则可逐个数据项读取到你设定的变量或数组元素中。

.............

procedure TForm1.Button1Click(Sender: TObject)

var A:TStringList  

    i,conI:Integer

    L:TStringList  

    s:string

    vItem: TListItem

begin

   A:=TStringlist.Create()  

   A.LoadFromFile('d:\tt.txt')   //读取txt文件

   conI:=A.Count       //获取行数

   for i:=0 to conI-1 do        //循环读取行数

   begin

      s:=Trim(A.Strings[i])

      L:=TStringList.Create()

      L.CommaText:=s           //以逗号为分隔符分隔每行的字符

      //以下我是把每行的头3段写入到一个ListView里，如果你是要存入数据库则改成相应的代码

      vItem := ListView1.Items.Add

      vItem.Caption:=L[0]

      vItem.subItems.Add(L[1])

      vItem.subItems.Add(L[2])

   end

end

运行效果：

窗口上放一个打开对话框,一个memo,一个按钮

procedure TForm1.Button1Click(Sender: TObject)

var

F: TextFile

S: string

begin

if OpenDialog1.Execute then{ Display Open dialog box }

begin

AssignFile(F, OpenDialog1.FileName)//绑定文件到文件类型变量

Reset(F)//打开一个存在的文件,另Rewrite创建文件并打开

while not eof(F) do begin

Readln(F, S)

Memo1.Lines.Add(S)

end

CloseFile(F)

end

end

---