своя процедура <insert>, ошибка Опции

[TS*]

Процедура должна быть аналогичная стандартной процедуре <insert>, я где то допустил ошибку(неправильно
выводит результат), посмотрите может заметите wacko: :

procedure my_insert(source:string;s:string;index:integer);
var
   s_t:string;
   i,j,count:byte;
begin
   for i:=1 to length(source) do 
   s:=s+' ';
   count:=0;
   for i:=1 to length(source) do
   begin
      for i:=(length(s)+count) downto (index+count) do
      begin
         s[i+1]:=s[i];
         s[i]:=' ';
      end;
      inc(count);
   end;

   for j:=1 to length(source) do
   for i:=index to (index+length(source)) do
   s[i]:=source[j];
   s1:=s;
end;

[GoodWind]

можно еще вытеснить "лишние" символы:

Код

   T := '';
   if start>length(source) then start:=length(source);
   for i := 1 to start - 1 do T := T + source[i];
   i:=1;
   while (i<= length(subS) ) and (i<=255) do
   begin  
    T := T + subs[i];
    inc(i);
   end;
   i:= start;
   while (i<= length(source)) and(i<=255) do
   begin
    T := T + source[i];
    inc(i);
   end;
   source := T;

! компилятора под рукой нет, код не проверялся !

исправлено.

Сообщение отредактировано: GoodWind - 16.02.2006 1:41