Программа меняет все значения, со знаком (
=), в порядке убывания. А когда ввожу без знака (
=) то возникает ошибка.
И вот вопрос: Как, место сообщения
Is not valid integer value - Вывести свой текст. К примеру, сообщение: "
Внимание, вы ввели неправильные - значения".
Прикрепил картинки:
Код:
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;