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

Вниз

Как поменять символы в обратном порядке?   Найти похожие ветки 

← →
sagchat ©   (2003-10-31 13:41) [0]

Например :
Delphi: ihpleD

---

← →
Sandman25 ©   (2003-10-31 13:45) [1]

В цикле.
Len := Length(S);
LenPlus1 := Len + 1;
for i := 1 to Len div 2 do
begin
Tmp := S[i];
S[i] := S[LenPlus1-i];
S[LenPlus1-i] := Tmp;
end

---

← →
Думкин ©   (2003-10-31 13:48) [2]

попихать и вытащить в обратной склейке.

---

← →
VAleksey ©   (2003-10-31 13:50) [3]

procedure TForm1.Button1Click(Sender: TObject);
Var
Str,ReversStr:String;
i:integer;
begin
Str := "Delphi";
ReversStr := "";
for i:= Length(Str) downto 1 do
ReversStr := ReversStr + Str[i];
Button1.Caption := Str + " / "+ ReversStr;
end;

---

← →
Brahman ©   (2003-10-31 14:16) [4]

А кто-то говорит, что еще не придуман программный механизм
"Высказал мысли вслух - исходник готов":)
Вот он - в действии.

---

← →
VAleksey ©   (2003-10-31 14:51) [5]

> Brahman © (31.10.03 14:16)

:-))))

---

← →
ZeroDivide ©   (2003-10-31 15:02) [6]

AnsiReverseString

---

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

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

Наверх

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