|
#1
|
||||
|
||||
число
Есть такой код:
Код:
a1 := StrToInt(StringReplace(Edit1.Text,',','.',[])); b1 := StrToInt(StringReplace(Edit2.Text,',','.',[])); c1 := StrToInt(StringReplace(Edit3.Text,',','.',[])); d1 := StrToInt(StringReplace(Edit4.Text,',','.',[])); k1 := (a1 + b1 + c1 + d1); //количество оценок if k1<>0 then f1 := (2 * a1 + 3 * b1 + 4 * c1 + 5 * d1)/k1; //расчет str:=FloatToStrF(f1,ffFixed,1,1); if Pos(',',str)<>0 then str[Pos(',',str)]:='.'; label7.Caption:=str; |
#2
|
||||
|
||||
Код:
if str='0.0' then str:='0'; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#3
|
||||
|
||||
А куда мне это в моем коде вписать?)
|
#4
|
||||
|
||||
Перед
Код:
label7.Caption:=str; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#5
|
||||
|
||||
Это код, который складывает по вертикали ячейки в StringGrid:
Код:
for i:=1 to 25 do begin if (SG3.Cells[2,i]=' ') or (SG3.Cells[8,i]=' ') or (SG3.cells[14,i]=' ') or (SG3.cells[20,i]=' ') then SG3.cells[26,i]:='0' else begin try summ:=(StrToFloat(SG3.Cells[2,i])+StrToFloat(SG3.cells[8,i])+ StrToFloat(SG3.cells[14,i])+ StrTofloat(SG3.cells[20,i]))/4; SG3.Cells[26,i]:=FloatToStrF(summ,ffFixed,1,1); if SG3.Cells[26,i]='0.0' then SG3.Cells[26,i]:='0'; except SG3.Cells[26,i]:='0.0'; end; end; end; |
#6
|
||||
|
||||
Проверять что введено в нужной ячейке.
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#7
|
||||
|
||||
Цитата:
|
#8
|
||||
|
||||
Код:
if StringGrid.Cells[x, y] = '' then StringGrid.Cells[x, y]:='0'; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#9
|
||||
|
||||
The Shadow, вы немного меня неправильно поняли). Я может не очень правильно написал). Виноват если что. Мне надо вот что: надо чтобы тот код который я привел выше работал так, что если у меня на первой форме нет данных (то есть пусто), то в таблице бы ничего не появлялось, а расчет производился бы только по известным данным. А то сейчас он не считает если не ввожу нули с основной формы. Программа выдает ошибку: " ' ' is not valid floating point value"( Вроде бы и try..except использовал, но все равно мне пока не помогло решить эту проблема эта конструкция((. Может у вас есть какие идеи?
|
#10
|
||||
|
||||
Код:
if StringGrid.Cells[x, y] <> '' then //Ячейка не пустая Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |