Вот все три процедуры используемых, код не очень логичный, но меня пока только интересует устранение ошибки самой
P.S. параметры процедур не указаны при вызове, ибо пробовал уже и с ними, и без них
Код:
procedure Oformlenie(Edit1: TEdit; StringGrid1: TStringGrid);
var
x, i, j: integer;
begin
x := 0;
StringGrid1.Cells[i, j + x] := Edit1.Text;
Edit1.Text := '';
x := x + 1;
end;
procedure Dobavlenie(StringGrid1: TStringGrid);
var
i, j: integer;
begin
// Увеличиваем количество строк на 1
StringGrid1.RowCount := StringGrid1.RowCount + 1;
// Сдвигаем содержимое таблицы вниз
for i := 0 to StringGrid1.RowCount - 2 do
for j := 0 to StringGrid1.ColCount - 1 do
StringGrid1.Cells[j, StringGrid1.RowCount - 1 - i] :=
StringGrid1.Cells[j, StringGrid1.RowCount - 2 - i];
for j := 0 to StringGrid1.ColCount - 1 do
StringGrid1.Cells[j, 0] := '';
end;
procedure Razdelenie(Edit1: TEdit; StringGrid1: TStringGrid);
var
z, i, j, x: integer;
s: string;
begin
x := 0;
for z := 1 to length(s) do
if s[z] = ',' then
begin
Oformlenie;
Dobavlenie;
x := x + 1;
end
else
begin
Edit1.Text := Edit1.Text + s[z];
end;
StringGrid1.Cells[i, j + x] := Edit1.Text;
end;