如何将指定的数据顺序存入到自己创建的文件中去

Question

我想到一半就写不下去了...请指点
if SaveDialog1.Execute then
  begin
    if FileExists(SaveDialog1.FileName) then
    begin
     BackupName := ExtractFileName(SaveDialog1.FileName);
      BackupName := ChangeFileExt(BackupName, '.BAK');
      if not RenameFile(SaveDialog1.FileName, BackupName) then
        raise Exception.Create('Unable to create backup file.');
    end;
    FileHandle := FileCreate(SaveDialog1.FileName);
比如说我自定义了一个类TSchDataBase
并且有一组初始化数据 现在我想将初始化的数据存到文件中
应该如何实现？请帮忙...不胜感激

Answer 1

StrList: TStings;
Begin
  StrList := TStringList.Create;
  for i:= 1 to ? do
    StrList.Add(你要添加数据);
  StrList.SavetoFile('文件名');
  之后再加上你上面的那些...想想吧^_^
end;

Answer 2

谢谢  GARNETT2183(極品狼王) 不过没怎么看懂 呵呵...
比放我初始化的数据有 A := FALSE; B:= 'abc'; C :=  123 ; 都在Schdatabase下面 就这样帮我举个实例吧 呵呵 劳烦你了..

Answer 3

To : Tensionli() 
谢谢 Tensionli，我现在就是在找文件管理这方面的实例，不知道您有没有，借我看看..这样学得比较好 呵呵

Answer 4

To liangqingzhi
多谢指点，我会这样的尝试一下