Подскажите, пожалуйста, как скопировать определенный текст в memo [D2005, XP, 2003]
BiT © (2008-11-17 13:49:00)
Подскажите, пожалуйста, как скопировать определенный текст в
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:00) [1]
http://articles.org.ru/cfaq/index.php?qid=751
Наверх 
ЧАТ |
Орешник |
|
