Среда, 13 Ноября 2024, 10:40

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Программа на Delphi. Помогите.
ЁжеГДата: Суббота, 22 Января 2011, 18:23 | Сообщение # 1
почетный гость
Сейчас нет на сайте
Нужна помощь с программкой.
Надо написать программу, в которой текстбокс и кнопка.
Вставляем текст в текстбокс. При нажатии кнопки в начале каждой строчки ставится
Code
[b]

а после первого знака ":" ставится
Code
[/b]
.

Самому не хватает опыта... помогите пожалуйста.




Сообщение отредактировал ЁжеГ - Суббота, 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.
Тему можно закрывать.


  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг