怎么创建文件？？？？？？？？？

Question

创建'myfile.txt';
var
   MyStream: TFileStream;
   MyStrList: TStrings;
begin
   MyStream:= TFileStream.Create('myfile.txt',fmCreate);
   MyStrList:= TStrings.Create;
   try
      MyStrList.Add('hollo world');
      MyStrList.Add('ok?);
      MyStrList.SaveToStream(MyStream);
   finally
      MyStrList.Free;
      MyStream.Free;
   end;
end;

Answer 1

你的程序运行时报错Abstract Erro
而且并没有将字符串写入Txt文件中！！

Answer 2

哎，自己不看书！不看帮助！
N个方法，随便说两个：
1：用Write，自己写文件，必须更地层超说打交道，比较复杂。
2：用其他的类来实现，简单！例如TStrings：
var
  str:TStrings;
begin
  str:=TStringList.Create;
  str.Add('Your Text');
  str.Add('Your Text');
  ....
  Str.SaveToFile('Your FileName');
  str.Free;
end;
........
3:用流的方式也可以...
.......

Answer 3

我写错了,创建TStringList类:
var
  MyStream: TFileStream;
  MyStrList: TStrings;
begin
  MyStream:= TFileStream.Create('myfile.txt',fmCreate);
  MyStrList:= TStringList.Create;
  try
      MyStrList.Add('hollo world');
      MyStrList.Add('ok?);
      MyStrList.SaveToStream(MyStream);
  finally
      MyStrList.Free;
      MyStream.Free;
  end;
end;

Answer 4

var
  F:Text;
begin
  AssignFile(F,'mybat.bat');
  rewrite(F);  //create file mybat.bat
  writeln(F,'write text you want here in the file mybat.bat');
  CloseFile(F);
end;
这只是最简单的例子，具体可再参照HELP，挺简单的。