Как перевести число в обратном порядке?

← →
Asprofi (2005-09-10 14:11) [0]

Люди помогите!
Вот нужно сделать программу перевода чисел в обратном порядке,
подскажите как это осуществить?

← →
html_ (2005-09-10 14:23) [1]

Если было 12345 а стало 54321. Или как?

← →
Kolan © (2005-09-10 14:33) [2]

Преобразуй число в строку.
Number := {Твое число}. S := IntToStr(Number); {Все осталось перевернуть. Например можно так. А скорее есть готовая функция} Temp := ""; for I := Length(S) downto 1 do Temp := Temp + S[I]; Result := StrToInt(Temp);

← →
Asprofi (2005-09-10 14:35) [3]

Большое спасибо вы меня выручили!

← →
Asprofi (2005-09-10 14:47) [4]

Извеняюсь! А как сделать так чтоб: когда вводишь число в Edit,при нажатии на Button число перевернулось....

← →
begin...end © (2005-09-10 14:56) [5]

> Asprofi (10.09.05 14:47) [4]

Что нужно -- перевернуть текст в edit"е?

uses StrUtils;

Edit.Text := ReverseString(Edit.Text)

← →
Asprofi (2005-09-10 15:00) [6]

Да проктически это, но не то, нужно сделать чтоб когда вводишь любое число в Edit оно переворачивалось при нажатии на Button

← →
Kolan © (2005-09-10 15:02) [7]

1. Кодаем на форму Edit и кнопку.

2. Пишем функцию
TForm1 = class(TForm) BitBtn1: TBitBtn; Edit1: TEdit; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } function InvertInteger(Value: Integer): Integer; end;

function TForm1.InvertInteger(Value: Integer): Integer; var S, Temp: string; I: Integer; begin S := IntToStr(Value); Temp := ""; for I := Length(S) downto 1 do Temp := Temp + S[I]; Result := StrToInt(Temp); end;

В обработчике кнопки пишем
procedure TForm1.BitBtn1Click(Sender: TObject); var Number: Integer; begin Number := StrToInt(Edit1.Text); Edit1.Text := IntToStr(InvertInteger(Number)); end;

Заметь что тк в Edit"e текст, а наша функция работает с числом(как ты и просил в первом посте). То тут куча лишних преобразований StrToInt - IntToStr. Раз уж тебе надо перевернуть текст из Edit"а, (который яаляется строкой а не числом) проше работать именно со строкой.
Те написать функцию function InvertString(S: string): string;
Да и ктомуже наверно есть готовая. Посмотри string handling routines в Help"е.

← →
Asprofi (2005-09-10 15:04) [8]

=== Kolan === Чета у меня ничего не получается. Если можешь обьясни получше как это сделать?

Переменные(Number,s,i,temp,result)- это integer или что?

← →
Asprofi (2005-09-10 15:05) [9]

=== Kolan === Чета у меня ничего не получается. Если можешь обьясни получше как это сделать?

Переменные(Number,s,i,temp,result)- это integer или что?

Я поставил так - Number,temp,s - string;
i,result: integer

← →
Asprofi (2005-09-10 15:06) [10]

KOLAN - СПАСИБО!!!

← →
Kolan © (2005-09-10 15:07) [11]

В [7] рабочий пример. А для твоего случая все проше.

procedure TForm1.BitBtn1Click(Sender: TObject); begin Edit1.Text := ReverseString(Edit1.Text) end;

И всё.

← →
Kolan © (2005-09-10 15:12) [12]

PS для таких проблем кстати есть конференция для начинаюших
Основная (+) Жать на +. :)

← →
Asprofi (2005-09-10 15:16) [13]

Да я просто все по забывал уже. хочю вспомнить Как это делается
. Ты не подумай что я вообще не фига не шарю, просто иногда некоторые вещи забываются. Если хочешь зайди на мой сайт: www.avplayer.narod.ru - там мой проект.

← →
Kolan © (2005-09-10 15:35) [14]

Приятный сайт и скриншоты, совсем не похожи на твои вопросы. :) Но это в Потрепатся :)

← →
Kolan © (2005-09-10 15:40) [15]

Гы РЖУНИМАГУ. :))))) При запуске он мне сказал что у меня не установлен миксер :). Дык меня его вообще нет, я торты не пеку... :)

← →
Asprofi (2005-09-10 15:45) [16]

Так что мне это убрать?

← →
Asprofi (2005-09-10 15:47) [17]

Это не я это мой друг посоветовал

← →
Asprofi (2005-09-10 16:00) [18]

Все уже убрал

- Никифоровна!
- чаво?
- тут Kolan и Asprofi, код begin...end"а "покотали"
- ну помогай и Бох
(C)

> "покотали"

Шо бы это могло значить.
Тем более уже в [2] было:
А скорее есть готовая функция

Kolan © (12.09.05 23:16) [20]

Да это песенка такая есть.
А к вам оно было в шутку сказано, хоть доля правды и есть.
Смотрите:

begin...end © (10.09.05 14:56) [5]
а затем
Kolan © (10.09.05 15:07) [11]

:)

[11] было написанно чтобы избежать вопросов типа Asprofi (10.09.05 14:47) [4] . Это же "Начинаюшим" :)

> Asprofi (10.09.05 15:45) [16]

Смешно просто слово миксер - как бы микшер. :)

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