[mxkrzh]

При выполненииэтого кода выдаёт ошибку not enough actual parameters на строки с Razdelenie; и Dobavlenie;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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       StringGrid1.Cells[i, j + x] := Edit1.Text;       Edit1.Text := '';       x := x + 1;       Razdelenie;       Dobavlenie;     end     else     begin       Edit1.Text := Edit1.Text + s[z];     end;   StringGrid1.Cells[i, j + x] := Edit1.Text; end;

Слишком начинающий, чтобы понять, почему выдаёт эту ошибку

[Guaho]

Ну, во-первых, Вы из процедуры Razdelenie вызываете эту же процедуру? Совершенно некорректно. Оформите её отдельной процедурой, а вызов делайте из другой процедуры (из обработчика какого-нибудь события).
Во-вторых, ошибка "Недостаточно параметров" выскакивает потому, что для процедуры Razdelenie Вами определены два параметра:

Код:

1	procedure Razdelenie(Edit1: TEdit; StringGrid1: TStringGrid);

Но Вы эти параметры при вызове процедуры не указываете (пишете просто "Razdelenie;", строка 13 кода).
Вызывая какую-либо процедуру или функцию, Вы обязаны указать все параметры, объявленные для этой функции, иначе код не будет скомпилирован.

[mxkrzh]

Сейчас убрал вызов Razdelenie из этой же процедуры,но теперь когда определяю параметры при вызове процедуры, появляется множество ошибко синтаксиса, а ошибка not enough actual parameters, тем не менее, никуда не уходит

[Страдалецъ]

Видимо вы прочитали только половину сообщения от Guaho иначе ошибки с параметрами не было. Код процедуры Dobavlenie вы не показали, так-что там еще натворили неясно. Покажите ваш последний вариант.

[mxkrzh]

Вот все три процедуры используемых, код не очень логичный, но меня пока только интересует устранение ошибки самой

P.S. параметры процедур не указаны при вызове, ибо пробовал уже и с ними, и без них

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

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;

[Страдалецъ]

Как и предполагалось, вы упорно вызываете процедуры без параметров. Попробуйте все-же подставить параметры в 36 и 37 строках, а вдруг поможет

Код:

1 2	Oformlenie(Edit1,StringGrid1); Dobavlenie(Edit1,StringGrid1);