объединил два скрипта с одинаковым событием...Form3_TableGrid1_OnChange
//1 скрипт красит шрифт в красный если...отрицательное веществ.число...
procedure Form3_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
s: string;
begin
c := Form3.TableGrid1.RowCount - 1;
for i := 0 to c do begin s := Form3.TableGrid1.Cells[10,i];
if ValidFloat(s) then if StrToFloat(s) < 0 then Form3.TableGrid1.Cell[10,i].TextColor := clRed
end;
end;
//2 скрипт: красит ячейку в зависимости от содержимого...цифра 3 колонка таблицы( id-не считается)
procedure Form3_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form3.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
// if Form3.TableGrid1.Cells[3,i] = 'Yes' - красит зелным....если 'Да' красит красным
if Form3.TableGrid1.Cells[3,i] = 'Real' then Form3.TableGrid1.Cell[3,i].Color := clSilver
else Form3.TableGrid1.Cell[3,i].Color := clYellow;
end;
end;
//объединил два скрипта с одинаковым событием...Form3_TableGrid1_OnChange
procedure Form3_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
s: string;
begin
c := Form3.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
s := Form3.TableGrid1.Cells[10,i];
if ValidInt(s) then
if StrToFloat(s) < 0 then Form3.TableGrid1.Cell[10,i].TextColor := clRed
if Form3.TableGrid1.Cells[3,i] = 'Real'
then Form3.TableGrid1.Cell[3,i].Color := clSilver;
else Form3.TableGrid1.Cell[3,i].Color := clYellow;
end;
end;
ругается на 5 строчку снизу (if Form3.TableGrid1.Cells[3,i] = 'Real')
Вопрос:
1. что исправить надо?
2. если два скрипта с одинаковым событием ( я понял ,что их можно объединить...)
возможно что-то дописывать в скрипте, чтоб не объединять их...если ДА, то что?
С Уважением и Благодарностью Роман!!!
помогите скриптом.zip