读取文本文件的字符串添加到Memo中及相反

最新推荐文章于 2024-02-01 16:35:49 发布

weixin_34138255

最新推荐文章于 2024-02-01 16:35:49 发布

阅读量72

点赞数

原文链接：http://www.cnblogs.com/ciske/articles/2933064.html

版权

procedure TForm1.Button1Click(Sender: TObject);
var
  txt:TextFile;
  s:string;
  path:string;
begin
  path:=ExtractFilePath(Application.ExeName);
  AssignFile(txt,path+'\test.txt');

  Reset(txt);   //读打开文件，文件指针移到首
  Memo1.Clear;

  while not Eof(txt) do
  begin
    Readln(txt,s);
    Memo1.Lines.Add(s);
  end;

  CloseFile(txt);
end;

procedure TForm1.Btn2Click(Sender: TObject);
var
  OutputFile: TextFile;
  s: string;
  i: Integer;
begin

  AssignFile(OutputFile, 'D:\ciske_c.txt');
  Rewrite(OutputFile);

  for I := 0 to Mmo1.Lines.Count-1 do
  begin
    Writeln(OutputFile, Mmo1.Lines.Strings[i]);
  end;

  CloseFile(OutputFile);
end;