如何读写文本文件!

Question

我如何才能读到文本文件中的内容,
如何写入文本到指定行!,
移动文本文件指针怎么写!

Answer 1

var
  InputFile:textfile;
  s: string;
begin
  AssignFile(InputFile,'c:\sample.txt');
  reset(InputFile);
  while not eof(InputFile) do
  begin
    readln(InputFile,s);
  end;
  closeFile(inputFile);
end;
使用read得到一个单一值，readln得到一系列值
写入文件： 
var
  outputFile: textFile;
begin
  AssingFile(outputFile,'c:\sample.txt');//创建并写入内容，若文件存在则先删除
  ReWrite(outputFile);
  Append(outputFile);//在文件末尾追加内容
  close(outputFile);
end;

Answer 2

写入文件是:writeln(outputfile,'内容');

Answer 3

最简单的读取、添加、修改、删除、保存procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('D:\1.txt');
ShowMessage(Memo1.Lines.Strings[0]);//第一行
memo1.Lines.Insert(1,'342');//第二行前添加'342'
memo1.Lines.Delete(3);//删除第四行
memo1.Lines.Strings[2]:='23l423';//第三行修改为'231423'
memo1.Lines.SaveToFile('D:\2.txt');
ShowMessage('ok');
end;