Вопрос № 165261: Здраствуйте уважаемые эксперты,пишу if memo1.Lines.Count<>0 then Begin end else MessageDlg('',MtInformation,[mbOk],0); произвожу проверку на пустом окне Memo информационное сообщение не появляется не подскажите как опредилить записа...
Вопрос № 165275: Здравствуйте уважаемые эксперты помогите написать программу: Составить и вывести на экран список всех кодов вычетов, встречающихся в файле, и сумм вычетов по
ним. Cам файл: http://file.qip.ru/file/84242136/14dfb833/S0053301.html (кодировка ...
Вопрос № 165.261
Здраствуйте уважаемые эксперты,пишу if memo1.Lines.Count<>0 then Begin end else MessageDlg('',MtInformation,[mbOk],0); произвожу проверку на пустом окне Memo информационное сообщение не появляется не подскажите как опредилить записано чтонибудь в Memo или нет.
Отвечает: Spirit87
Здравствуйте, Юрченко Павел Александрович! Попробуйте так.
Приложение:
Ответ отправил: Spirit87 (статус: 2-й класс)
Ответ отправлен: 19.04.2009, 06:56
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 247806 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 4 Комментарий оценки: Спасибо за помощь
Вопрос № 165.275
Здравствуйте уважаемые эксперты помогите написать программу: Составить и вывести на экран список всех кодов вычетов, встречающихся в файле, и сумм вычетов по ним.
Отправлен: 18.04.2009, 13:52
Вопрос задал: Fixer (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Тимошенко Дмитрий
Здравствуйте, Fixer!
Программа на паскале - с небольшими доделками пойдет и в Delphi, но это по-моему "из пушки по воробьям". Для дельфовDephi надо будет поменять Assign на AssignFile, Close на CloseFile. Остальное должно вроде и так пойти.
С уважением, Дмитрий
1. "Для дельфов надо будет поменять Assign на AssignFile, Close на CloseFile. " Ну и что Вам самому помешало это сделать? 2. Вы предлагаете человеку консольную программу, не указав в файле директиву компилятору {$APPTYPE CONSOLE}. Ну и куда, по Вашему, программа должна выводить полученные данные по WriteLn()? 3. Всё вышеперечисленное пустяки по сравнению с тем, что Вы предложили человеку абсолютно неработоспособную программу. В принципе. При попытке её откомпилировать выдаётся вот такое
сообщение: vychet.pas(18) Error: Incompatible types vychet.pas(19) Error: Incompatible types
--------
∙ Отредактировал: sir Henry, Академик
∙ Дата редактирования: 18.04.2009, 17:57 (время московское)
Приложение:
Ответ отправил: Тимошенко Дмитрий (статус: 6-й класс)
Ответ отправлен: 18.04.2009, 16:36
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 247779 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.