Как развернуть строку?

Есть строка "4169BB8C", как развернуть её в обратном порядке по 2 символа что бы получилось "8CBB6941"?
  • Вопрос задан
  • 62 просмотра
Пригласить эксперта
Ответы на вопрос 1
@DevDemi
procedure TForm1.Button1Click(Sender: TObject);
var
 st,st1:string;
 i,l:integer;
begin
 st:='4169BB8C';   // => 8CBB6941
 l:=length(st);
 st1:='';
 i:=1;
 repeat
  st1:=st1+st[l-i]+st[l-i+1];
  i:=i+2;
 until i>=l;
 Form1.Caption:=st+'=>'+st1;
end;
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через TM ID
Похожие вопросы