Цикл на вычисление в StringGrid

[armrock]

УХХХ!!!!!!!!!! ЗАРАБОТАЛО!!!!!!!! НАДО СРОЧНО СПАТЬ!!!!!!!!!!


А со вторым вопрос поможешь!???

У тебя от этого ничего не зависит. Не важно вообще где у тебя расположен курсор.

Я понимаю что это тупо но когда перехожу на другие ячейки не считает а на первых считает!

[Базиля]

Значения ячеек задаешь программно? Или прописываешь вручную в самом стринггриде?

Я понимаю что это тупо но когда перехожу на другие ячейки не считает а на первых считает!

Скинь проект, хочу посмотреть на это

[armrock]

Значение в stringgrid у меня переносяться из базы данных, подключённой через ADOTable, вот код переноса...может сдесь что не так??:

procedure TForm4.BitBtn2Click(Sender: TObject);
var
     i,j: Integer;
begin
      StringGrid1.Cells[0,0]:='Таб номер №';
      StringGrid1.Cells[1,0]:='Фамилия';
      StringGrid1.Cells[2,0]:='Имя';
      StringGrid1.Cells[3,0]:='Отчество';
      StringGrid1.Cells[4,0]:='Часы';
      StringGrid1.Cells[5,0]:='Тариф, руб.';
      StringGrid1.Cells[6,0]:='Налог, %';
      StringGrid1.Cells[7,0]:='Зарплата, руб.';
begin
   j := 1;
   Form1.DBGrid1.DataSource.DataSet.First;
   while not Form1.DBGrid1.DataSource.DataSet.Eof do
   begin
   for i := 0 to Form1.DBGrid1.Columns.Count - 1 do
    begin
    StringGrid1.Cells[i, j] :=Form1.DBGrid1.DataSource.DataSet.Fields[i].
              AsString;
    end;
    Inc(j);
    Form1.DBGrid1.DataSource.DataSet.Next;
    end;
    stringgrid1.rowcount:=Form1.DBGrid1.DataSource.DataSet.RecNo+1;
    end;
    end;

[Базиля]

Начинай понемногу отвыкать ставить лишние оператные скобки

procedure TForm4.BitBtn2Click(Sender: TObject);
var
     i,j: Integer;
begin
      StringGrid1.Cells[0,0]:='Таб номер №';
      StringGrid1.Cells[1,0]:='Фамилия';
      StringGrid1.Cells[2,0]:='Имя';
      StringGrid1.Cells[3,0]:='Отчество';
      StringGrid1.Cells[4,0]:='Часы';
      StringGrid1.Cells[5,0]:='Тариф, руб.';
      StringGrid1.Cells[6,0]:='Налог, %';
      StringGrid1.Cells[7,0]:='Зарплата, руб.';
begin // вот здесь))
   j := 1;
   Form1.DBGrid1.DataSource.DataSet.First;
   while not Form1.DBGrid1.DataSource.DataSet.Eof do
   begin
   for i := 0 to Form1.DBGrid1.Columns.Count - 1 do
    begin
    StringGrid1.Cells[i, j] :=Form1.DBGrid1.DataSource.DataSet.Fields[i].
              AsString;
    end;
    Inc(j);
    Form1.DBGrid1.DataSource.DataSet.Next;
    end;
    stringgrid1.rowcount:=Form1.DBGrid1.DataSource.DataSet.RecNo+1;
    end;
    end;

То что я выделил.... как это понимать?
Компилятор не жалуется ?
Это код одной процедуры?

[armrock]

Компилятор не жалуеться....одна процедура!=))) А выделения никакого не вижу!

[Базиля]

Насчет курсора в стринггриде, его можно убрать - сделать компонент не активным (свойство enabled), но тогда ты не сможешь редактировать содержимое ячеек на форме через сам компонент.
P.S. Уже ниче не соображаю, что-то переклинило мальца xD Все впоряде, но отучайся ставить лишние begin и end, плохая манера

[armrock]

Спасибо, помогло, насчёт курсора, а редактировать мне и не нужно!!!
НА счёт процедуры "переноса и всего остального" я тоже незнаю, но вроде нормально работает...


Спасибо огромное за помощь и за советы!!! Ты давно программированием занимаешься?

[Базиля]

armrock
Рад был помочь
Из-за уважения к модераторм, предалагю перевести беседу не по теме в аську, стучи - пообщаемся

[armrock]

ОК ! Спасибо ещё раз!

[IliaIT]

кстати у базилия лишняя скобка закрывающая в коде была потому и ругался наверное дельфи

 if (StringGrid1.Cells [4,i]='') or (StringGrid1.Cells [5,i]='')  or  (StringGrid1.Cells [6,i])='') then

а вообще проще использовать TryStrToFloat(StringGrid1.Cells [4,i],a) он сразу вернёт false если не число и заполнит переменную если всё нормально.

хотя уже поздно всё и так решили. но как вариант.