Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];
Вниз
Вставка символов Найти похожие ветки
← →
_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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
