Построение графика с txt файла (дата, время, параметр)

@Антон 89 · Регистрация: 16.03.2019

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

Здравствуйте. Очень нужна Ваша помощь. Имеется файл txt в нем информация в 3-х столбцах через пробелы (дата время параметр), файл прикрепил и этот файл формируется программой. Необходимо построить график по оси Х дата и время(начало отсчета первая строка этого файла), а конец оси Х последняя строка файла. По оси У параметр из третьего столбца. Огромное спасибо за любую помощь.

@RostorLuxor · 17.03.2019, 21:34

А проблема в парсинге текста или в построении графика? Или и то, и другое?

@ZfoxAK · 18.03.2019, 05:52

95.7z

@Антон 89 · 18.03.2019, 06:38 **[ТС]**

RostorLuxor
Да, в том и другом. Первый опыт создания графиков. Искал конечно сначала на форуме, но не то всё.

@Антон 89 · 18.03.2019, 18:45 **[ТС]**

ZfoxAK,
ОГРОМНОЕ СПАСИБО!!! это то что надо, буду разбираться)))

@Антон 89 · 18.03.2019, 20:13 **[ТС]**

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

@D1973 · 18.03.2019, 20:49

Антон 89, уберите
1. Префикс Vcl.
2. Строку Application.MainFormOnTaskBar
3. В секции uses модуля Unit1 уберите все префиксы Vcl., System., WinApi. и т.д.
4. Перейдите уже на что-то, более актуальное, чем Delphi 7

@Антон 89 · 19.03.2019, 19:13 **[ТС]**

перейти, пока нет возможности на другое, актуальное.
пункты 1-3 помогли, спасибо
Хотел ещё уточнить с программой, но дальше выдается ошибка в этих строках,
TXTData.DisposeOf
SL.StrictDelimiter:=True;
SL.DisposeOf;

ещё что то не хватает...

текст ниже:

Delphi
1
2
3
4
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 TXTData.DisposeOf; // в этой строке
end;

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function TForm1.StringToRecData(AStr: string): TRecData;
var SL:TStringList;
begin
 while Pos('  ', AStr) > 0 do Delete(AStr, Pos('  ', AStr), 1);
 
 SL:= TStringList.Create;
 SL.StrictDelimiter:=True;       // в этой строке
 SL.Delimiter:=' ';
 SL.DelimitedText:=AStr;
 
 Result.LDate:=StrToDateTime(SL.Strings[0] + ' ' + SL.Strings[1]);
 Result.Values:= StrToFloat(SL.Strings[2]);
 
 SL.DisposeOf;                         // в этой строке
end;
 
end.

@D1973 · 19.03.2019, 20:15

Сообщение от Антон 89

ещё что то не хватает...

Новой версии. В Д7 просто нет таких методов для класса TStringList. И если SL.DisposeOf Вы можете безболезненно заменить на SL.Free, то вот такой хорошей штуки, как StrictDelimiter в Дельфи 7 в помине нет, даже аналогов...

@ZfoxAK · 20.03.2019, 04:59

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 FreeAndNil(TXTData);
end;
 
function TForm1.StringToRecData(AStr: string): TRecData;
var SL:TStringList; 
begin
 while Pos('  ', AStr) > 0 do Delete(AStr, Pos('  ', AStr), 1);
 
 SL:= TStringList.Create;
 SL.Delimiter:=' ';
 SL.DelimitedText:=AStr;
 
 Result.LDate:=StrToDateTime(SL.Strings[0] + ' ' + SL.Strings[1]);
 Result.Values:= StrToFloat(SL.Strings[2]);
 
 FreeAndNil(SL);
end;

@Антон 89 · 25.03.2019, 18:55 **[ТС]**

Спасибо большое на помощь!!!, хотел еще спросить, а можно ли посчитать сколько часов и минут прошло (дата, время) от первой до последней строки в txt файле (к примеру от 13.02.2019 15:41:09 до 14.02.2019 10:40:09), через событие на кнопку и вывести на форму в label , txt файл приложил.

@ZfoxAK · 26.03.2019, 04:14

Для работы со временем есть множества процедур и функция здесь представлен список.

@Антон 89 · 09.07.2019, 19:46 **[ТС]**

Здравствуйте. Подскажите как реализовать печать компонента Сhart c графиком и размещенными на нем надписями label (или печать часть экрана с размещением графика Сhart и надписями label). При компиляции и нажатии на отдельную кнопку "Печать" отправлялся на печать график с надписями в альбом виде и на весь лист.

