Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Помогите пожалуйста. 


HDD   (2002-02-05 16:23) [0]

var
i: integer;
s : string;
begin
for i:=0 to RichEdit1.Lines.Count - 1 do
ShellExecute(handle,"open",PChar("mailto:ctapik-net@inbox.ru?subject=Report a bug&body="+ RichEdit1.Lines.Strings[i]), NIL, NIL, SW_SHOWNORMAL);
Хочу чтобы текст с моего редактора попадал в почтовую программу.
Но получается что каждая строка открывается в новом письме?
И ещё вопросик:
if RichEdit1.SelLength >0 then
RichEdit1.Lines.Text:= AnsiUpperCase(PChar(RichEdit1.SelText));
Чё-то не догоню как сделать чтобы в Большие буквы переходил только выделенный текст
Заранее благодарен Кирилл



Basilio   (2002-02-05 16:34) [1]

1) ShellExecute(handle,"open",PChar("mailto:ctapik-net@inbox.ru?subject=Report a bug&body="
+ RichEdit1.Text), NIL, NIL,SW_SHOWNORMAL);
2) RichEdit1.SelText:=AnsiUpperCase(RichEdit1.SelText);



MBo   (2002-02-05 16:34) [2]

1)
a bug&body="+ RichEdit1.Lines.Text),
и без цикла
2)
RichEdit1.SelText:= AnsiUpperCase(RichEdit1.SelText);



HDD   (2002-02-05 16:40) [3]

Благодарю вас



HDD   (2002-02-05 16:44) [4]

А с почтой получается такая беда. У меня в редакторе 3 строчки а в почтовом клиенте всё в одну



HDD   (2002-02-06 00:41) [5]

Помогите плиз



Donal_Graeme   (2002-02-06 03:00) [6]

хм...возможно, надо символы переноса строки заменить на тэги BR




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
1-66522           DenMat                2002-02-07 09:53  2002.02.21  
Поинтер


14-66684          Ender                 2001-12-29 20:04  2002.02.21  
Скачка Сайтов


14-66660          IrviS                 2001-12-31 20:59  2002.02.21  
Что-то типа домино, но сложнее


14-66686          Gayrus                2001-12-27 03:12  2002.02.21  
C++ -> Delphi


1-66577           vector                2002-02-05 19:20  2002.02.21  
Delphi начал тормозить