Как записать в массив время нажатия, отжатия клавиш

[Berta]

Добрый день! Мне необходимо зафиксировать и записать в массив время нажатия и отжатия клавиш при наборе слова. Время програмка фиксирует и записывает в текстовый файл, а потом оттуда в массив, но при том условии если при нажатии клавиш нет перекрытия во времени! Теперь проблема как сделать так что-бы и при перекрытии время записывалось в массив...

Ну например, если без перекрытия писать "23", то массив запишется, как
0 4
6 9
(0;6 - время нажатия, 4;9 - время отжатия ) с этим все ОК.

А с перекрытия запишет в файл так(естественно и масив запишется коряво)
0 4 6
9
(0;4 - время нажатия (нажимаю "2" и удерживая нажимаю "3"))
6;9 - время отжатия (отпускаю "2" а потом "3")
Т.е. в идеале нужно чтоб записалось
0 6
4 9
В этом и проблема не знаю как это сделать....

Заранее всем кто откликнится огромное спасибо)))

procedure TForm2.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
 var
   vremup: array[1..14] of word;
 begin
   n:=1;
   Timer3.Enabled := True;
   Qi := '9.txt';
   AssignFile(A, Qi);
   append(A);
     for m:=1 to Length(edit1.text) do
       begin
         if  Length(edit1.text)=n then
           Timer3.Enabled := True
              else
                Timer3.Enabled := False;
                n:=n+1;
           vremup[i]:=StrToInt(label22.Caption)+StrToInt(label15.Caption)*100; 
//Запись временного интервала между нажатий клавишь в массив
            for i := 0 to Length(edit1.text) do
        end;
    writeln(A,inttostr(vremup[i]));//Запись в файл
    CloseFile(A);
  end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: word ;
  Shift: TShiftState);
   var
      vremdown: array[1..14] of integer;
   begin
      n:=1;
      Timer3.Enabled := True;
      Qi := '9.txt';
      AssignFile(A, Qi);
      append(A);
        for m:=1 to Length(edit1.text) do
          begin
             if  Length(edit1.text)=n then
                Timer3.Enabled := True
                   else
                     Timer3.Enabled := False;
                     n:=n+1;
      vremdown[i]:=StrToInt(label22.Caption)+StrToInt(label15.Caption)*100; 
//Запись временного интервала между нажатий клавишь в массив
                    for i := 0 to Length(edit1.text) do
          end;
       write(A,inttostr(vremdown[i]),' ');//Запись в файл
       CloseFile(A);
    end;

procedure TForm2.Button5Click(Sender: TObject);
var
 v:integer;
  rez: array[1..14, 1..2] of integer;
  raz: array[1..14] of integer;
  sumr:integer;
  ai: integer;
  sumr1:real;
  g,o1,o2,o3:integer;
  sumr2:real;
  ot:integer;
begin
  sumr:=0;
  ot:=0;
  Qi := '9.txt';
  AssignFile(A, Qi);
  reset(A);
  n:=length(edit1.text);
  //записываемв в матрицу время нажатия и время отжатия клавиш
    for i:=1 to n do
    for r:=1 to 2 do
     begin
      read(A,v);
      rez[i, r]:=v;
         if rez[i, r+1]>rez[i+1, r] then
           begin
             ot:=ot+1;
           end;
      raz[i]:= rez[i, 2]-rez[i, 1]; //разность между временем отжатия и нажатия клавиши
     end;    
    for i:= 1 to n do
    sumr:=sumr+raz[i]; //сумма разности времени нажатия и отжатия
    sumr2:=sumr*1/20*1/60; //перевод в минуты
    sumr1:=round(length(edit1.text)/sumr2);//скорость ввода символов
    CloseFile(A);
end.

[evg_m]

а если написать в файл так

Ну например, если без перекрытия писать "23", то массив запишется, как
0 4
6 9
(0;6 - время нажатия, 4;9 - время отжатия ) с этим все ОК.

0 +
4 -
6 +
9 -

А с перекрытия запишет в файл так(естественно и масив запишется коряво)
0 4 6
9
(0;4 - время нажатия (нажимаю "2" и удерживая нажимаю "3"))
6;9 - время отжатия (отпускаю "2" а потом "3")

0 +
4 +
6 -
9 -

[Berta]

а если написать в файл так

А как тогда потом из текстового файла сформировать необходимый массив(а главная задача именно это) т.е [i,j] - где i - время нажатия, j-время отжатия...

если при простом вводе все понятно, то как быть с перекрытием?
как вообще прописать чтоб понять, что при
0 +
4 +
6 -
9 -
это правильное соотношение:
0 - 6???
4 - 9???

Или может я не совсем правильно вас поняла?

[evg_m]

А как тогда потом из текстового файла сформировать необходимый массив(

а какой массив будет правильным (какие к нему требования)?

если данных недостаточно для определения значит надо их добавить
как мы добавили нажали(+)/отпустили(-)

[Berta]

если данных недостаточно для определения значит надо их добавить
как мы добавили нажали(+)/отпустили(-)

хм... кажется поняла))) Попробую, отпишусь...