| 
| 
 | Вопрос # 2 296/ вопрос открыт / | 
 |  Здравствуйте!подскажи пожалуйста что означает:\\"POS\\"
 Приложение:Переключить в обычный режим procedure TForm1.Button1Click(Sender: TObject);var s:shortString;    k:integer;begins:=edit1.Text;while length(s)>0 do begin  k:=POS(' ',s);  if k=0 then begin               edit2.Text:=s;               break;              end         else          delete(s,k,1); end; 
|  |   Вопрос задал: joke (статус: Посетитель)Вопрос отправлен: 11 января 2009, 20:59
 Состояние вопроса: открыт, ответов: 1.
 |  Ответ #1. Отвечает эксперт: min@y™ Это функция поиска позиции начального символа первого вхождения подстроки в строку. В любой книжке по паскалю, не говоря уж о справке (F1), есть описание этой функции.
 В данном случае k:=POS(' ',s); - это поиск первого пробела в строке s.
 
|  | Ответ отправил: min@y™ (статус: Доктор наук)Время отправки: 11 января 2009, 21:12
 
 |  
 Мини-форум вопросаВсего сообщений: 1; последнее сообщение — 13 января 2009, 23:18; участников в обсуждении: 1. 
|   | Паровоз (статус: 10-ый класс), 13 января 2009, 23:18 [#1]:А что, F1 не раблтает? |  Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |