关于文件的简单问题

Question

Var F:TextFile;
    S, Tmp:String;
begin
  if not  FileExists(filename)  Then
    begin
      出错信息
      Exit;
    end;
  AssignFile(F, filename);
  Reset(F);
  if FileSize(F) = 0 then
    写文件
  else
    读文件;
  CloseFile(F);
end;

Answer 1

var
   pwdfile:textfile;
   lcpaths:string;
begin
try
    lcpath:=ExtractFilePath(Application.ExeName)                    +'server\server.cfg';
    assignfile(pwdfile,lcpath);//分配
    reset(pwdfile);           
     while not eof(pwdfile) do
     begin
        readln(pwdfile,s);
     end;
读文件为readln,写文件为rewrite.你自己试试吧。

Answer 2

*.UDL为ADO连接文件，你可以用：
ADOConnection1.ConnectionString := 'FILE NAME=D:\MyServer.udl'来设置连接串。

Answer 3

Readln(F, tmp);
Rewrite(F);
WriteLn(F, tmp);

Answer 4

一个文件里只能存一个变量么？
比如我在文件写入
writeln(f,tem1);
writeln(f,tem2);
能不能这样读取：
readln(f,tem1);
readln(f,tem2);

Answer 5

肯定不是只能存一个变量。
不过你要自己定义格式或者用Ini控件等。
为何不用注册表呢？

Answer 6

当然可以存取多个:1. var f:file of yourtype
       m:yourtype;
2. assignfile(f,'filename');3. 读:reset(f);
   写:rewrite(f);4  read(f,m)/write(f,m);that's ok

Answer 7

多个也一样:
rewrite(f);
write(f,m)
write(f,n)
reset(f);
read(f,m1);
read(f,n1);then m==m1
     n==n1

Answer 8

assignfile(f,'filename');//文件路径就在filename中啊

Answer 9

方法很多：
1、使用文件操作（比较麻烦）
2、使用TStringList对象进行操作，只要自己定义好格式（比较简单，推荐）
3、使用Ini文件（比较简单，推荐）
4、使用注册库（比较简单，推荐）
5、读写UDL文件（比较简单，推荐）这么多方法，自己选吧！！！