Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2014, 18:23   #11
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию

код программы больше 500 строк)
Nightway вне форума Ответить с цитированием
Старый 13.05.2014, 20:30   #12
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

А выпилить нужный код в тестовый проект не судьба?
doktor255 вне форума Ответить с цитированием
Старый 13.05.2014, 20:40   #13
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
код программы больше 500 строк)
Да ну не весь же... Только часть отвечающую за отрисовку.
И потом - можно в архив проект кинуть и прикрепить к теме.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.05.2014, 20:48   #14
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию

я же кидал
Nightway вне форума Ответить с цитированием
Старый 13.05.2014, 20:52   #15
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

Дык и Stilet тебе помогал. Будем рассуждать, кто что кому давал, или займёмся делом? Если рассуждать, то я прохожу мимо.
Цитата:
Значит к StrToFloat(Strngrd3.Cells[0,i]) прибавляй там же в параметре смещение нужное
Цитата:
я пробовал,тогда ругается когда пытаюсь график построить
А код своей пробы ты пробовал показать? Складывается ощущение, что ты сам не хочешь чтоб тебе помогали.

Последний раз редактировалось doktor255; 13.05.2014 в 20:54.
doktor255 вне форума Ответить с цитированием
Старый 13.05.2014, 21:00   #16
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию

Код:
procedure TForm1.btn1Click(Sender: TObject);
var i:longint;max:Real;
begin
pntsrsSeries1.Clear;
for i:=1 to Strngrd3.RowCount-1 do
pntsrsSeries1.AddXY(StrToFloat(Strngrd3.Cells[0,i+20]),
StrToFloat(Strngrd3.Cells[1,i]),'',clRed);

begin
  with strngrd3 do
begin
   rowcount:=100;
  colcount:=6;
  for i:=1 to 100 do
  for j:=1 to 100 do
  cells [i,j]:=floattostrf(ss[i,j],fffixed,5,4);
  strngrd3.rowcount := strngrd3.rowcount + 1;
  for i := 1 to strngrd3.colcount - 1 Do
    strngrd3.cells[i, strngrd3.rowcount - 1] := floatToStr(0);
  strngrd3.MoveRow(strngrd3.rowcount - 1, 1);
  for i := 0 to strngrd3.rowcount - 1 Do
    strngrd3.cells[0, i] := IntToStr(i);
Nightway вне форума Ответить с цитированием
Старый 13.05.2014, 21:03   #17
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

Ну я так и предполагал.
Код:
pntsrsSeries1.AddXY(StrToFloat(Strngrd3.Cells[0,i]) + 20,
StrToFloat(Strngrd3.Cells[1,i]),'',clRed);
doktor255 вне форума Ответить с цитированием
Старый 13.05.2014, 21:07   #18
Nightway
Пользователь
 
Регистрация: 18.05.2013
Сообщений: 57
По умолчанию

Цитата:
Сообщение от doktor255 Посмотреть сообщение
Ну я так и предполагал.
Код:
pntsrsSeries1.AddXY(StrToFloat(Strngrd3.Cells[0,i]) + 20,
StrToFloat(Strngrd3.Cells[1,i]),'',clRed);
опа!спасибо)а как сделать чтобы было с эдита число было?я пробовал на разному,на несовместимость типов данных ругается
Nightway вне форума Ответить с цитированием
Старый 13.05.2014, 21:11   #19
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

Жесть у тебя проблемы. Я в шоке. Есть волшебная функция. Имя ей StrToInt.
doktor255 вне форума Ответить с цитированием
Старый 13.05.2014, 21:51   #20
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Nightway
Майн гот... Ну ты хоть слушай что тебе говорят.
Код:
var x,y:double;
...
for i:=1 to Strngrd3.RowCount-1 do begin
 if TryStrToFloat(Strngrd3.Cells[0,i+20],x) and TryStrToFloat(Strngrd3.Cells[1,i],y) then
   pntsrsSeries1.AddXY(x,y,'',clRed) else begin
 ShowMessage('Не виноватая я, он сам пришел!');
end;
end;
И учти - если у тебя в винде разделитель вещественных точка, значит точку и ставь в числах в гриде. Если там просто целочисленные то и так сойдет.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Редактирование графика Nightway Общие вопросы Delphi 1 23.04.2014 15:46
Автоматическое изменение графика при переносе данных, формулы и графика на другой лист REztor Microsoft Office Excel 0 01.06.2013 18:01
Редактирование ken_ukeng Помощь студентам 1 06.01.2013 21:09
Редактирование Valera24 Помощь студентам 9 11.06.2009 19:41
Редактирование AntiZero Помощь студентам 2 12.11.2007 18:02