Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
7-42154
Alibaba
2003-09-01 00:55
2003.11.13
Shell


1-41198
valler
2003-11-02 12:07
2003.11.13
Востоновление иконок в tray области при перезапуске explorer


7-42162
Zero Ice
2003-09-04 17:41
2003.11.13
RasApi


3-40895
viper_cd
2003-10-26 23:04
2003.11.13
запрос и группировка


1-41248
MaG
2003-10-31 21:42
2003.11.13
Файловая система