[Taras2020]

Программа меняет все значения, со знаком (=), в порядке убывания. А когда ввожу без знака ( =) то возникает ошибка.

И вот вопрос: Как, место сообщения Is not valid integer value - Вывести свой текст. К примеру, сообщение: "Внимание, вы ввели неправильные - значения".

Прикрепил картинки:

Код:

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

function MySort(L: TStringList; ind1, ind2: integer): integer; var i1, i2: integer; begin  i1 := StrToInt(L.ValueFromIndex[ind1]);  i2 := StrToInt(L.ValueFromIndex[ind2]);  if i1 = i2 then result := 0   else if i1 > i2 then result := 1         else result := -1; end;    procedure TForm1.Button2Click(Sender: TObject); var L: TStringList; begin  L := TStringList.Create;  L.Text := Memo1.Text;  L.CustomSort(MySort);  Memo2.Text := L.Text;  L.Free; end;