|
Вопрос # 679/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты! Как можно из memo перенести в label текст стоящий перед каким-нибудь символом и после него? Заранее благодерен!!!
 |
Вопрос задал: Anton-L (статус: Посетитель)
Вопрос отправлен: 29 июня 2007, 18:59
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Лобашов Антон Владимирович!
хм, загадочно поставлен вопрос, но попытаюсь ответить.
Пусть, s:string; k:integer;
тогда
s:=memo1.lines.text; //скопировали текст
k:=pos('*',s);//нашли позицию звёздочки в тексте
if k=0 begin
ShowMessage('Ключевой символ не найден!');
exit;
end;
Label1.caption:=copy(s,1,k-1);//скопируем весь текст от начала до звёздочки, не включая её.
Label2.caption:=copy(s,k+1, maxint);//скопируем весь текст от звёздочки, не включая её до конца текста.
Только есть одно но. тексто то в мемо многострочный, а в метке - односточный. и тут наверно нужно сделать так: после s:=Memo1.lines.text; дописать
s:=StringReplace(s,#13#10,'',[rfReplaceAll]);
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 29 июня 2007, 19:19
Оценка за ответ: 5
Комментарий к оценке: Большое спасибо!!!
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
