Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

Замена подстрок

Автор: Сергею Шамайтис


function ReplaceSub(str, sub1, sub2: string): string;
var
  aPos: Integer;
  rslt: string;
begin
  aPos := Pos(sub1, str);
  rslt := '';
  while (aPos <> 0) do
  begin
    rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
    Delete(str, 1, aPos + Length(sub1) - 1);
    aPos := Pos(sub1, str);
  end;
  Result := rslt + str;
end;

           


Трубы pragma со структурированной стенкой в Новосибирске. Труба pragma круто. . Регистрация ООО в Украине: регистрация компаний. Товары и услуги, продажа и купля. . купить сериалы почтой . химчистка шевроле эванда .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011