Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Дата и время на оси Х в Сhart ? [D6, XP]

Федя © (2006-03-20 09:50:00)
У меня таблица: 19.03.2006 17:37:28 89.5 85.75 53.5
19.03.2006 17:38:28 89.75 85.75 54.5 и т.д. Как в Сhart завести дату и время на гор. ось? Или хотя бы только время? Благодарю.

Федя (2006-03-21 20:18:00) [1]
У меня таблица: 19.03.2006 17:37:28 89.5 85.75 53.5
19.03.2006 17:38:28 89.75 85.75 54.5 и т.д. Как в Сhart завести дату и время на гор. ось? Или хотя бы только время? Благодарю.
Как строку времени 17:37:28 запустить на ось Х ?

var
F: TextFile;
StrBuf1: String[11]; //это я хочу отделить дату "19.03.2006 "
StrBuf2: String[8]; //тут - отделяю время "17:37:28"
a,b,c:real;
t:TDateTime;
begin
DecimalSeparator := '.';
AssignFile(f,c:/1.txt');
Reset(f);
t:= StrToTime(StrBuf2); // - вот тут выскакивает ошибка! ------------
while not EOF(f) do begin
readln(f ,StrBuf1,StrBuf2, a,b,c);
series1.AddXY(t, a,'',clblue);
series2.AddXY(t, b,'',clgreen);
series3.AddXY(t, c,'',clred);
end;
CloseFile(f);
end;
Что я не так делаю?

Федя (2006-03-20 16:03:00) [2]
Как строку времени 17:37:28 запустить на ось Х ?

var
F: TextFile;
StrBuf1: String[11]; //это я хочу отделить дату "19.03.2006 "
StrBuf2: String[8]; //тут - отделяю время "17:37:28"
a,b,c:real;
t:TDateTime;
begin
DecimalSeparator := '.';
AssignFile(f,c:/1.txt');
Reset(f);
t:= StrToTime(StrBuf2); // - вот тут выскакивает ошибка! ------------
while not EOF(f) do begin
readln(f ,StrBuf1,StrBuf2, a,b,c);
series1.AddXY(t, a,'',clblue);
series2.AddXY(t, b,'',clgreen);
series3.AddXY(t, c,'',clred);
end;
CloseFile(f);
end;

zorik (2006-03-20 11:36:00) [3]
В свойствах Chart'а закладка Series/General включить опцию HorizontalAxis/DateTime если я правильно понял вопрос :-)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »