谁能给个读写TXT或INI的例子，在线等

Question

没有文件就创建一个，可以读写内容到程序中

Answer 1

Memo1.Lines.LoadFromFile('d:\a.txt');
Memo1.Lines.SaveToFile('d:\a.txt');
...
uses IniFiles;
...
procedure TfrmPer.FormCreate(Sender: TObject); 
var
  iFile: TIniFile;
  sPath: string;
begin
  sPath := ExtractFilePath(Application.ExeName);
  iFile := TIniFile.Create(sPath + 'perset.ini');
  sTopic := iFile.ReadString('sTopic', 'topic', '秋风');
  bgstr := iFile.ReadString('sysbg', 'bground', 'main.jpg');
  bStaffBirth := iFile.ReadBool('staff', 'sbirth', false);
  {
  iFile.WriteString('sTopic', 'topic', Trim(edtsTopic.Text));
  iFile.WriteBool('staff', 'sbirth', true);
  }
  iFile.Free;
end;

Answer 2

能否再补充一下，我想把他写到LISTBOX里，怎么分行呀

Answer 3

sTopic := iFile.ReadString('sTopic', 'topic', '秋风');
  bgstr := iFile.ReadString('sysbg', 'bground', 'main.jpg');
  bStaffBirth := iFile.ReadBool('staff', 'sbirth', false);
这几句提示未定义，请专家再改一改，明天结帐

Answer 4

在uses中使用inifiles;
var
    TxtFile:Tfilename;
    ini:Tinifile;
    myName,myAddR,myHttp,myTel:string;
begin
   
    TxtFile:=MainDir+'MyEMail\Txt\'+cmbMail.Text+'.txt';
    ini:=TiniFile.Create(myFile);
    try
        myName := ini.ReadString('BasicSet','Name','');
        myAddR := ini.ReadString('BasicSet','Address','');
        myHttp := ini.ReadString('BasicSet','Http','');
        myTel := ini.ReadString('BasicSet','Tel','');
    finally
        ini.Free;
    end;end;

Answer 5

weizi2000(秋风啊-秋的叹息) 的少定义了三个变量，改过成功了，谢谢你！！！
　yzty(雨中太阳) 的也有点问题，我也改不好了，先用上面的吧！！！！