Подскажите, пожалуйста, как скопировать определенный текст в 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

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