delphi怎样读写文件(不用Memo控件的LoadFromFile和SaveToFile)

下面简单地说一下：
1、首先定义一个文件变量。
如果是文本方式：var F: TextFile;
如果是二进制方式：var DataFile: file;
2、打开文件，先用AssignFile指定文件名，然后用Reset来打开。如：
AssignFile(F, 'test.txt');
Reset(F);
3、文本文件的读写方法：然后使用Read和Readln读文件。Read相当于VB的Input #，而Readln相当于Line Input #。写文件使用Write和Writeln，相当于Print #语句。
二进制文件的读写方法：然后使用BlockRead读文件。BlockRead相当于VB的Get。写文件使用BlockWrite，相当于Put语句。
4、使用CloseFile关闭文件。

{ 方法二：使用内存块进行读写 }

procedure FileCopy(const FromFile, ToFile: string);
var
FromF, ToF: file;
NumRead, NumWritten: Word;
Buf: array[1..2048] of Char;
begin
AssignFile(FromF, FromFile);
Reset(FromF, 1);
AssignFile(ToF, ToFile);
Rewrite(ToF, 1);
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten < > NumRead);
CloseFile(FromF);