ошибка в выводе

[mr.stranger]

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

procedure TForm1.Button1Click(Sender: TObject);
 var a,f1,f2,f3,b,c,q:integer;
   ms1,ms2,ms3:array of string;
begin

SetLength(ms1,StringGrid1.RowCount);
SetLength(ms2,StringGrid1.RowCount);
SetLength(ms3,StringGrid1.RowCount);

Val(Trim(Edit1.Text),b,f1);
Val(Trim(Edit2.Text),b,f2);
Val(Trim(Edit3.Text),c,f3);

if (Length(Edit1.text)<>0) and (Length(Edit2.text)<>0) and (Length(Edit3.text)<>0) and (f3=0) and (f1<>0) and (f2<>0) and (c>0) then
begin

for a := 1 to StringGrid1.RowCount-1 do
  if (StringGrid1.Cells[1,a]=Trim(Edit1.Text)) and (StringGrid1.Cells[2,a]=Trim(Edit2.Text)) and (StringGrid1.Cells[3,a]=Trim(Edit3.Text)) then
    begin
      q := 1;
      break;
    end;
  if q = 0 then
  ShowMessage('Дублированная запись')
  else
  begin
  for a := 1 to StringGrid1.RowCount-1 do
    ms1[a]:= Trim(StringGrid1.Cells[1,a]);
    for a := 1 to StringGrid1.RowCount-1 do
    ms2[a]:= Trim(StringGrid1.Cells[2,a]);
    for a := 1 to StringGrid1.RowCount-1 do
    ms3[a]:= Trim(StringGrid1.Cells[3,a]);

    StringGrid1.RowCount := StringGrid1.RowCount + 1;

    for a := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Cells[1,a] := ms1[a];
    for a := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Cells[2,a] := ms2[a];
    for a := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Cells[3,a] := ms3[a];

    StringGrid1.InsertRowWithValues(StringGrid1.RowCount-2, ['', Edit1.Text, Edit2.Text, Edit3.Text]);

    for a := 1 to StringGrid1.RowCount-1 do
    StringGrid1.Cells[0,a] := IntToStr(a);
  end;
end
else
ShowMessage('Ошибки в таблице');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 ms1,ms2,ms3:array of string;
 s1,s2,s3:string;
 i,j:integer;
begin
  SetLength(ms1,StringGrid1.RowCount);
  SetLength(ms2,StringGrid1.RowCount);
  SetLength(ms3,StringGrid1.RowCount);

  if RadioButton1.Checked = True then
  begin

    for i := 1 to StringGrid1.RowCount-1 do
    begin
      ms1[i] := StringGrid1.Cells[1,i];
      ms2[i] := StringGrid1.Cells[2,i];
      ms3[i] := StringGrid1.Cells[3,i];
    end;
    for i := 1 to StringGrid1.RowCount-1 do
      for j := 1 to StringGrid1.RowCount-i-1 do
      begin
        if ms1[j] > ms1[j+1] then
        begin
          s1 := ms1[j];
          ms1[j] := ms1[j+1];
          ms1[j+1] := s1;

          s2 := ms2[j];
          ms2[j] := ms2[j+1];
          ms2[j+1] := s2;

          s3 := ms3[j];
          ms3[j] := ms3[j+1];
          ms3[j+1] := s3;

        end;
      end;
    for i := 1 to StringGrid1.RowCount-1 do
    begin
      StringGrid1.Cells[1,i] := ms1[i];
      StringGrid1.Cells[2,i] := ms2[i];
      StringGrid1.Cells[3,i] := ms3[i];
    end;

  end
  else
    if RadioButton2.Checked = True then
    begin

      for i := 1 to StringGrid1.RowCount-1 do
      begin
        ms1[i] := StringGrid1.Cells[1,i];
        ms2[i] := StringGrid1.Cells[2,i];
        ms3[i] := StringGrid1.Cells[3,i];
      end;
      for i := 1 to StringGrid1.RowCount-1 do
        for j := 1 to StringGrid1.RowCount-i-1 do
        begin
         if ms3[j] > ms3[j+1] then
          begin
            s1 := ms1[j];
            ms1[j] := ms1[j+1];
            ms1[j+1] := s1;

            s2 := ms2[j];
            ms2[j] := ms2[j+1];
            ms2[j+1] := s2;

            s3 := ms3[j];
            ms3[j] := ms3[j+1];
            ms3[j+1] := s3;
          end;
        end;
      for i := 1 to StringGrid1.RowCount-1 do
      begin
        StringGrid1.Cells[1,i] := ms1[i];
        StringGrid1.Cells[2,i] := ms2[i];
        StringGrid1.Cells[3,i] := ms3[i];
      end;
    end;
