Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
ВнизКак развернуть строку. Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c