Question

我得到的文本文件包含列格式的数据，以;分隔（此文件的来源是使用R创建的数据框并保存为文本文件）。

 Name; Date; Results; Score;
 John; 1; 100; 1
 John; 3 ; 200; 1
 John; 5; 30; 9
 Mike; 1; 90; 2
 Mike; 3; 34; 10
 Mike; 5; 216; 1
 ...

我想将这些数据框导入Lazarus中声明的表中。这就是我开始做的事情：

  Type
 TRunning=record
 Date, Score: array [1..3] of integer; ## since I have 3 datas per name
 Results: array [1..3] of double;
   Var
 Run : array [1..100] of TRunning ## since I have a total of 100 names

你能帮我从文本文件中导入数据吗？

Answer 1

然后使用文件中每一行的TStringList.LoadFromFile()创建stringlist 使用ExtractStrings :

从您的数据中提取列字符串

procedure TForm1.FormCreate(Sender: TObject);    
      var
          rowlist,collist:TStringList;
          i:integer
        begin
             rowlist:=TStringList.Create;
             collist:=TStringList.Create;
             rowlist.LoadFromFile('filename');
             for i:=0 to rowlist.Count-1 do
             begin 
                ExtractStrings([';'],[''],PChar(rowlist.Strings[i]),collist);
                //fill your table with  collist
             end;
        end;

Lazarus：如何将文本文件中的数据导入表格？

1 个答案: