dimka11gg
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
var
Form1: TForm1;
a,i,n,l:integer;
s,str,str2:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//
Edit2.Clear;
n:=0;
i:=0;
str:='';
s:='';
str2:='';
//
n:=StrToInt(Edit3.text);
str:=Edit1.text;
a:=n;
l:=Length(str);
// Length(str)
while a < l do
begin
s:=copy(str,1,n);
delete(str,1,n);
for i := n downto 1 do
begin
str2:=str2+s[i];
Edit2.text:=str2;
end;
inc(a);
end;
end;
|
Всего записей: 503 | Зарегистр. 15-06-2010 | Отправлено: 10:53 27-12-2015 | Исправлено: dimka11gg, 10:56 27-12-2015 |
|
