Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Февраль 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
21.02.2006
10:44:51
15:43:48
22
23
24
25
26
27
28


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 399
от 28.02.2006, 12:09

Администратор:Калашников О.А.
В рассылке:Подписчиков: 264, Экспертов: 68
В номере:Вопросов: 3, Ответов: 4

Вопрос № 35983: Здравствуйте Уважаемые Эксперты! Помогите пожалуйсто кто скачивал и устанавливал Borland Developer Studio 2006. Скачал четыре файла Borland Developer Studio 2006 CD1,CD2,CD3,CD4 с раширение (bin), но они почему-то не хотят открываться. Подскажите пож...
Вопрос № 36003: Здраствуйте уважаемые эксперты Я хочу написать прогу которая из текста будет вытягивать e-mail'ы но сам немогу это реализовать, нашел в нете какието исходники (в приложении) помогите зделать чтобы файл можно было загружать в мэмо и оттуда вытягив...
Вопрос № 36010: Мир вам, уважаемые эксперты! В очередной раз нужен добрый совет... Всяческие "вражеские" языки программирования (ну, фортран, например ;) ) имеют весьма мощные и удобные средства для форматированного ввода/вывода (речь о файлах). Др...

Вопрос № 35.983
Здравствуйте Уважаемые Эксперты! Помогите пожалуйсто кто скачивал и устанавливал Borland Developer Studio 2006. Скачал четыре файла Borland Developer Studio 2006 CD1,CD2,CD3,CD4 с раширение (bin), но они почему-то не хотят открываться. Подскажите пожалуйсто какой программой их нужно открывать. И серийный номер для активации Borland Developer Studio 2006. Заранее спасибо.
Отправлен: 22.02.2006, 16:33
Вопрос задал: Шишкин М.А. (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Denisss

Здравствуйте, Шишкин М.А.!

1. *.bin файлы - файл-образы дисков - можно открыть с помощью таких программ, как Daemon Tools (бесплатно) или Alcohol 120% (это за деньги).

2. Серийный номер для активации Вам тут никто не даст. А кто даст, тот получит строгое предупреждение и его ответ тут же будет удален. По правилам давать информацию о взломе программ запрещено.
Единственное, что могу посоветовать: смотрите на скачанных Вами дисках. Там возможно есть все, что нужно для активации (ищите папку crack).

Удачи!
Ответ отправил: Denisss (статус: Специалист)
Отправлен: 22.02.2006, 19:48
Оценка за ответ: 5

Вопрос № 36.003
Здраствуйте уважаемые эксперты
Я хочу написать прогу которая из текста будет вытягивать e-mail'ы но сам немогу это реализовать, нашел в нете какието исходники (в приложении) помогите зделать чтобы файл можно было загружать в мэмо и оттуда вытягивать email'ы с помощю этих исходников что в приложении.
Заранее спасибо.

Приложение:

Отправлен: 22.02.2006, 21:32
Вопрос задал: Станислав (статус: 1-ый класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Ерёмин Андрей
Здравствуйте, Станислав!
Идём обходным путём. Скачиваем следующий модуль: GruString. Функция GetHtmlMail() как раз вытягивает все e-mail адреса из строки. Например:

if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Memo1.Lines:=GetHtmlMail(Memo1.Text);
end;


---------
Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессионал)
Отправлен: 22.02.2006, 21:47
Оценка за ответ: 4
Отвечает: Ataman N. N.
Здравствуйте, Станислав!
Загрузка файла в Memo: Memo1.Lines.LoadFromFile(<FileName>);
Пусть в Memo2 будут находиться адреса. Как работает приведенная процедура, я не розбирался, но я бы ее переделал вот так:
procedure Skan(Text: String;slEmail: TStringList);
var
S, SPart: String;
idx, idxKey, SLen: integer;
begin
S := Text;
idxKey := Pos('@', S);
idx := IdxKey;
SLen := Length(S);
while idxKey > 0 do
begin
repeat
Dec(Idx);
until (not (S[Idx] in ['a'..'z','A'..'Z','0'..'9','-','_','.'])) or (Idx = 1);
if Idx <> 1 then Inc(Idx);

repeat
Inc(IdxKey);
until (not (S[IdxKey] in ['a'..'z','A'..'Z','0'..'9','-','_','.'])) or (IdxKey > SLen);
SPart := Copy(S, Idx, IdxKey - Idx);
slEmail.Add(SPart);
Delete(S, 1, IdxKey);
SLen := Length(S);
IdxKey := Pos('@', S);
Idx := IdxKey;
end;
Поместите на форму кнопку, пусть Button1, тогда по нажатию на кнопку делаем следующее:
Memo2.Clear;//если хотите
Scan(Memo1.Text, Memo2.Lines);
Ответ отправил: Ataman N. N. (статус: 8-ой класс)
Отправлен: 22.02.2006, 21:55
Оценка за ответ: 5

Вопрос № 36.010
Мир вам, уважаемые эксперты!
В очередной раз нужен добрый совет...
Всяческие "вражеские" языки программирования (ну, фортран, например ;) ) имеют весьма мощные и удобные средства для форматированного ввода/вывода (речь о файлах). Другими словами позволяют без плясок с бубном читать/писать в файл "с соблюдением столбиков" (не смейтесь, это не так просто объяснить...), примерно так:

.500E-02: MU - TURBULENT VISCOSITY
1.4 :GAM - ADIABATIC EXPONENT
313. : T - INITIAL TEMPERATURE , K
N X Y SOURCE FACE
1 0.00 50.00 1 1
2 0.00 100.00 1 1
3 0.00 700.00 2 2

и т.д. и т.п.
Как это по-проще и по-правильней сделать в дельфях (требуется регулировка "положения" столбца, чтоб между числами всегда был пробел, число символов после запятой и пр.)
Как я сейчас делаю - см. приложение, но мне не нравится...
С уважением, Лука.

Приложение:

Отправлен: 22.02.2006, 23:47
Вопрос задал: Luka (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: sir henry
Здравствуйте, Luka!
Не знаю, как там в фортране, но в Вашей задаче пляски с бубном совершенно не нужны. :)
Если речь идет о том, чтобы красиво расположить данные в виде таблицы, то нужно воспользоваться средствами WriteWriteLn, которые задают общее количество знаков и количество знаков после запятой. Вот пример:
var
n, source, face: integer;
x, y: extended;
f: textfile;
Begin
AssignFile(f, 'outfile.txt');
Rewrite(f);
{Это шапка}
WriteLn(f, 'N':3, 'X':5 ,'Y':7, 'SOURCE':7, 'FACE':7);
For n:=1 to 3 do
{Процесс вычисления приводить не буду - это Ваше дело :) }
WriteLn(f, N:3, X:5:2 ,Y:7:2, SOURCE:7, FACE:7);
End;
Если речь идет только о том, чтобы вставить пробел между данными, то тут и вообще пустяки:
WriteLn(f, N, #32, X, #32, Y, #32, SOURCE, #32, FACE);
Но получится некрасиво - как у Вас. :)
Для более сложных случаев есть функция Format().
Ответ отправил: sir henry (статус: Академик)
Отправлен: 23.02.2006, 11:11
Оценка за ответ: 5

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.15 от 25.02.2006 		Яндекс Rambler's Top100
В избранное