|
Программа на 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.
Тему можно закрывать.
|
|
|
| |
