Сравнение

  • Автор темы dima_lamo
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

dima_lamo

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


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

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

dima_lamo

#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;
 
D

dima_lamo

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

<!--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
При этом НЕТ нужного результата
 
D

dima_lamo

#4
<!--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]

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

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

dima_lamo

#5
А подробнее про 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]
 
D

_dima_lamo

#8
УДАЛЕНО
/moderator/ настойчивый пользователь .... я восхищён
 
Статус
Закрыто для дальнейших ответов.