При выполненииэтого кода выдаёт ошибку not enough actual parameters на строки с Razdelenie; и Dobavlenie;
Код:
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;
Слишком начинающий, чтобы понять, почему выдаёт эту ошибку