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]

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

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