Строки в Delphi

[534]

Вставить в строку S, подстроку длиной L, начиная с по N

Требование:
1. console application
2. В задаче не используйте функции и процедуры для выполнения операций над строкой, а рассматривайте строку как массив символов

Помогите плз, а то я не смогла понять)))

[fbus]

если нет никаких наработок, пиши в аську, сделаю

[534]

ну напишите пожалуйста код девушке, ну пожжааааллууйййссттаа)))

[psycho-coder]

for i := 0 to Length(str) - 1 do
{ что-то }

[534]

не поняла, что это))))

[534]

uppp, ну кто поможет?

[psycho-coder]

Итак, строка - есть массив символов!
Вот тема в которой реализовано объединение двух массивов со смещением
http://www.programmersforum.ru/showthread.php?t=71502

[534]

Ну напишите мне пожалуйста код под мою программу, а тооч срочно нужно)))

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   var sss,s,ss:string;i,n:integer;
begin
 s:='Hello world';
 ss:=' bull shit';
 n:=5;
 for i:=1 to n do sss:=sss+s[i];
 for i:=1 to length(ss) do sss:=sss+ss[i];
 for i:=n+1 to length(s) do sss:=sss+s[i];
 writeln(sss);
 readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

С вас ужин, мадемуазель.

[534]

сделайте пожалуйста мне,чтобы S, L,N компьютер вводил за меня))) а то меня с такими словами не поймут(((