@ZfoxAK · 10.07.2019, 10:11

Delphi
1
Chart1.Print;

@Антон 89 · 10.07.2019, 11:08 **[ТС]**

Но надписи label не будут печататься, они поверх Chart1, как сделать чтобы они печатались...

@ZfoxAK · 11.07.2019, 05:00

Сообщение от Антон 89

Но надписи label не будут печататься, они поверх Chart1, как сделать чтобы они печатались...

Посмотреть варианты в google.ru например Создание скриншотера
Печатать всю форму Form1.print

Новые блоги и статьи Все статьи Все блоги /
Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .	Тестирование в Python: PyTest, Mock и лучшие практики TDD py-thonny 28.04.2025 Тестирование кода играет весомую роль в жизненном цикле разработки программного обеспечения. Для разработчиков Python существует богатый выбор инструментов, позволяющих создавать надёжные и. . .	Работа с PDF в Java с iText Javaican 28.04.2025 Среди всех форматов PDF (Portable Document Format) заслуженно занимает особое место. Этот формат, созданный компанией Adobe, превратился в универсальный стандарт для обмена документами, не зависящий. . .	Динамические массивы в C++ - создание и использование NullReferenced 27.04.2025 Динамические массивы представляют собой один из фундаментальных инструментов программирования на C++, позволяющий создавать структуры данных, размер которых определяется во время выполнения. . .
Асинхронный JavaScript: Промисы, Async/Await и Fetch API Reangularity 27.04.2025 Пользователь заходит на веб-страницу, нажимает кнопку и. . . ничего не происходит. Сайт словно замер. Через несколько секунд всё внезапно оживает, но пользователь уже успел закрыть вкладку. Знакомая. . .	Management on GitLab and repository management in Visual Studio code jigi33 27.04.2025 - repo management on GitLab - CI/ CD in GitLab - VCS repository management in Visual Studio code (see attachments)	Kanban или Scrum - что выбрать? EggHead 27.04.2025 Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .	Кастомные Middleware на C# в ASP.NET Core UnmanagedCoder 27.04.2025 Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .	Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .

@RostorLuxor 144 / 129 / 46 Регистрация: 12.08.2015 Сообщений: 1,203 Записей в блоге: 1
	17.03.2019, 21:34
	А проблема в парсинге текста или в построении графика? Или и то, и другое? 0

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	18.03.2019, 05:52
	95.7z 1

@Антон 89 0 / 0 / 0 Регистрация: 16.03.2019 Сообщений: 15
	18.03.2019, 06:38 [ТС]
	RostorLuxor Да, в том и другом. Первый опыт создания графиков. Искал конечно сначала на форуме, но не то всё. 0

@Антон 89 0 / 0 / 0 Регистрация: 16.03.2019 Сообщений: 15
	18.03.2019, 18:45 [ТС]
	ZfoxAK, ОГРОМНОЕ СПАСИБО!!! это то что надо, буду разбираться))) 0

@Антон 89 0 / 0 / 0 Регистрация: 16.03.2019 Сообщений: 15
	18.03.2019, 20:13 [ТС]
	Спасибо за программу еще раз, но хотел уточнить. Программу не могу закомпилировать из Делфи, через ехе запускается, не хватает файла пишет (скриншот прилагается)... Миниатюры 0

@D1973 Модератор 9789 / 6339 / 2444 Регистрация: 21.01.2014 Сообщений: 27,005 Записей в блоге: 3
	18.03.2019, 20:49
	Антон 89, уберите 1. Префикс Vcl. 2. Строку Application.MainFormOnTaskBar 3. В секции uses модуля Unit1 уберите все префиксы Vcl., System., WinApi. и т.д. 4. Перейдите уже на что-то, более актуальное, чем Delphi 7 1

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	26.03.2019, 04:14
	Для работы со временем есть множества процедур и функция здесь представлен список. 0

@Антон 89 0 / 0 / 0 Регистрация: 16.03.2019 Сообщений: 15
	09.07.2019, 19:46 [ТС]
	Здравствуйте. Подскажите как реализовать печать компонента Сhart c графиком и размещенными на нем надписями label (или печать часть экрана с размещением графика Сhart и надписями label). При компиляции и нажатии на отдельную кнопку "Печать" отправлялся на печать график с надписями в альбом виде и на весь лист. Миниатюры 0

@Антон 89 0 / 0 / 0 Регистрация: 16.03.2019 Сообщений: 15
	10.07.2019, 11:08 [ТС]
	Но надписи label не будут печататься, они поверх Chart1, как сделать чтобы они печатались... 0