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

Ваш аккаунт

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

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

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

обработка символов и строк на языке паскаль(Help)

79K
22 января 2012 года
klimchik
1 / / 22.01.2012
Народ помогите с задачкой:Вставить пробел перед последними 2-мя символами в слова, имеющие минимальную (заданную) длину.
Впринципе понимаю что нужно просто вставить но что то непойму как еёт составить
19K
23 января 2012 года
Alegun
269 / / 10.09.2010
Цитата: klimchik
Вставить пробел перед последними 2-мя символами в слова, имеющие минимальную (заданную) длину.



Код:
procedure InsChrToPosWords(var ds: string; vs: integer);
var
i: integer;
s1,s2: string;
begin
s1:='';
s2:='';
for i:= 1 to length(ds) do
begin
s1:= s1 + ds;
 if ds=' ' then
 begin
  if length(s1)-1 = vs then
  insert(' ', s1, length(s1)-2);
  s2:= s2 + s1;
  s1:= '';
 end;
end;
ds:= s2;
end;


Использование:

Код:
var
s: string;
begin
s:='12 123 1234 12345 12345 12345 12345678 123456789';

InsChrToPosWords(s,5);

// s теперь будет такая:

//  12 123 1234 123 45 123 45 123 45 12345678 123456789

end;


Обёртку надеюсь, сделаете сами.

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

Ваш ответ

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