Как прописать примерно следующее
Если содержимое Мемо1 не равно Мемо2 то Вывести сообщение
З.Ы. Пытался довольно долго, но безрезультатно
Полная версия этой страницы: Сравнение
Ну блин, вы по любому чиху сразу вопрос задаете, нам не жалко, но и вы уж тоже показывайте свои "пытания". А то вдруг как вы и не пробовали даже?
Ну не хочешь не верь, твоё право, только вот этим сообщением ты не очень помог...
Тот вопрос остаётся акктуальным, появляется второй:
У меня файл скачивается с инета, в случен не удачной скачки прога не выдаёт сообщений (try except помог)
А теперь вопрос: Как сделать так, чтоб вслучае не удачного скачивания вылетало сообщение (error, ну или то что я напишу), и программа перестала выполнять оставшейся код?
Скачиваю я этим кодом:
FileName := 'C:\text.txt';
f := TStringList.Create;
idHttp1.Port := 80;
f.Add ( idHTTP1.Get('http://Адрес'+Edit4.text) );
f.SaveToFile(FileName);
f.Free;
Тот вопрос остаётся акктуальным, появляется второй:
У меня файл скачивается с инета, в случен не удачной скачки прога не выдаёт сообщений (try except помог)
А теперь вопрос: Как сделать так, чтоб вслучае не удачного скачивания вылетало сообщение (error, ну или то что я напишу), и программа перестала выполнять оставшейся код?
Скачиваю я этим кодом:
FileName := 'C:\text.txt';
f := TStringList.Create;
idHttp1.Port := 80;
f.Add ( idHTTP1.Get('http://Адрес'+Edit4.text) );
f.SaveToFile(FileName);
f.Free;
Для: dima_lamo
Да при чем чьято вера?
Вас попросили показать ваши пробы, а мы укажем где ошибка.
Вы же хотите сразу готовый код, я резко отрицательно отношусь к такого рода "медвежьим" услугам.
Хотите научиться, не вопрос, поможем, но не за вас решим. Это понятно?
Да при чем чьято вера?
Вас попросили показать ваши пробы, а мы укажем где ошибка.
Вы же хотите сразу готовый код, я резко отрицательно отношусь к такого рода "медвежьим" услугам.
Хотите научиться, не вопрос, поможем, но не за вас решим. Это понятно?
Йопт, хватит "васкать"
Я что, попросил написать мне прогу, работатьь над которой нужно пол месяца?
Или я попросил выложить код приват проги?
А проблему я указал!
В вопросе выше я привёл код, и вопрос, что-то ответ не сильно отличается от ответа на первый вопрос в теме
Тебе что, сложно написать? Я реально не знаю как сравнивать текст!
Я просто прописал так if компонент 1<> компонент2 then Сообщение else
При этом НЕТ нужного результата
Цитата(sax_ol @ 16:01:2008, 16:30 )
Вас попросили показать ваши пробы, а мы укажем где ошибка.
Вы же хотите сразу готовый код, я резко отрицательно отношусь к такого рода "медвежьим" услугам.
Вы же хотите сразу готовый код, я резко отрицательно отношусь к такого рода "медвежьим" услугам.
Я что, попросил написать мне прогу, работатьь над которой нужно пол месяца?
Или я попросил выложить код приват проги?
А проблему я указал!
В вопросе выше я привёл код, и вопрос, что-то ответ не сильно отличается от ответа на первый вопрос в теме
Тебе что, сложно написать? Я реально не знаю как сравнивать текст!
Я просто прописал так if компонент 1<> компонент2 then Сообщение else
При этом НЕТ нужного результата
Цитата(dima_lamo @ 16:01:2008, 16:51 )
Тебе что, сложно написать?
Как когда, да и смотря еще что, всякие нюансы бывают.
Цитата(dima_lamo @ 16:01:2008, 16:51 )
При этом НЕТ нужного результата
Для начала так: вам надо сравнить содержимое (из #1 ) а вы сравниваете компоненты (из "if компонент 1<> компонент2"). Делайте выводы.
Цитата(sax_ol @ 16:01:2008, 16:58 )
Как когда, да и смотря еще что, всякие нюансы бывают.
Ну а в данном случае что? Реально сложный вопрос? Или просто нет настроения?
Цитата(sax_ol @ 16:01:2008, 16:58 )
Для начала так: вам надо сравнить содержимое (из #1 ) а вы сравниваете компоненты (из "if компонент 1<> компонент2"). Делайте выводы.
if Memo4.text<>Memo6.text then
Где тут ошибка?
Цитата(sax_ol @ 16:01:2008, 16:58 )
Делайте выводы
Может уже на "ТЫ" перейдём?
З.Ы. в личку асю скинь
Цитата(dima_lamo @ 16:01:2008, 17:03 )
Ну а в данном случае что?
см. #4
Цитата(dima_lamo @ 16:01:2008, 17:03 )
if Memo4.text<>Memo6.text then
Где тут ошибка?
Где тут ошибка?
Нет тут ошибки. Хотя я бы воспользовался CompareStr. Но пока не принципиально.
А подробнее про CompareStr расскажи
Как тут его использывать, и что это даст
Как тут его использывать, и что это даст
Цитата(dima_lamo @ 16:01:2008, 16:18 )
У меня файл скачивается с инета, в случен не удачной скачки прога не выдаёт сообщений (try except помог)
А теперь вопрос: Как сделать так, чтоб вслучае не удачного скачивания вылетало сообщение (error, ну или то что я напишу), и программа перестала выполнять оставшейся код?
Скачиваю я этим кодом:
FileName := 'C:\text.txt';
f := TStringList.Create;
idHttp1.Port := 80;
f.Add ( idHTTP1.Get('http://Адрес'+Edit4.text) );
f.SaveToFile(FileName);
f.Free;
А теперь вопрос: Как сделать так, чтоб вслучае не удачного скачивания вылетало сообщение (error, ну или то что я напишу), и программа перестала выполнять оставшейся код?
Скачиваю я этим кодом:
FileName := 'C:\text.txt';
f := TStringList.Create;
idHttp1.Port := 80;
f.Add ( idHTTP1.Get('http://Адрес'+Edit4.text) );
f.SaveToFile(FileName);
f.Free;
Цитата(dima_lamo @ 16:01:2008, 17:30 )
А подробнее про CompareStr расскажи
Гугл закрыт на профилактику? ]]>http://delphi.about.com/library/rtl/blrtlCompareStr.htm]]>
]]>http://www.delphibasics.co.uk/RTL.asp?Name=CompareStr]]>
да и она уже Obsolete, надо AnsiCompareStr.
Тут у вас нет ошибки! Ищите в другом месте.
А по второму вопросу: смотрите Windows.MessageBox + exit + try ...
да и она уже Obsolete, надо AnsiCompareStr.
Тут у вас нет ошибки! Ищите в другом месте.
А по второму вопросу: смотрите Windows.MessageBox + exit + try ...
УДАЛЕНО
УДАЛЕНО
/moderator/ настойчивый пользователь .... я восхищён
/moderator/ настойчивый пользователь .... я восхищён
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.