IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> График Chart
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 46
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Подскажите пожалуйсто как пользоваться графиком Chart.
И возможно ли связать StringGrid с этим графиком.
Если можно то напишите хотябы примерно как это зделать!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


И так скажу сразу Твой подход очень НЕ хороший.
1. Ты вызываеш
Form6.Show;
Хотя отрисовку графика навешал на Create
И вообще что за???
procedure Create
Удали ее!
Сделай так на событие TForm6.FormShow
var
Bez:Real;
j:integer;
begin
Chart1.Visible := true;
Chart1.Series[0].Clear;
bez := 0;
for j := 1 to Form1.StringGrid1.RowCount-1 do
begin
if not(Length(Form1.StringGrid1.Cells[7,j]) = 0) then //Если ячейка не пуста
bez := bez + StrToFloat(Form1.StringGrid1.Cells[7,j]);//подсчитываем сумму элементов
end;
Chart1.Series[0].AddXY(1,bez,' ',clRed);//Выводим один столбец с суммой


2.1. В форме 2 переменная
stoimost:integer
Как Ты хочеш занести в нее дорби???
Смени на real.
2.2 В тойже форме советую на LabeledEdit3 навешать событие
procedure TForm2.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
var
Not_DESIMAL : string;
begin
if DecimalSeparator = ',' then
Not_DESIMAL := '.'
else
Not_DESIMAL := ',';

if Key = Not_DESIMAL then
Key := DecimalSeparator;
if ((Key in ['0' .. '9']))OR(Key = DecimalSeparator) then begin
if (Key = DecimalSeparator) AND (Pos(DecimalSeparator,(Sender AS TLabeledEdit).Text) > 0) then begin
Key := Chr(0);
end;
end else if (Key=Chr(VK_RETURN))OR (Key=Chr(VK_BACK)) then begin

end
else Key := Chr(0);
end;

Тогда пользователь не сможет вводить в это поле ничего кроме цыфр, а разделитель будет ставится автоматически такой, кокой стоит в системе пользователя. И такой же код сделай на остальные TLabeledEdit в которых не должно быть букв, напр. кол. покупок
begin
if not(Key in ['0' .. '9']) then begin
Key := Chr(0);
end;
end else if (Key=Chr(VK_RETURN))OR (Key=Chr(VK_BACK)) then begin
end
else Key := Chr(0);
end;

3. Измени вид графика из Line на Bar и убери 3D.
P.S. Само решение проблемы мне не понравилось no1.gif , при первом запуске уже номер записи = 5, после ввода 1-ой записи появилась куча строк зачем??? wacko.gif а номер записи уже 6??? Позволяет редактировать если выбрать пустую строку и тд и тп. Но это не мое дело. Чем смог, тем помог. Работы у Тебя еще много yes2.gif , так что дерзай smile.gif
P.S.S. Сперва реши проблему с вводом чисел, а потом решай проблему сохранения в файл.

Сообщение отредактировано: Reptile -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 46
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Спасибо чел! п насчет сохронения фалов я знаю! раньше все работало а щас глюк какойто! stoimost
я описал как integer ради эксперемента! все остальное учту! спасибо!

Сообщение отредактировано: Mr.Dmitry -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Mr.Dmitry   График Chart   8.11.2006 2:34
Reptile   Береш в цикле значения из StringGrid и вставляеш …   8.11.2006 14:25
Mr.Dmitry   Вот как я пытался написать Chart1.Series[0…   8.11.2006 19:59
Reptile   Ты не правильно настроил Chart, а точнее выбрал не…   8.11.2006 22:59
Mr.Dmitry   Ты не правильно настроил Chart, а точнее выбрал н…   9.11.2006 1:12
Reptile   И не будет :cool: В Form1.StringGrid1.Cells[…   9.11.2006 14:26
Mr.Dmitry   И не будет :cool: В Form1.StringGrid1.Cells[…   9.11.2006 19:19
Reptile   Наверное вылазиш за пределы StringGrid. Покажы вс…   9.11.2006 19:33
мисс_граффити   Проект прерван с сообщением "' не являет…   9.11.2006 22:29
Reptile   Вот: unit Unit1; interface uses Windows, Mess…   9.11.2006 23:03
мисс_граффити   P.S. Дробные числа должны быть через запятую …   9.11.2006 23:22
Mr.Dmitry   короч вот что в стрингриде: i:=i+1; Kol…   12.11.2006 1:39
Reptile   мисс_граффити, спасибо за поправку :give_rose:   9.11.2006 23:37
Reptile   Вообще не знаю как Ты хотел чтобы этот код работал…   13.11.2006 15:09
volvo   вообще-то лучше сделать вот так: for j := 1 to Str…   13.11.2006 16:04
Mr.Dmitry   Все равно не рабоатет ((( Project Project1.exe ra…   13.11.2006 16:30
volvo   Скриншот, в котором видно StringGrid с данными, вы…   13.11.2006 16:35
Mr.Dmitry   Скриншот, в котором видно StringGrid с данными, в…   13.11.2006 23:46
volvo   Да не интересует меня полностью проект! Я прос…   14.11.2006 1:58
Mr.Dmitry   Да не интересует меня полностью проект! Я про…   14.11.2006 18:19
Reptile   Сбрось мне проект на мыло.   14.11.2006 19:52
Reptile   И так скажу сразу Твой подход очень НЕ хороший. 1.…   15.11.2006 16:52
Mr.Dmitry   Спасибо чел! п насчет сохронения фалов я знаю…   15.11.2006 21:24


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 15:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name