|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Многоуровневая проверка
Здравствуйте!
Делаю программку, в которой изображение скачивается с интернета, и потом выгружается в Image в BMP формате, соответственно перед загрузкой в image проверяю если скачан jpg, png, или gif то преобразую изображение в BMP. Всё получается за исключением проверки, начал уже тупить, поэтому и решил спросить у Вас. Её смысл таков - если в ComboBox вводится текст, то проверям является ли он вэб-адресом, тут все просто в строке нужно найти (http) как я понял, если нет программа на якорь. Если в сроке есть http, то проверям, если в ней ссылки на изображения (они как правило заканчиваются расширением изображения), поэтому я ищу в строке jpg или png. Если не найдены то останавливаю приложение, если есть то работает дальше. Написал это таким образом: Код:
var Webad: string; ..... // Проверяем является ли введенная в ComboBox строка корректным вэб-адресом // Указываем откуда берется строка на проверку Webad := ComboBox1.text; // Если в строке присутствует текст "HTTP", то... if Pos('http', Webad) > 0 then begin // Проверяем является ли введенная в ComboBox строка вэб-адресом с изображением // Если строка содержит текст ".JPG", то ... if Pos('.jpg', Webad) > 0 then begin // Продолжаем выполнение программы end // Если строка содержит текст ".PNG", то ... else if Pos('.png', Webad) > 0 then begin // Продолжаем выполнение программы end // Если в строке нет текста ни ".JPG", ни ".PNG", то... else // Предупреждаем об этом пользователя, ShowMessage('Данный вэб-адрес не является адресом изображения. Действие отменено.'); // отменяем выполнение процедуры. Exit; end // Если в строке нет текста "HTTP", то... else begin // Предупреждаем об этом пользователя, ShowMessage('Данный текст не является вэб-адресом. Действие отменено.'); // отменяем выполнение процедуры. Exit end; Проблема в том что если после всей проверки, т.е. если всё корректно и ссылка подходит по всем параметрам, то ничего не происходит... Если ошибки то все показывает правильно и останавливает выполнение программы. А если все верно, то ничего не происходит. Помогите пожалуйста разобраться, где я протупил? |