文本文件新建和读取使用
在窗体放一个按钮,点击输入
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;
转载于:https://www.cnblogs.com/y232995558/archive/2009/03/17/1413883.html