[Дмитрий Стариков]

Все намного проще (на мой взгляд) .. Длинна массивов 500 и не меняется. Значения только положительные, я нашел более простое решение, но возникла другая проблема.. поможете решить??

Код:

procedure TFmEURUSD.ButLoadKotChasYesClick(Sender: TObject);
begin
AssignFile(SaveChasKot,'D:\sim\Программирование\Delhpi\Проект\Основная\EUR_USD_Chas_Kot.txt');
 
 Reset(SaveChasKot);
while not Eof(SaveChasKot) do  //читаем из файла....
  begin
    read(SaveChasKot,KotChas[i]);
    Inc(i);
  end;
  CloseFile(SaveChasKot);
 
 ImChas.Canvas.MoveTo(intVrChas[1], 500-KotChas[1]);
for i:=1 to length(intVrChas)-1 do
begin
ImChas.Visible:=True;
 Canvas.Pen.Color:=ClRed;
ImChas.Canvas.LineTo(intVrChas[i], 500-KotChas[i]);
end;
procedure TFmEURUSD.ButLoadInrVrChasYesClick(Sender: TObject);
begin
AssignFile(SaveIntVrChas,'D:\sim\Программирование\Delhpi\Проект\Основная\EUR_USD_Chas_IntVr.txt');
 
 Reset(SaveIntVrChas);
while not Eof(SaveIntVrChas) do  //читаем из файла....
  begin
    read(SaveIntVrChas,intVrChas[i]);
    Inc(i);
end;
  CloseFile(SaveIntVrChas);
  z:=IntVrChas[1];
 
 
 // Для проверки
 
  Edit2.Text:=IntToStr(intVrChas[1]);
  Edit3.Text:=IntToStr(intVrChas[2]);
  Edit4.Text:=IntToStr(intVrChas[3]);
  end;

Admin: Пользуемся тегами!

Почему- то вторая процедура не выполняется, при чем вне зависимости от очередности, т.е. если начать со второй - она работает, но не работает первая... только при повторных кликах, и, почему-то рисует черным?????

Подскажите, что я не так делаю???