Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2011, 04:43   #1
Andi5
Новичок
Джуниор
 
Регистрация: 23.11.2011
Сообщений: 2
Вопрос Написать процедуру, заменяющую стандартную процедуру Insert

Доброго времени суток.Нужна помощь.
Существует стандартная процедура на языке паскаль Insetr(вставка подстроки в строку)
нужно написать процедуру которая заменит функцию Insert.

у меня вышло как,не уверен что вообще правильно но все равно не работает:
Код:
procedure INS(str,substr:string;num:int; var FinalStr:string);
var
i: integer;
begin
Write('Enter Num'); Readln(Num);
for i:=1 to Num do
FinalStr[i]:=str[i];
for i:=1 to length(substr) do
FinalStr[i+Num]:=substr[i];
for i:=1 to (Length(Str)-Num) do
FinalStr[i+Num+Length(substr):=Str[i+Num];
end;
помогите пожалуйста




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 23.11.2011 в 08:30.
Andi5 вне форума Ответить с цитированием
Старый 23.11.2011, 08:42   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

всё не так!
Вы вообще смотрели на параметры стандарной процедуры Insert ?!

первым параметром идёт константная переменная (переменная, которая не изменяется в теле процедуры) - это вставляемая подстрока.
второй параметр - переменная, куда собственно и происходится вставка.
третий параметр - индекс (позиция), куда производить вставку.

я бы написал что-то вроде такого:
Код:
procedure MyInsert(Source: String; var S: String; Index: Integer);
var sResult : string;
 i : integer;
begin
  sResult := '';
  if Index>Length(S) then Index := Length(S); 
  {копируется начальная часть исходной строки (до позиции вставки) }
  for i:=1 to Index-1 do sResult := sResult + S[i];

  {копируется вставляемая подстрока  }
  for i:=1 to Length(Source) do sResult := sResult + Source[i];

  {копируется остаток исходной строки (после позиции вставки) }
  for i:=Index to Length(S) do sResult := sResult + S[i];

  {замена исходной строки на результирующую}
  S := sResult;
end;

p.s. свой код я не проверял, писал прямо здесь, в браузере. могут быть опечатки и мелкие ошибки...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 24.11.2011, 17:57   #3
Andi5
Новичок
Джуниор
 
Регистрация: 23.11.2011
Сообщений: 2
По умолчанию

Спасибо все работает
Andi5 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
написать процедуру авторизации на сайте art-programs Фриланс 0 25.03.2011 17:32
Написать основную процедуру to-ot Помощь студентам 0 23.12.2010 21:55
HELP! Необходим скрипт на VB, автоматизирующий стандартную процедуру импорта из текстового файла Kerguru Microsoft Office Access 1 17.12.2009 20:33
Помогите написать процедуру ehoolu Microsoft Office Access 4 20.11.2009 06:58