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

Подскажите, пожалуйста, как скопировать определенный текст в memo   Найти похожие ветки 

← →
BiT   (2008-11-17 13:49) [0]

Подскажите, пожалуйста, как скопировать определенный текст в memo?
Может, есть уже таки примеры, но поиск не дал результатов

Надо найти  текст в memo (class)+(пробел) копируем (SuperMidlet) {Это имя MIDlet} и передаем его в Edit. Почему я так делаю, а потому что имя  MIDlet  (SuperMidlet) может быть любым, но одно успокаивает, что оно идет всегда после слова class .

Ps. Это будущий мини редактор java.
-----------------------------------------------------------
Этот текст у  меня в memo

import javax.microedition.midlet.MIDlet;
public class SuperMidlet extends MIDlet
{
       public void pauseApp()
       {
       }
       public void destroyApp(boolean flag)
       {
       }
       public void startApp()
       {
       }
}

--------------------------------------------------------------

Вот что я делаю:

procedure TForm1.Button1Click(Sender: TObject);
var s,word: string;
i: integer;
begin
for i:=0 to Memo1.Lines.Count-1 do begin
//нахожу  слово  class
 if Pos("class",Memo1.Lines.Strings[i])>0 then
//если нашел
//делаю это
 s:=Memo1.Text;
 word:=Copy(s,pos("class",s)+6); // тут надо чтоб он  после
//слова class + пробел скопировал слово  SuperMidlet до следующего пробела и передал в Edit
//а у меня получается он копирует все, что после  class + пробел
Edit1.Text:=word;

end;

Хотя этот код полный бреет, но нечего лучшего не придумал.

---

← →
AIK ©   (2008-11-17 14:50) [1]

http://articles.org.ru/cfaq/index.php?qid=751

---

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

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



Память: 0.45 MB
Время: 0.013 c