1.文本文件新建和读取使用

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

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;

Procedure or

function
Description
Append
打开存在的文本文件（用于对文件追加文本）。

AssignFile
指定外部文件的文件名到文件变量。

BlockRead
从无类型文件读出一个或多个记录。

BlockWrite
向无类型文件写入一个或多个记录。

ChDir
改变当前目录。

CloseFile
关闭打开的文件。

Eof
返回文件的文件结束（end-of-file）状态。

Eoln
返回文本文件的行结束（end-of-line）状态。

Erase
删除外部文件。

FilePos
返回类型文件或无类型文件的当前位置。

FileSize
返回文件的当前尺寸；不适用于文本文件。

Flush
刷新输出文本文件的缓冲区。

GetDir
返回指定驱动器的当前目录。

IOResult
返回表示最后一次I/O函数执行状态的整数值。

MkDir
创建子目录。

Read
从文件读出一个或多个值到一个或多个变量。

Readln
在文本文件中执行Read操作并跳至下一行行首。

Rename
对外部文件重命名。

Reset
打开存在的文件。

Rewrite
创建并打开新文件。

RmDir
删除空的子目录。

Seek
从类型文件或无类型文件的当前位置移动到指定的分量；不适用于文本文件。

SeekEof
返回文本文件的文件结束（end-of-file）状态。

SeekEoln
返回文本文件的行结束（end-of-line）状态。

SetTextBuf
指定输入/输出（I/O）缓冲区到文本文件。

Truncate
在类型文件或无类型文件的当前位置截断文件。

Write
向文件写入一个或多个值。

Writeln
在文本文件中执行Write操作然后写入一个行结束（end-of-line）标记。
函数 描述

StrAlloc
在堆中分配给定尺寸的字符缓冲区

StrBufSize
返回用StrAlloc或StrNew分配的字符缓冲区的尺寸

StrCat
连接两个串

StrComp
比较两个串

StrCopy
复制一个串

StrDispose
释放用StrAlloc或StrNew分配的字符缓冲区

StrECopy
复制串并返回串尾指针

StrEnd
返回串尾指针

StrFmt
格式化一个或多个值到一个串中

StrIComp
比较两个串（大小写不敏感）

StrLCat
连接两个串（给定结果串的最大长度）

StrLComp
比较两个串（给定最大长度）

StrLCopy
复制串直到给定的最大长度

StrLen
返回串的长度

StrLFmt
格式化一个或多个值到一个串中（给定串的最大长度）

StrLIComp
比较两个串（给定最大长度且大小写不敏感）

StrLower
转换一个串到小写

StrMove
从一个串移动字符块到另一个串

StrNew
在堆中分配串

StrPCopy
复制一个Pascal串到一个空结束串

StrPLCopy
复制一个Pascal串到一个空结束串（给定最大长度）

StrPos
返回给定子串在串中第一次出现的位置指针

StrRScan
返回给定字符在串中最后一次出现的位置指针

StrScan
返回给定字符在串中第一次出现的位置指针

StrUpper
转换一个串到大写