end;
end.

[macomics]

Сообщение от mr.stranger

and (f3=0) and (f1<>0) and (f2<>0) and (c>0) then

Может переменную `c` стоит инициализировать? Точно флаг f3 надо проверять на равенство 0, а остальные (f1 и f2) на неравенство?

Сообщение от mr.stranger

for a := 1 to StringGrid1.RowCount-1 do // (3) {
    ms1[a]:= Trim(StringGrid1.Cells[1,a]);
    for a := 1 to StringGrid1.RowCount-1 do
    ms2[a]:= Trim(StringGrid1.Cells[2,a]);
    for a := 1 to StringGrid1.RowCount-1 do
    ms3[a]:= Trim(StringGrid1.Cells[3,a]); // } ...

    StringGrid1.RowCount := StringGrid1.RowCount + 1; // (1)

    for a := 1 to StringGrid1.RowCount-2 do // (3) ... {
    StringGrid1.Cells[1,a] := ms1[a];
    for a := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Cells[2,a] := ms2[a];
    for a := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Cells[3,a] := ms3[a]; // }

    StringGrid1.InsertRowWithValues(StringGrid1.RowCount-2, ['', Edit1.Text, Edit2.Text, Edit3.Text]); // (2)

    for a := 1 to StringGrid1.RowCount-1 do
    StringGrid1.Cells[0,a] := IntToStr(a); // (4)

Определитесь. Вы либо сами (1) добавляете строки вручную или используете метод вставки новой строки (2). Если (2), то массивы не нужны совсем (3) и достаточно присваивать номер только последней добавленной строке (4).

Сортировка: Подозреваю, что у вас в Инспекторе объектов для StringGrid1 настроены пустые строки. При сортировке он их поднимает наверх. Установите у компонента количество строк равное 1 (только заголовок). Или можете это сделать в TForm1Create.

[mr.stranger]

Сообщение от macomics

Установите у компонента количество строк равное 1 (только заголовок).

Если ставлю 1, то он загоняет новую запись над строкой с названиями колонок

[mr.stranger]

Ввод идет через такую форму
Потом добавляется три компонента RadioButton для сортировки

[macomics]

Поставьте 1 и исправьте строку (2) на

with StringGrid1 do InsertRowWithValues(RowCount, [inttostr(RowCount), Edit1.Text, Edit2.Text, Edit3.Text])

ADD: Если бы использовали отладчик и проходили выполнение каждой строки кода с контролем значений, то не возникало бы таких вопросов.

[mr.stranger]

Сообщение от macomics

Поставьте 1 и исправьте строку (2) на

Кидает первую запись на вторую строчку, а следующие норм

[macomics]

Так может покажите изваяние, которое это производит. Или надо догадаться, что за изменения вы уже внесли.

Попробуйте использовать отладчик. Если нажать на строку левее ее номера, то она станет красной и программа после запуска остановится по ее достижении. Так можно сделать более чем с одной строкой. Дальше открываете окно "Локальные переменные/Local variables" и "Наблюдение/Watches" (поищите в меню "Вид/View"). И ищите место где просчитались наблюдая за значениями и выполняя программу строчка за строчкой.

[mr.stranger]

procedure TForm1.Button1Click(Sender: TObject);
 var a,b,c,d,f1,f2,f3,q1,q2,q3,q4:integer;
ms1,ms2,ms3: array of string;
begin
q1 := 0;
q2 := 0;
q3 := 0;
q4 := 0;

SetLength(ms1,StringGrid1.RowCount);
SetLength(ms2,StringGrid1.RowCount);
SetLength(ms3,StringGrid1.RowCount);

