Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
Asprofi © (2005-09-10 14:11:00)
Люди помогите!
Вот нужно сделать программу перевода чисел в обратном порядке,
подскажите как это осуществить?

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

> Asprofi (10.09.05 15:45) [16]

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

Defunct (2005-09-12 23:56:00) [2]
Kolan © (12.09.05 23:16) [20]

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

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

:)

Kolan (2005-09-12 23:16:00) [3]

> "покотали"

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

Defunct (2005-09-11 04:05:00) [4]
- Никифоровна!
- чаво?
- тут Kolan и Asprofi, код begin...end'а "покотали"
- ну помогай и Бох
(C)

Asprofi (2005-09-10 16:00:00) [5]
Все уже убрал

Asprofi (2005-09-10 15:47:00) [6]
Это не я это мой друг посоветовал

Asprofi (2005-09-10 15:45:00) [7]
Так что мне это убрать?

Kolan (2005-09-10 15:40:00) [8]
Гы РЖУНИМАГУ. :))))) При запуске он мне сказал что у меня не установлен миксер :). Дык меня его вообще нет, я торты не пеку... :)

Kolan (2005-09-10 15:35:00) [9]
Приятный сайт и скриншоты, совсем не похожи на твои вопросы. :) Но это в Потрепатся :)

Asprofi (2005-09-10 15:16:00) [10]
Да я просто все по забывал уже. хочю вспомнить Как это делается
. Ты не подумай что я вообще не фига не шарю, просто иногда некоторые вещи забываются. Если хочешь зайди на мой сайт: www.avplayer.narod.ru - там мой проект.

Kolan (2005-09-10 15:12:00) [11]
PS для таких проблем кстати есть конференция для начинаюших
Основная ( +) Жать на +. :)

Kolan (2005-09-10 15:07:00) [12]
В [7] рабочий пример. А для твоего случая все проше.

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

И всё.

Asprofi (2005-09-10 15:06:00) [13]
KOLAN - СПАСИБО!!!

Asprofi (2005-09-10 15:05:00) [14]
=== Kolan === Чета у меня ничего не получается. Если можешь обьясни получше как это сделать?

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

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

Asprofi (2005-09-10 15:04:00) [15]
=== Kolan === Чета у меня ничего не получается. Если можешь обьясни получше как это сделать?

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

Kolan (2005-09-10 15:02:00) [16]
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:00:00) [17]
Да проктически это, но не то, нужно сделать чтоб когда вводишь любое число в Edit оно переворачивалось при нажатии на Button

begin...end (2005-09-10 14:56:00) [18]
> Asprofi (10.09.05 14:47) [4]

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

uses StrUtils;

Edit.Text := ReverseString(Edit.Text)

Asprofi (2005-09-10 14:47:00) [19]
Извеняюсь! А как сделать так чтоб: когда вводишь число в Edit,при нажатии на Button число перевернулось....

Asprofi (2005-09-10 14:35:00) [20]
Большое спасибо вы меня выручили!

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »