| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как развернуть строку. [D5, Win2k]

Tadeush ©   (2002-02-06 13:04:00) 

Есть строка AnsiString например А121 как ее развернуть в 21А1

---

Tadeush   (2002-02-06 13:18:00) [1]

Спасибо

---

Basilio   (2002-02-06 13:12:00) [2]


procedure TurnString(var S:AnsiString);
var i:integer;
swap:char;
begin
for i:=1 to length(AnsiString) div 2 do
begin
swap:=S[i];
S[i]:=S[Length(S)-i+1)];
S[Length(S)-i+1)]:=swap;
end;
end;


---

Tadeush   (2002-02-06 13:12:00) [3]

в обратном.... я на мех мате не учился . Тем более в МГУ

---

Basilio   (2002-02-06 13:08:00) [4]

Что значит развернуть? Написать в обратном порядке?
Это одна из задачек на зачет по программированию на мехмате МГУ для первого курса (правда на языке С)

---

Наверх