|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
data.Add('data[Sms][message]='+AnsiToUtf8(StringReplace(Memo1.Lines.Text, #13#10, '<пробел>', [rfReplaceAll, rfIgnoreCase])));
спасибо очень выручило... |
#17
|
||||
|
||||
Delphi 6:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Text:='hello world'; end; end. |