如何把txt文件以ascii方式读取，另何处可以下载vb帮助文件

Question

发一个文件到[email protected],我帮你分析一下。

Answer 1

var
  F:TextFile;
  Str:String;
begin
  AssignFile(F,FileName);
  Reset(F);
  Readln(F,Str);
  CloseFile(F);
  ShowMessage(Str);
end;

Answer 2

var
 f1:File of byte;
 arr1:Array of byte;
begin
 AssignFile(f1,'你的文件名.txt');
 try
  reset(f1);
  setLength(arr1,FileSize(f1)); //设定数组长度为文件字节数
  read(f1,arr1); //将文件所有字符的ASCII码内容读入数组
 finally
  closeFile(f1);
 end; //end of try
end;

Answer 3

windows下的文本文件应该是#10和＃13
不嫌麻烦的话可以把这些东西分段放在memo不同的lines[i]里头，
然后把memo内容保存成txt就可以了！
你可以试试，memo.text读出的字符串每句的结束符就是#10#13!