关于把字符串存入文件？高分相送

Question

如何把一个字符串存入文件？
如何把edit和memo中的text存入文件？另外，如何从一个文件中读一个字符串出来？

Answer 1

如果是存入到txt文件
那么先建立/打开一个txt文件，
然后将你要写的记录追加到文件中就好了。

Answer 2

memo1.Lines.SaveToFile( filename)
memo1.Lines.LoadFromFile( filename)

Answer 3

memo1.lines.savetoFile(filename);/////////////////////////////////
var 
Filel:Tstrings;
i:integer;
begin
Filel:=Tstringlist.creat;
Filel.loadformfile(filename);
for i:=0 to filel.count-1 do 
  showmessage(filel.string[i]);

Answer 4

写入ini 文件var
  myIni:TIniFile;
  filename:string;
begin
  myIni := TIniFile.Create(filename);
   try
      myini.writestring('aaaa',edit值',edit1.Text)  ;
      myini.writestring('aaaa','memo值',memo.text) ;
   finally
     myini.free;
   end;
 end; 
 
读
edit1.Text  :=myini.ReadString('预警运行','edit值,aaaa);
........

Answer 5

如果用memo存文件就像楼上说的那么简单，如果是Edit就稍微麻烦，需要自己写读取文件代码和写入文件代码

Answer 6

memo1.Lines.SaveToFile( filename)
memo1.Lines.LoadFromFile( filename)

Answer 7

memo1.Lines.SaveToFile( filename)
memo1.Lines.LoadFromFile( filename)

Answer 8

var ss:Tstringlist;
if edit then
{
  ss:=Tstringlist.create;
  ss.text:=edit;
  ss.savetofile('....');
  ss.free;
} else if  memo then
   memo.lines.savetofile('....');
  

Answer 9

var
  strList : TStringList;
begin
  try
    strList := TStringList.Create;
    strList.Add(Edit1.text);
    strList.Add(Memo1.text);
    strList.SaveToFile(FileName);
  finally
    strList.free;
  end;
end;

Answer 10

要分分情况，如果存入一般的文件，doc,txt,ini,等等很简单了，如果存入可执行程序，加密的文件，数据表等就有难度了，你问的是哪种？

Answer 11

就存入普通的文件，比如*.txt有几个朋友说用：memo1.Lines.SaveToFile( filename)
               memo1.Lines.LoadFromFile( filename)
好像没有这两个函数吧只有:richedit1.lines.savetofile(filname)
                       richedit1.lines.loadfromfile(filename)
                      

Answer 12

gytyl(郭三少爷) 这位朋友能否说得清楚一点，怎么追加一个文件？？

Answer 13

var myfile:TextFile;
begin
  assignFile(myfile,'a.txt');
  rewrite(myfile);
  writeln(parafile,'abcdefg');
  closefile(parafile)
end;

Answer 14

sorry it should be var myfile:TextFile;
begin
  assignFile(myfile,'a.txt');
  rewrite(myfile);
  writeln(myfile,'abcdefg');
  closefile(myfile)
end;

Answer 15

memo1.Lines.SaveToFile('filename');

Answer 16

to boymice(hansen) ( )
  没有？
  
                memo1.Lines.SaveToFile( filename)
                memo1.Lines.LoadFromFile( filename)
有