[Помогите!] Кнопка с тремя значениями/Caption'ами

[ɱάуßƩ]

Предисловие: Кнопка называется "Да", при нажатии она меняется на "Нет", и обратно, это просто! Так ведь?!:

procedure TForm1.Button1Click
if button1.Caption='Да' then
button1.Caption:='Нет' else
button1.Caption:='Да';

Столкнулся с такой проблемой: Как на одну кнопку, поставить три значения. А точнее 3 названия кнопки и 3 действия. Хотелось бы чтоб менялось с первого наименования на второе, с второго на третий, с третьего обратно на первый. А проще говоря: Да>Нет>Наверное>Да>Нет... и так по кругу. Каждый раз при нажатии на кнопку она переименовывается в следующую как я и показал выше (Принцип клавиатуры тоже подойдет - EN>RU>DE>EN>RU...).
Помогите пожалуйста разобраться, и как мне написать этот код.

[metraz]

procedure TForm1.Button1Click
case a of
1: button1.Caption='Да';
2: button1.Caption='Нет'
3: button1.Caption='Наверное'
end;
if a=3 then a:=1 else inc(a);
end;


a некоторое число типа byte, ему надо зарание присвоить значение 1.

[ɱάуßƩ]

Цитата: Сообщение от metraz procedure TForm1.Button1Click case a of 1: button1.Caption='Да'; 2: button1.Caption='Нет' 3: button1.Caption='Наверное' end; if a=3 then a:=1 else inc(a); end; a некоторое число типа byte, ему надо зарание присвоить значение 1.

Проблема не решена . Может я в чем-то ошибся, но всё равно не получилось.

Добавлено через 43 минуты
Получилось, влил больше фантазии) .

Цитата: procedure TForm1.FormCreate(Sender: TObject); begin a:=1; end; procedure TForm1.Button1Click(Sender: TObject); begin a:=a+1; if a=4 then a:=1; if a=1 then button1.Caption:='EN'; if a=2 then button1.Caption:='RU'; if a=3 then button1.Caption:='HE'; end;

[metraz]

Цитата: Сообщение от ɱάуßƩ Проблема не решена . Может я в чем-то ошибся, но всё равно не получилось. Добавлено через 43 минуты Получилось, влил больше фантазии) .

Мой код абсолютно рабочий, тебе надо было только в oncreate формы прописать a:=1;

[Sinyss]

Цитата: Сообщение от ɱάуßƩ влил больше фантазии) .

Вы хотели сказать *****кода...

[ɱάуßƩ]

Столкнулся с еще одной проблемой. Я делаю чисто для себя генератор чисел. Хотелось что бы кол-во цифр рандомайза соответствовало итем индексу (combobox1.itemindex:=X. То есть если X равен 5, то рандом будет 99999, Х=9 тогда рандом- 999999999 и т.д. Как такое можно замутить.
__________________________________________________ __________________________________________________ ____________________________

И еще задачка: Как настроить диапазон рандома чисел, а точнее - рандом от 5 до 10 (5,6,7,8,9,10), от 100 до 999 и т.д. Как?

Цитата: Сообщение от ɱάуßƩ И еще задачка: Как настроить диапазон рандома чисел, а точнее - рандом от 5 до 10 (5,6,7,8,9,10), от 100 до 999 и т.д. Как?

Ответ на диапазон нашел: В Uses надо прописать Math, и просто вместо
x:=random(5)+5; вбить
x:=RandomRange(100,999);

[VeTaL_UA]

Когда-то давно написал функцию рандома:

function Rand(source:string;minlength,maxlength:integer):string;
var
len:integer;
begin
Randomize;
len:=minlength+Random(maxlength-minlength);
result:='';
 repeat
 result:=result+source[random(Length(source))+1];
 until (Length(result)=len);
end;

В ней source - символы, которые могут присутствовать в рандомной строке; minlength - минимальная длинна рандомной строки; maxlength - максимальная длинна рандомной строки.
По коду ясно, что если ввести minlength и maxlength, то длинна будет равна введённому в оба параметра числу.
Для диапазона достаточно добавить в функцию два параметра(min и max) и одно условие по этим параметрам, какое именно, думаю, ты и сам догадаешься

Добавлено через 1 час 51 минуту

Цитата: Сообщение от ɱάуßƩ Ответ на диапазон нашел: В Uses надо прописать Math, и просто вместо x:=random(5)+5; вбить x:=RandomRange(100,999);

Подключать модуль ради одного вычисления это весело