Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

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


Tadeush   (2002-02-06 13:04) [0]

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



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

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



Basilio   (2002-02-06 13:12) [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) [3]

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



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

Спасибо




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.02 c
4-66706           masha                 2001-12-23 01:18  2002.02.21  
WIN API


14-66656          DjG-CORE              2001-10-29 20:03  2002.02.21  
Ведётся создание игры Resident Evil на TMT Pascal-е / Delphi.


3-66435           Alan                  2002-01-27 12:22  2002.02.21  
Добавление таблицы в базу MS SQL Server 7.0


1-66596           Georg                 2002-02-04 18:31  2002.02.21  
TrackBar


1-66613           Геральт               2002-02-03 21:18  2002.02.21  
Run-time создание компонент