| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вставка символов [D7, WinXP]

_HAWK_ ©   (2006-06-20 14:46:00) 

Привет всем! Помогите пожалуйста: у меня на форме валяется Memo, юзер, допустим, ввел две строчки:
Первая строка
Вторая строка
Как сделать так, чтобы при нажатии кнопки перед началом и в конце строки вставлялись символы "и #13#10?

Пример: "Первая строка"#13#10

---

PZ   (2006-06-20 16:58:00) [1]

Может быть так:
procedure TForm1.Button1Click(Sender: TObject);
Var
 I : Integer;
 S : String;
begin
 For I := 0 to Memo1.Lines.Count-1 do
   begin
     S := '"'+Memo1.Lines.Strings[I]+'"';  // Вставляем кавычки, #13#10 автоматически добавятся
     Memo1.Lines.Delete(I);
     Memo1.Lines.Insert(I, S);
   end;
end;

---

Unknowing   (2006-06-20 15:54:00) [2]

> _HAWK_   (20.06.06 14:46)  

Сам не силен, но обрабатывай событие onKeyPress и вставляй там

---

_HAWK_   (2006-06-20 15:50:00) [3]

Ну кто-нибудь помогите, плиз...

---

_HAWK_   (2006-06-20 14:54:00) [4]

> var YourText: String;
> YourText := Memo1.Lines[0].Text+#13#10
>
> это тебе надо было?

Нет, не то...

---

fastcall   (2006-06-20 14:50:00) [5]

var YourText: String;
YourText := Memo1.Lines[0].Text+#13#10

это тебе надо было?

---

Наверх