вот делаю самостоятельную и столкнулся с трудностями:
мне нужно найти в строке слово и перенести первую букву в конец этого слова,
оно первое слово обрабатует а дальше не хочет(
в чем может быть проблема?
Code
var
str,s1: string;
nach,fin,dlin: integer;
i: integer;
begin
str:=Edit1.Text;
dlin:=length(str);
Insert(' ',str,dlin+1);
Insert(' ',str,1);
if RadioButton1.Checked=true then
repeat
nach:=pos(' ',str);
delete(str,nach,1);
insert('+',str,nach);
fin:=pos(' ',str);
Insert(str[nach+1],str,fin);
Delete(str,nach+1,1);
until nach<dlin+2;
заранее спасибо