如何从文件中读入内容到数组中？

Question

比如有数组 name:array of String;
文件内容为  刘,张,马,赵
读入后数组应该为('刘','张','马','赵')
我想从文件读入内容到数组该怎么办？
如何做，谢谢

Answer 1

先读到tstrings中，然后分析，写道数组中。

Answer 2

var
str:string;
txtf:system.textfile;
beginassignfile(txtf,'c:\****.txt');
reset(txtf);
readln(txtf,str);str为第一行的内容，然后自己处理

Answer 3

先创建一个TStrings，添几个值，存一下，看看格式，以后规定文件的格式就为存后的样式
用的时候在Load进来，不就行了吗
procedure TForm1.Button1Click(Sender: TObject);
var
    str:TStrings;
begin
    str := TStringList.Create();
    str.Add('a');
    str.Add('b');
    str.Add('c');
    str.Add('d');
    str.SaveToFile('c:\a.txt');
end;
用时str.LoadFromFile就自动进入列表了

Answer 4

var 
  F:TextFile;
  name:array[0..3] of string;
begin
  AssignFile(F,'i:\file.txt');//  文件的路径
  Reset(F);
  Readln(F,name[0]);
  Readln(F,name[1]);
  Readln(F,name[2]);
  Readln(F,name[3]);
  CloseFile(F);
end;
end;

Answer 5

呵呵~~字符分割
function  Getnum(var str:string ):Tstrings;
     var
      num :Tstrings;
      begin
      str:=trim(str);
      num:=tstringlist.Create;
      while pos(', ',str)>0 do
        begin
        trim(str);
        num.Add(copy(str,1,pos(', ',str)));
        delete(str,1,pos(', ',str));
        pos(' ,',str);
        end ;
        num.Add(str);
       Result:=num;
      end;

Answer 6

list:tstrings;
list:=tstringlist.create;
list.loadfrom(your file name);
list[0] is your file first line!