Вопрос по работе с таблицей

@PUZIKO777 · Регистрация: 24.04.2011

Author24 — интернет-сервис помощи студентам

Такой вот вопрос.
Мне нужно поставить условие.. Если группа бюджетная, то итоговая сумма часов записывается в ячейку "Итог по бюджетным группам", если же группа внебюджетная, то итог заисывается в соответствующую ячейку. Таблица отображается в Делфи7.

@Zaxelf · 25.04.2011, 02:38

Вот как-то так:

Delphi

type Tgroup=class
private
Fb:bool;
public
property budget: bool read fb write fb default false; // бюджетная или нет, по умолчанию нет
procedure writetocell(c: Tstringgrid);
end;
procedure Tgroup.writetocell;
begin
if budget=true then c.Cells[1,1]:='"Итог по бюджетным группам"';
if not budget=true then c.Cells[1,1]:='"Итог"';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var g: Tgroup;
begin
g:=Tgroup.Create;
g.budget:=true;
g.writetocell(StringGrid1);
end;

@PUZIKO777 0 / 0 / 0 Регистрация: 24.04.2011 Сообщений: 3
		1
	Вопрос по работе с таблицей 24.04.2011, 09:01. Показов 1084. Ответов 1 Метки нет (Все метки) Такой вот вопрос. Мне нужно поставить условие.. Если группа бюджетная, то итоговая сумма часов записывается в ячейку "Итог по бюджетным группам", если же группа внебюджетная, то итог заисывается в соответствующую ячейку. Таблица отображается в Делфи7. 0

	25.04.2011, 02:38

Вопрос по работе с таблицей

Решение