Сравнение

[dima_lamo]

Как прописать примерно следующее


Если содержимое Мемо1 не равно Мемо2 то Вывести сообщение

З.Ы. Пытался довольно долго, но безрезультатно

 

[dima_lamo]

Ну не хочешь не верь, твоё право, только вот этим сообщением ты не очень помог...

Тот вопрос остаётся акктуальным, появляется второй:

У меня файл скачивается с инета, в случен не удачной скачки прога не выдаёт сообщений (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]

Йопт, хватит "васкать"

<!--QuoteBegin-sax_ol+16:01:2008, 16:30 -->
<span class="vbquote">(sax_ol @ 16:01:2008, 16:30 )</span><!--QuoteEBegin-->Вас попросили показать ваши пробы, а мы укажем где ошибка.
Вы же хотите сразу готовый код, я резко отрицательно отношусь к такого рода "медвежьим" услугам.

[snapback]93810" rel="nofollow" target="_blank[/snapback]​

[/quote]


Я что, попросил написать мне прогу, работатьь над которой нужно пол месяца?
Или я попросил выложить код приват проги?

А проблему я указал!

В вопросе выше я привёл код, и вопрос, что-то ответ не сильно отличается от ответа на первый вопрос в теме


Тебе что, сложно написать? Я реально не знаю как сравнивать текст!
Я просто прописал так if компонент 1<> компонент2 then Сообщение else
При этом НЕТ нужного результата

 

[dima_lamo]

<!--QuoteBegin-sax_ol+16:01:2008, 16:58 -->
<span class="vbquote">(sax_ol @ 16:01:2008, 16:58 )</span><!--QuoteEBegin-->Как когда, да и смотря еще что, всякие нюансы бывают.

[snapback]93813" rel="nofollow" target="_blank[/snapback]​

[/quote]

Ну а в данном случае что? Реально сложный вопрос? Или просто нет настроения?

<!--QuoteBegin-sax_ol+16:01:2008, 16:58 -->
<span class="vbquote">(sax_ol @ 16:01:2008, 16:58 )</span><!--QuoteEBegin-->Для начала так: вам надо сравнить содержимое (из #1 ) а вы сравниваете компоненты (из "if компонент 1<> компонент2"). Делайте выводы.

[snapback]93813" rel="nofollow" target="_blank[/snapback]​

[/quote]

if Memo4.text<>Memo6.text then

Где тут ошибка?

<!--QuoteBegin-sax_ol+16:01:2008, 16:58 -->
<span class="vbquote">(sax_ol @ 16:01:2008, 16:58 )</span><!--QuoteEBegin-->Делайте выводы

[snapback]93813" rel="nofollow" target="_blank[/snapback]​

[/quote]

Может уже на "ТЫ" перейдём?

З.Ы. в личку асю скинь

 

[dima_lamo]

А подробнее про CompareStr расскажи
Как тут его использывать, и что это даст

<!--QuoteBegin-dima_lamo+16:01:2008, 16:18 -->
<span class="vbquote">(dima_lamo @ 16:01:2008, 16:18 )</span><!--QuoteEBegin-->У меня файл скачивается с инета, в случен не удачной скачки прога не выдаёт сообщений (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;

[snapback]93804" rel="nofollow" target="_blank[/snapback]​

[/quote]

 

[European]

<!--QuoteBegin-dima_lamo+16:01:2008, 17:30 -->
<span class="vbquote">(dima_lamo @ 16:01:2008, 17:30 )</span><!--QuoteEBegin-->А подробнее про CompareStr расскажи

[snapback]93819" rel="nofollow" target="_blank[/snapback]​

[/quote]
Гугл закрыт на профилактику?

Ссылка скрыта от гостей

 

[dima_lamo]

УДАЛЕНО

 

[_dima_lamo]

УДАЛЕНО
/moderator/ настойчивый пользователь .... я восхищён