Текущий архив: 2004.02.29;
Скачать: CL | DM;

Вниз

Как занести строку в переменную в инвентируемом виде?   Найти похожие ветки 

← →
Pancha   (2004-02-17 18:03) [0]

Подскажите как конвертировать значение строковой переменной, в читаемость с права на лево. Спасибо

---

← →
Pancha   (2004-02-17 18:15) [1]

т.е. чтобы "папа" стало "апап"

---

← →
just me   (2004-02-17 18:21) [2]

AnsiReverseString

---

← →
default ©   (2004-02-17 18:37) [3]

procedure ReverseString(var Str: String);
var
i: Cardinal;
Ch: Char;
begin

for i := 1 to Length(Str) div 2 do begin
Ch := Str[i];
Str[i] := Str[Length(Str) - i + 1];
Str[Length(Str) - i + 1] := Ch
end;

end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c