Программа на Delphi. Помогите.
|
|
ЁжеГ | Дата: Суббота, 22 Января 2011, 18:23 | Сообщение # 1 |
почетный гость
Сейчас нет на сайте
| Нужна помощь с программкой. Надо написать программу, в которой текстбокс и кнопка. Вставляем текст в текстбокс. При нажатии кнопки в начале каждой строчки ставится а после первого знака ":" ставится . Самому не хватает опыта... помогите пожалуйста.
Сообщение отредактировал ЁжеГ - Суббота, 22 Января 2011, 18:24 |
|
| |
VarXdar | Дата: Суббота, 22 Января 2011, 18:31 | Сообщение # 2 |
Работник Ubisoft
Сейчас нет на сайте
| Вот на примере с Memo, сижу с телефона, проверить код не могу Code For I := 0 to Memo1.Lines.Count-1 do Begin Memo1.Lines[i] :='[b]' + Memo1.Lines[i] ; End;
Сообщение отредактировал VarXdar - Суббота, 22 Января 2011, 19:36 |
|
| |
ЁжеГ | Дата: Суббота, 22 Января 2011, 19:04 | Сообщение # 3 |
почетный гость
Сейчас нет на сайте
| Блин. Извините за нубство, но понять не могу тТ
|
|
| |
LibertyClaw | Дата: Суббота, 22 Января 2011, 19:28 | Сообщение # 4 |
Недо-программист
Сейчас нет на сайте
| ЁжеГ, мда... Здесь простой код! VarXdar, написал прекрасный рабочий пример, что еще надо?
Постараюсь быть хорошим
|
|
| |
GECK | Дата: Суббота, 22 Января 2011, 19:47 | Сообщение # 5 |
заслуженный участник
Сейчас нет на сайте
| Собсно, полное решение: Code var i,p:integer; ... for i:= 0 to Memo1.Lines.Count-1 do begin Memo1.Lines[i] :='[b]' + Memo1.Lines[i]; p:=pos(':',Memo1.Lines[i]); if p>0 then Memo1.Lines[i]:=copy(Memo1.Lines[i],1,p)+'[/b]'+copy(Memo1.Lines[i],p,length(Memo1.Lines[i])-p); end; ... Немного быдлокодно, но работает,проверял)
Всё гениальное просто. И хреново работает.
Сообщение отредактировал GECK - Суббота, 22 Января 2011, 19:49 |
|
| |
ЁжеГ | Дата: Воскресенье, 23 Января 2011, 10:25 | Сообщение # 6 |
почетный гость
Сейчас нет на сайте
| В смылсе я вообще жуткий нуб в Делфи... я не знаю куда это вставлять. Пытался вставить в код кнопки, не получилось...
|
|
| |
GECK | Дата: Воскресенье, 23 Января 2011, 10:39 | Сообщение # 7 |
заслуженный участник
Сейчас нет на сайте
| Ок, тогда подробно. Кидаешь на форму Memo, зовешь его Memo1. Далее кнопку, ее Button1. Дабл-клик на кнопке, и приводишь ее код в такой вид: Code procedure TForm1.Button1Click(Sender: TObject); var i,p:integer; begin for i:=0 to Memo1.Lines.Count-1 do begin Memo1.Lines[i] :='[b]' + Memo1.Lines[i]; p:=pos(':',Memo1.Lines[i]); if p>0 then Memo1.Lines[i]:=copy(Memo1.Lines[i],1,p)+'[/b]'+copy(Memo1.Lines[i],p,length(Memo1.Lines[i])-p); end; end;
Всё гениальное просто. И хреново работает.
|
|
| |
kiselev | Дата: Воскресенье, 23 Января 2011, 10:44 | Сообщение # 8 |
участник
Сейчас нет на сайте
| GECK, Всё гениальное просто. И хреново работает.
|
|
| |
ЁжеГ | Дата: Воскресенье, 23 Января 2011, 11:13 | Сообщение # 9 |
почетный гость
Сейчас нет на сайте
| Блин, спасибо большое. Помогли. GECK, +1. Тему можно закрывать.
|
|
| |