Скачать: CL | DM;

Вставка символов   Найти похожие ветки 

← →
_HAWK_   (2006-06-20 14:46) [0]

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

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

---

← →
fastcall   (2006-06-20 14:50) [1]

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

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

---

← →
_HAWK_   (2006-06-20 14:54) [2]

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

Нет, не то...

---

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

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

---

← →
Unknowing ©   (2006-06-20 15:54) [4]

> _HAWK_   (20.06.06 14:46)  

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

---

← →
PZ   (2006-06-20 16:58) [5]

Может быть так:
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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c