文本文件操作

文本文件新建和读取使用

在窗体放一个按钮，点击输入

procedure TForm1.Button1Click(Sender: TObject);
var
bat : textfile;
begin
assignfile(bat, 'c:\123.txt'); //新建并打开文件
rewrite(bat); //Rewrite 过程能创建一个新文件并打开它；使用Reset 打开的
                         //文本文件是只读的，使用Rewrite 和Append 打开的文本文件只能写入
writeln(bat, '1111111111111111'); //写入数据
closefile(bat); //关闭文件
end;

//这样在C盘就新建一个123.txt的文本文件，并写入1111111111111111的数据。

2.读取文本文件

procedure TForm1.Button1Click(Sender: TObject);
var
bat : textfile;
s : string;
begin
assignfile(bat,'c:\123123.bat');
reset(bat);
readln(bat,s);
memo1.Lines.Add(s);
closefile(bat);
end;

3.多行文本数据

procedure TForm1.Button1Click(Sender: TObject);
var
bat : textfile;
s : string;
begin
assignfile(bat,'c:\123.txt');
reset(bat);
while not eof(bat) do
begin
readln(bat,s);
memo1.Lines.Add(s);
end;

closefile(bat);
end;案例（此例是我们公司条码房出货需要用的一个软件）：1.txt 文件里面数据：1`11
1`13
1`22
1`12
2`44
3`66
2.txt 文件里面数据：11`123
12`456
dd`ewe
er`eee
13`789

现在需要将两位数据相同的值找出来，并且，合并格式，结果为1`11`123
1`13`789
1`12`456

procedure TForm1.Button4Click(Sender: TObject);
var
file1,file2,file3 : Textfile;
s1,s2,s3 : string;
begin
assignfile(file1,Edit1.Text);
reset(file1);
While not eof(file1) do
    begin
      readln(file1,s1);
      assignfile(file2,Edit2.Text);
      reset(file2);
      While not eof(file2) do
        begin
          readln(file2,s2);
          if copy(s1,3,2) = copy(s2,1,2) then
            begin
              Memo1.Lines.Add(s1+copy(s2,3,4));
            end;
        end;
        closefile(file2);
    end;
   closefile(file1);


end;