Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11654
Последний выпуск: 19.06.2015

процедура которая находит слова в строке по номеру

79K
30 ноября 2015 года
santafe
14 / / 29.11.2015
помогите написать процедуру "процедура которая находит слова в строке по номеру"
211
01 декабря 2015 года
wanja
1.2K / / 03.02.2003
Код:
procedure WordByNum(s:string;n:integer;var ress:string);
var i,k:integer;
begin
i:=1;
k:=1;
while (s[k]=' ')or (k<=Length(s)) do
        inc(k);
while (i<n)and(k<=Length(s)) do
    begin
    while (s[k]<>' ')or (k<=Length(s)) do
        inc(k);
    while (s[k]=' ')or (k<=Length(s)) do
        inc(k);
    if k<=Length(s) then
        inc(i);
    end;
ress:='';
if k<=Length(s) then
    while (s[k]<>' ')or (k<=Length(s)) do
        begin
        ress:=ress+s[k];
        inc(k);
        end;
end;
Примерно так... Не отлаживал, так что возможно потребуется обработка напильником.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог