Создание графика по данным из блокнота

[druid777]

с кодом все понятно) вроде)) но почему при компиляции вылазит ошибка:
[Fatal Error] Project1.dpr(5): File not found: 'Vcl.Forms.dcu'

[Kix.IV]

Сообщение от druid777

с кодом все понятно) вроде)) но почему при компиляции вылазит ошибка:
[Fatal Error] Project1.dpr(5): File not found: 'Vcl.Forms.dcu'

Видимо у автора кода новая версия Delphi. Попробуйте заменить Vcl.Forms на Forms.

[druid777]

Спасибо огромное))) )Вопрос решен))) тему можно закрыть)

[druid777]

привет всем еще раз)
необходимо добавить еще одну диаграмму на этот же график...
но данные должны поступать из другого текстового файла. объясните принцип пожалуйста))

[Sibedir]

Принцип уже заложен в моем примере решения. Таким образом можно начертить хоть 1000 графиков. Разберитесь, что делает предложенный код по каждой строске (что она делает) и добавте новай грофик по аналогии.

[druid777]

Сообщение от Sibedir

Принцип уже заложен в моем примере решения. Таким образом можно начертить хоть 1000 графиков. Разберитесь, что делает предложенный код по каждой строске (что она делает) и добавте новый грофик по аналогии.

перепробовал много вариантов((
1. сначала тупо копирнул весь код и вставил... новый график перерисовывается поверх старого.
2. попробывал сформировать новый массив... но на картинке получается 5 параллельных линий и все.
3. и еще перебрал различные варианты( но получается бред(

подскажите какой кусок кода нужно изменить, чтобы у меня данные не дублировались.... а по завершению подсчета одного графика переходили на обработку след. информации

[Sibedir]

сначала тупо копирнул весь код и вставил ...

У вас не работает, потомучто не нужно тупо копирить
-------------------------------------------------------------------------------

... новый график перерисовывается поверх старого.
2. попробывал сформировать новый массив... но на картинке получается 5 параллельных линий и все.
3. и еще перебрал различные варианты( но получается бред(

Код в студию
-------------------------------------------------------------------------------
Немножко подправил и закоментарил

// Рисуем на PaintBox
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  i, x, y: Integer;

  // Переводим данные в координаты графика
  procedure SetXY (AX: Integer; AY: Real);
  begin
    x := 30 + AX*10;
    y := 150 - Round (AY*100);
  end;

begin
  if FCount1 = 0 then Exit;

  with PaintBox1.Canvas do begin
    // Рисуем оси
    Pen.Color := clBlack;
    Pen.Width := 3;
    MoveTo (30, 30);
    LineTo (30, 150);
    LineTo (270, 150);

    // Рисуем график по данным из FArray1
    Pen.Color := clRed;
    Pen.Width := 1;
    SetXY (0, FArray1[0]);
    MoveTo (x, y);             // Установили карандаш в первую точку
    for i := 1 to 24 do begin
      SetXY (i, FArray1[i]);
      LineTo (x, y);           // Передвигаем карандаш в следующую точку
    end;
  end;
end;

// Заполеяем массив данных
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, h, b, e, p: Integer;
  s: string;
begin
  // Обнуляем старые данные
  for i := 0 to 24 do FArray1[i] := 0;

  // Заполняем новые данные
  h := Memo1.Lines.Count - 1;                        // номер последнего элемента ИД (опрашиваемого)
  FCount1 := h + 1;                                  // кол-во опрашиваемых
  for i := 0 to h do begin
    s := Memo1.Lines.Strings[i];                     // читаем стоку
    p := Pos ('-', s);                               // ищем позицию '-'
    b := StrToInt (Copy(s,1,p-1));                   // начало интервала
    e := StrToInt (Copy(s,p+1,Length(s)-p));         // конец интервала
    for j := b to e do FArray1[j] := FArray1[j] + 1; // увеличиваем соответствующие элементы массива
  end;

  // Масштабируем новые данные
  for i := 0 to 24 do
    FArray1[i] := FArray1[i] / FCount1;

  // Перерисовка формы
  Repaint;
end;

[druid777]

и снова вопросы((
Судя по задачи, для отрисовки графика необходимо в делфи создать 2ву мерный массив.. Для того что бы была возможность рисовать 2 и более графика.... помогите плиз)

[druid777]

подскажите плиз))