Lazarus: Как импортировать данные из текстового файла в таблицу?

Автор admin На чтение 1 мин Просмотров 22 Опубликовано 17 декабря, 2024

Вопрос: Я получил текстовый файл, который содержит данные в формате столбца, разделенные ; (происхождение этого файла является файловой рамкой, созданной с помощью 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;

Вопрос:

Я получил текстовый файл, который содержит данные в формате столбца, разделенные ; (происхождение этого файла является файловой рамкой, созданной с помощью 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

Не могли бы вы помочь мне импортировать данные из текстового файла?

Ответ №1

использовать TStringList.LoadFromFile() это Creat 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;