Izzie

Задание: Организовать ввод элементов массива и вывод упорядоченного массива по возрастанию. Вводить только целые числа. Выводить сообщение об ошибке.

Исходник готов,вроде все в порядке, упорядочивает, только единственное, что не знаю, как создать сообщение об ошибке, как ее описать?

var
Form1: TForm1;
arr: array of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); // кнопка Добавить
begin

ListBox1.Items.Add(Edit1.text); // добавляем строку
Edit1.Clear;
SetLength(arr, ListBox1.Items.Count); //
arr[ListBox1.Items.Count-1]:= ListBox1.Items.Strings[ListBox1.Items.Count-1]; // запись строки в массив
Edit1.SetFocus;
end;


procedure TForm1.RadioGroup1Click(Sender: TObject);

var
i : integer;

begin

case RadioGroup1.ItemIndex of
0: ListBox1.Sorted := True;

1: begin
ListBox1.Sorted := False;
ListBox1.Clear;
for i:=0 to High(arr) do ListBox1.Items.Add(arr[i]); // оставляем в первичном виде
end;
end;

end;
end.