Сравнение

Тема в разделе "Delphi - Система", создана пользователем dima_lamo, 16 янв 2008.

Статус темы:
Закрыта.
  1. dima_lamo

    dima_lamo Гость

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


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

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

    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;
     
  3. dima_lamo

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

    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]

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

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

    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]
     
  6. European

    Регистрация:
    4 сен 2006
    Сообщения:
    2.580
    Симпатии:
    0
    <!--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]
    Гугл закрыт на профилактику? http://delphi.about.com/library/rtl/blrtlCompareStr.htm
     
  7. dima_lamo

    dima_lamo Гость

    УДАЛЕНО
     
  8. _dima_lamo

    _dima_lamo Гость

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

Поделиться этой страницей