Показать сообщение отдельно
  #5  
Старый 25.05.2019, 20:37
mxkrzh mxkrzh вне форума
Прохожий
 
Регистрация: 25.05.2019
Сообщения: 5
Версия Delphi: RAD Studio 10.3
Репутация: 10
По умолчанию

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

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;
Ответить с цитированием