StringGrid

[Farmokolog]

Проблем такая... нужно сделать чтобы при введению в ячейку некорректных данных (букв или пустая ячейка )
вставлял в ячейку 0 и подсчитывал сумму, и высчитывал сумму всех чисел 3-его столбца.

  var
    a,b,y:array [1..7] of integer;
    j,summ: integer;
begin
for j:=1 to 7 do
A[j]:=StrToint(StringGrid1.Cells [1,j]);
for j:=1 to 7 do
B[j]:=StrToint(StringGrid1.Cells [2,j]);
for j:=1 to 7 do
begin
  summ:=A[j]*B[j];
  Y[j]:=summ;
  StringGrid1.Cells[3, j]:=intToStr(Y[j]);
end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ArtGrek]

тоесть должны оставаца числа и нули?

[Farmokolog]

Да и если можно чтобы буквы вообще не прописывались.

[asmodey1]

Первый вариант. Пример для A[j]:

for j:=1 to 7 do
A[j]:=StrToint(StringGrid1.Cells [1,j]);

заменяем на :

for j:=1 to 7 do
if not TryStrToint(StringGrid1.Cells [1,j],A[j]) then
A[j]:=0;

Или второй вариант - "чтобы буквы вообще не прописывались" -

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then
key:=Chr(0);
end;

Либо-либо.

From Stilet: Попрошу правила форума соблюдать, и код выделять его тегом по кнопке #

[Farmokolog]

Спасибо большое за помощи, тока вот с вводом букв не помогло,
я имел в виду что бы как бы задать маску ввода данных в ячейку,
что бы нельзя было вводить некорректные данные на вроде
(44,44,44 или буквы) ну при этом понимал и перемножал (44,44 и 12е и т д ).

Подскажите пожалуйста в чем тут проблема не могу сделать чтобы в ячейках пересчитывал и дробные числа
если заменить integer на real и TryStrToFloat, StrToFloat то процедура не выполняется.

procedure TMainForm.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
  var
    a,b,y:array [1..7] of integer;
    j,summ: integer;

begin

for j:= 1 to 7 do
if not TryStrToint(StringGrid1.Cells [1,j],A[j]) then
A[j]:=0;

for j:=1 to 7 do
if not TryStrToint(StringGrid1.Cells [2,j],B[j]) then
B[j]:=0;
for j:=1 to 7 do
begin
  summ:=A[j]*B[j];
  Y[j]:=summ;
  StringGrid1.Cells[3, j]:=FloatToStr(Y[j]);
end;
end;

[VadikV]

После замены на real нужно заменить
TryStrToint на TryStrToFloat
intToStr на FloatToStr

[Farmokolog]

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

for j:=1 to 7 do
if not TryStrToFloat(StringGrid1.Cells [2,j],A[j]) then
a[j]:=0;

[Stilet]

Какого рода ошибка?

[Farmokolog]

Вот такая
[Error] Main.pas(322): For loop control variable must have ordinal type
[Error] Main.pas(323): Incompatible types: 'Integer' and 'Real'
[Error] Main.pas(324): Incompatible types: 'Integer' and 'Real'
[Error] Main.pas(326): For loop control variable must have ordinal type
[Error] Main.pas(327): Incompatible types: 'Integer' and 'Real'
[Error] Main.pas(328): Incompatible types: 'Integer' and 'Real'
[Error] Main.pas(329): For loop control variable must have ordinal type
[Error] Main.pas(331): Incompatible types: 'Integer' and 'Real'
[Error] Main.pas(332): Incompatible types: 'Integer' and 'Real'
[Error] Main.pas(333): Incompatible types: 'Integer' and 'Real'
[Error] Main.pas(333): Incompatible types: 'Integer' and 'Real'
[Fatal Error] MainP.dpr(5): Could not compile used unit 'Main.pas'
и вот такая
[Error] Main.pas(323): There is no overloaded version of 'TryStrToFloat' that can be called with these arguments
[Error] Main.pas(327): Types of actual and formal var parameters must be identical
[Error] Main.pas(331): Incompatible types: 'Integer' and 'Extended'

[Farmokolog]

Всем спасибо за помощь!!!
Выкладываю готовый рабочий код вдруг у кого возникнет такая проблема.

procedure TMainForm.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  a, b, y: array [1..7] of Double;
  summ: Double;
  j: Integer;
begin

for j:= 1 to 7 do
if not TryStrToFloat(StringGrid1.Cells [1,j],A[j]) then
A[j]:=0;

for j:=1 to 7 do
if not TryStrToFloat(StringGrid1.Cells [2,j],B[j]) then
B[j]:=0;
for j:=1 to 7 do
begin
  summ:=A[j]*B[j];
  Y[j]:=summ;
  StringGrid1.Cells[3, j]:=FloatToStr(Y[j]);
end;
end;