Вертикальная гистограмма

@wildfires · Регистрация: 09.01.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте, мне нужно построить вертикальную гистограмму с количество симолов в строке текстового файла. Я погуглил и нашел, что это можно сделать с помощью компонента Crart.

C++
1
Series1->Add(l,"Параметр 1",clRed);

У меня уже есть часть программы с помощью которой считаем количество символов в каждой строке:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
int _Length(AnsiString str)
{
  int l = 0;
  for(int i = 0; i < str.Length(); i++)
    if(str[i + 1] != ' ')
      l++;
  return l;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
  TStringList *list = new TStringList;
  list->LoadFromFile("D:\\text.txt");
  for(int i = 0; i < list->Count; i++)
      Memo1->Lines->Add("Длина строки " +
    IntToStr(i + 1) + " : " + IntToStr(_Length(list->Strings[i])));
     
 
}

Как ее обьяденить с Series ?

Добавлено через 18 минут
Впринципе я понял, сделал вот так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 int _Length(AnsiString str)
{
  int l = 0;
  for(int i = 0; i < str.Length(); i++)
    if(str[i + 1] != ' ')
      l++;
  return l;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *list = new TStringList;
  list->LoadFromFile("D:\\text.txt");
  for(int i = 0; i < list->Count; i++)
   Series1->Add((_Length(list->Strings[i])),i+1,clRed);
 
}

Только теперь не знаю как сделать вывод графика и текста в memo в одном цикле и как сделать графики разного цвета ?

@Sergey-K · 27.02.2012, 01:16

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
int _Length(AnsiString str)
{
  int l = 0;
  for(int i = 0; i < str.Length(); i++)
    if(str[i + 1] != ' ')
      l++;
  return l;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
  TStringList *list = new TStringList;
  list->LoadFromFile("D:\\text.txt");
  for(int i = 0; i < list->Count; i++)
    {
      Memo1->Lines->Add("Длина строки " + IntToStr(i + 1) + " : " + IntToStr(_Length(list->Strings[i])));
      Series1->Add(_Length(list->Strings[i]), "Строка " + IntToStr(i + 1), clRed);
    }
}

cpp_developer · 27.02.2012, 01:16

Комментарий модератора

wildfires, Правила

п.3.4. Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также дублировать тему в одном разделе.

Если у вас есть дополнение к уже созданной теме, найдите эту свою тему и сделайте это дополнение.
Ваша аналогичная тема: https://www.cyberforum.ru/cpp-... 52895.html
Устное предупреждение.

@Sergey-K · 27.02.2012, 01:51

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

как сделать графики разного цвета ?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *list = new TStringList;
  list->LoadFromFile("D:\\text.txt");
  TColor Color[5] = {clGreen, clRed, clYellow, clBlue, clWhite};
  int c = 0;
  for(int i = 0; i < list->Count; i++)
    {
      Series1->Add(_Length(list->Strings[i]), "Строка " + IntToStr(i + 1), Color[c++]);
      if(c > 4)
        c = 0;
    }
  delete list;
}

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