Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Вниз

text iz memo pri perenisenii v pis mo stanovitsja v odnu strochku   Найти похожие ветки 

 
Catherin   (2003-12-26 15:02) [0]

Zdravstvujte, neponimaju po4emu eta programka vse stro4ni iz memo1 sleplivaet v odnu stro4ku. 4to nado sdelat" 4tob etogo izbezhat" (4tob stro4ki razdel"at" enterom). Zaranee blagodarna :)

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:="mailto:catherin@yandex.ru?Subject=Test&Body="+memo1.text;
ShellExecute(Self.Handle, nil,
Pchar(s),
nil, nil, SW_NORMAL);
end;


 
alex_***   (2003-12-26 15:04) [1]

""+#13#10+"" - 2 строки


 
catherin   (2003-12-26 15:32) [2]

kak to u menja nepolu4aetsja. Pozhalujsta napeshite mne vsju proceduru. Zaranee spasibo.


 
alex_***   (2003-12-26 15:43) [3]

))
Memo1.Lines.Delimiter:=#13;
s:="mailto:catherin@yandex.ru?Subject=Test&Body="+Memo1.Lines.DelimitedText;

??


 
cathrein   (2003-12-26 15:55) [4]

Nea, on tak i tak sleplivaet tekst v odnu stro4ku :(


 
alex_***   (2003-12-26 15:58) [5]

не может быть. ты как проверяешь кол-во строк? разделитель нужен Enter или еще возврат каретки?


 
catherin   (2003-12-26 16:00) [6]

Vi sami poprobujte. U menja ne idet. Mozhet gde oshibka?

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
Memo1.Lines.Delimiter:=#13;
s:="mailto:catherin@yandex.ru?Subject=Test&Body="+Memo1.Lines.DelimitedText;
ShellExecute(Self.Handle, nil,
pchar(s),
nil, nil, SW_NORMAL);
end;


 
alex_***   (2003-12-26 16:04) [7]

честно сказать я так не пробовал отправлять письма. Вызывал просто mailto: xxx@yyyy, после чего текст вбивался в почтовой программе. Может кто другой так делал (( А проверять время нет.


 
catherin   (2003-12-26 16:07) [8]

spasibo za popitku pomo4. Ja dal"she mu4asja budu :)Mozhet 4onibud" i polu4itsja


 
alex_***   (2003-12-26 16:12) [9]

есть такая прога SendMail, вызываешь у себя с нужным ini файлом и она отсылает что надо без проблем (по smtp).


 
catherin   (2003-12-26 16:16) [10]

ok spasibo :)


 
alex_***   (2003-12-26 16:18) [11]

если при вызове еще и прятать ее, то никто и не заметит ))
могу переслать...



Страницы: 1 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.007 c
11-37594
BaRToV
2003-04-20 15:48
2004.01.13
kol.mastak.ru


14-37850
PaRL
2003-12-22 20:03
2004.01.13
Сертификация(Retra Tech)


1-37763
miracle_fox
2003-12-29 17:00
2004.01.13
клавиша <enter> в Edit - как придать ей особое значение?


1-37637
tria
2003-12-30 20:07
2004.01.13
Стандартные Action - как выполнить по ним свой код?


1-37779
alexnmsk
2003-12-26 16:23
2004.01.13
Hint в TreeView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский