1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

type
  Tp_point = record
    datetime : string;
    ...
end;

// max tp = 50
ar_tppoints : array[1..2,0..MAX_TP] of Tp_point;

procedure Split (const Delimiter: Char;
    Input: string;
    const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

procedure TMain.GetUpdateData();
var
  n, i,x: integer;
  myfile : TextFile;
  SR: TSearchRec;
  IsFound: Boolean;
  FilesList, strListVal :TStringList;
  StartDir, strHz, strLine: string;
begin
  FilesList := TStringList.Create;
  strListVal := TStringList.Create;
  // file find and access
  StartDir := 'c:\system1';
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  IsFound :=
    FindFirst(StartDir+'*.log', faAnyFile-faDirectory, SR) = 0;
  while IsFound do begin
    FilesList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);
  for i := 0 to FilesList.Count do begin
    AssignFile(myFile, FilesList.Strings[i]);
    Reset(myFile);
    // Display the file contents
    while not Eof(myFile) do begin
      ReadLn(myFile, strLine);
      // ''101'#9'1'#9'12.03.10'#9'12.43.23'#9'5'#9'6'#9'7'#9'8'#9'9''
      Split(#9,strLine,strListVal);
      if strListVal.Count = 9 then begin
        n := StrToInt(strListVal.Strings[0]) - 100;  // n ist 1
        if (n > 0) and (n <= MAX_TP) then begin
          // save date time
{1}       ar_tppoints[1][n].datetime := strListVal.Strings[2] + ' ' +  
           strListVal.Strings[3];
          ...
        end;
    end;
    CloseFile(myFile);
  end;
  strListVal.Clear;
  FilesList.Free;
end;					

1:
2:
3:
4:

{ FALSCH    for i := 0 to FilesList.Count do begin }
{RICHTIG}
    for i := 0 to FilesList.Count-1 do begin
    AssignFile(myFile, FilesList.Strings[i]);