Вопрос № 125203: Здравствуйте, уважаемые эксперты! Возник такой вопрос по StringGrid:
Стандартно в массиве елементы начинаются с 0, а как зделать чтобы начиналось с 1,не включая фиксированые столбцы/ячейки?
===
как пример, такое задание: вывести сумму ел...Вопрос № 125225: Здравствуйте господа эксперты. Возникла вроде пустиковая проблема, но я никак не могу врубиться.
В приложении есть paitbox на него стандартным способом выводится бегушка:
procedure TPlayer.Timer1Timer(Sender: TObject);
begin
Dec...Вопрос № 125240: Здравствуйте!
Нужно чтобы моя программа умела обрабатывать входящие сообщения по протоколу SMTP порт 25.
Суть такая, если какой либо почтовый клиент пытается соединиться с компьютером по протоколу SMTP 25, нужно его авторизовать (по имя/парол...
Вопрос № 125.203
Здравствуйте, уважаемые эксперты! Возник такой вопрос по StringGrid:
Стандартно в массиве елементы начинаются с 0, а как зделать чтобы начиналось с 1,не включая фиксированые столбцы/ячейки?
===
как пример, такое задание: вывести сумму елементов в которых 1 индекс парный а 2-непарный. если проверять таким способом (приведен в приложении, sg=stringgrid1) то программа не корректно работает, 0 мод 2 остаток 2 и 1 строка тогда парная... и пошло все неправильно...
===
может просто его как-то сдвинуть либо есть другие способы?
Заранее благодарен!
Приложение:
Отправлен: 28.02.2008, 01:36
Вопрос задал: Gaolong (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Сазонов Михаил Владимирович
Здравствуйте, Gaolong!
Для StringGrid стандартно фиксированны строки и столбцы с индексом 0. Поэтому Ваш цикл можно закрутить с 1. И еще, как мне кажется 0 mod 2 = 0, а не 2.
Удачи.
Здравствуйте господа эксперты. Возникла вроде пустиковая проблема, но я никак не могу врубиться.
В приложении есть paitbox на него стандартным способом выводится бегушка:
procedure TPlayer.Timer1Timer(Sender: TObject);
begin
Dec(posdis);
Display.Canvas.TextOut(posdis,1,disp);
if posdis*(-1)= Display.Canvas.TextWidth(disp) then posdis:=200;
end;
Всё клёво работает пока несколько раз не свернуть приложение или не переключиться между приложениями,
и вывод строки прекращается, пробовал уже многое непомогает (перерисовка в разных процедурах проги).
Отправлен: 28.02.2008, 10:05
Вопрос задал: Genia007 (статус: 7-ой класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Дегтярев Антон Александрович
Здравствуйте, Genia007!
Одно из решений.
Можно попробовать вызвать эту процедуру из метода OnPaint
procedure TPlayer.FormPaint(Sender: TObject);
begin
Timer1Timer(self);
end;
Вот статья http://megalib.com/books/35/4_2.htm Отображение графики на канве Canvas
В поиске наберите "Но теперь давайте попробуем увидеть его крупный недостаток. Не закрывая своего приложения,"
--------- И дым отечества нам сладок и приятен
Ответ отправил: Дегтярев Антон Александрович (статус: 4-ый класс)
Ответ отправлен: 28.02.2008, 10:32 Оценка за ответ: 5 Комментарий оценки: Спасибо, таймер остаётся работать всегда за него зацеплено ещё и системное время и оно идёт, спасибо за ссылку на статью.
Отвечает: Sosedov A.I.
Здравствуйте, Genia007!
Что же происходит? Таймер останавливается? Добавьте на форму TEdit и заполняйте его по таймеру значением posdis:
Form1.Edit1.Text:=IntToStr(posdis);
Посмотрите, бегут ли цифры на нем...
У меня все замечательно работает.
Ответ отправил: Sosedov A.I. (статус: 2-ой класс)
Ответ отправлен: 28.02.2008, 11:12 Оценка за ответ: 4 Комментарий оценки: Спасибо, а вот и не так, по этому таймеру выводится ещё и текущее время и оно работает, и дата.
Вопрос № 125.240
Здравствуйте!
Нужно чтобы моя программа умела обрабатывать входящие сообщения по протоколу SMTP порт 25.
Суть такая, если какой либо почтовый клиент пытается соединиться с компьютером по протоколу SMTP 25, нужно его авторизовать (по имя/пароль и ip адресу), и принять от него сообщение.
Что-то вроде почтового сервера.
Ума не приложу с чего начать. Все статьи, которые нашел, описывают работу почтового клиента.
Подскажите умную статью или дайте совет.
Отправлен: 28.02.2008, 11:12
Вопрос задал: Munster (статус: 9-ый класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Sosedov A.I.
Здравствуйте, Munster!
В Delphi 7 уже есть SMTP сервер от Indy. Может, его будет достаточно? Сам с ним не работал.
Ответ отправил: Sosedov A.I. (статус: 2-ой класс)
Ответ отправлен: 28.02.2008, 11:18 Оценка за ответ: 5 Комментарий оценки: Спасибо, буду пробовать!
Отвечает: Лысенков Антон Анатольевич
Здравствуйте, Munster!
Вам поможет TIDSMTPServer из вкладки Indy Servers.
пример использования есть здесь http://www.indyproject.org/DemoDownloads/Indy_10_SMTPServer.zip
Ответ отправил: Лысенков Антон Анатольевич (статус: 6-ой класс)
Ответ отправлен: 28.02.2008, 14:32 Оценка за ответ: 5 Комментарий оценки: Большое спасибо!!!