for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[1,a] = Trim(Edit1.Text) then
q1 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[2,a] = Trim(Edit2.Text) then
q2 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[3,a] = Trim(Edit3.Text) then
q3 := 1;
q4 := q1 + q2 + q3;

Val(Trim(Edit1.Text),b,f1);
Val(Trim(Edit2.Text),b,f2);
Val(Trim(Edit3.Text),c,f3);

if (Length(Edit1.text) <> 0) and (Length(Edit2.text) <> 0) and (Length(Edit3.text) <> 0) and (f3 = 0) and (f1 <> 0) and (f2 <> 0) and (c > 0) then
begin
if q4 <> 3 then
begin

for a := 1 to StringGrid1.RowCount-1 do
ms1[a]:= Trim(StringGrid1.Cells[1,a]);
for a := 1 to StringGrid1.RowCount-1 do
ms2[a]:= Trim(StringGrid1.Cells[2,a]);
for a := 1 to StringGrid1.RowCount-1 do
ms3[a]:= Trim(StringGrid1.Cells[3,a]);

for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[1,a] := ms1[a];
for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[2,a] := ms2[a];
for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[3,a] := ms3[a];

with StringGrid1 do InsertRowWithValues(RowCount, [IntToStr(RowCount), Edit1.Text, Edit2.Text, Edit3.Text]);

for a := 1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[0,a] := IntToStr(a)
end
else
ShowMessage('Дублированная запись');
end
else
ShowMessage('Ошибки в записи');
end;

[macomics]

Сообщение от mr.stranger

procedure TForm1.Button1Click(Sender: TObject);
 var a,b,c,d,f1,f2,f3,q1,q2,q3,q4:integer;
ms1,ms2,ms3: array of string; // *
begin
q1 := 0;
q2 := 0;
q3 := 0;
q4 := 0;

SetLength(ms1,StringGrid1.RowCount); // *
SetLength(ms2,StringGrid1.RowCount); // *
SetLength(ms3,StringGrid1.RowCount); // *

for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[1,a] = Trim(Edit1.Text) then
q1 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[2,a] = Trim(Edit2.Text) then
q2 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[3,a] = Trim(Edit3.Text) then
q3 := 1;
q4 := q1 + q2 + q3;

Val(Trim(Edit1.Text),b,f1);
Val(Trim(Edit2.Text),b,f2);
Val(Trim(Edit3.Text),c,f3);

if (Length(Edit1.text) <> 0) and (Length(Edit2.text) <> 0) and (Length(Edit3.text) <> 0) and (f3 = 0) and (f1 <> 0) and (f2 <> 0) and (c > 0) then
begin
if q4 <> 3 then
begin

for a := 1 to StringGrid1.RowCount-1 do // *
ms1[a]:= Trim(StringGrid1.Cells[1,a]); // *
for a := 1 to StringGrid1.RowCount-1 do // *
ms2[a]:= Trim(StringGrid1.Cells[2,a]); // *
for a := 1 to StringGrid1.RowCount-1 do // *
ms3[a]:= Trim(StringGrid1.Cells[3,a]); // *

for a := 1 to StringGrid1.RowCount-2 do // *
StringGrid1.Cells[1,a] := ms1[a]; // *
for a := 1 to StringGrid1.RowCount-2 do // *
StringGrid1.Cells[2,a] := ms2[a]; // *
for a := 1 to StringGrid1.RowCount-2 do // *
StringGrid1.Cells[3,a] := ms3[a]; // *

with StringGrid1 do InsertRowWithValues(RowCount, [IntToStr(RowCount), Edit1.Text, Edit2.Text, Edit3.Text]);

for a := 1 to StringGrid1.RowCount-1 do // *
StringGrid1.Cells[0,a] := IntToStr(a) // *
end

Вот эти все строки, что я отметил "// *" не нужны совсем. Компилятор наверняка вам об этом кричит и так.

add: При этом у вас должна быть только одна строка заголовка в StringGrid1 при запуске программы. Тогда все добавляется нормально.

[mr.stranger]

Сообщение от macomics

Вот эти все строки, что я отметил "// *" не нужны совсем. Компилятор наверняка вам об этом кричит и так.

Действительно, спасибо
Но проблему это не решило
Если поставить RowCount-1, стало вносить в первую строку