|
Результаты поиска
|
|
| masb8ly-GC | Дата: Пятница, 16 Декабря 2011, 17:08 | Сообщение # 261 | Тема: Delphi:Вопрос-Ответ |
постоянный участник
Сейчас нет на сайте
| Я же тебе говорил, что нужно делать не and, а или то или то! А потом добавлять and'ы по остальным комбобоксам!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Среда, 14 Декабря 2011, 23:56 | Сообщение # 262 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Лишний else стоит)
Code procedure TForm1.Button1Click(Sender: TObject);
begin
f:=combobox1.items[combobox1.itemindex];
if (f='Îñêåìåí') then v:=1
ELSE
if (f='Àñòàíà') then v:=2
else
if (f='Àëìàòà') then v:=3;
if (v=1) then
label1.Caption:='lala';
end;
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Среда, 14 Декабря 2011, 20:56 | Сообщение # 263 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Давай я инвайт уже кинул... Если какойто трабл случился добавляйся: 617955154 Добавлено (14.12.2011, 16:56)
---------------------------------------------
Здравствуйте! На выходных командное соревнование и я решил посмотреть задания за прошлый год. Оказалось, что почти за все прошедшие года задания одинаковы, попытался решить и возникла проблема. Нужно написать генератор выражений, но обычный random использовать не получится, т.к. генератор это часть системы тренировки устного счета. А система должна работать на большое количество людей до 10. Если использовать обычный рандом, то у всех 10 человек получится одинаковое выражение. Как решить проблему? Добавлено (14.12.2011, 20:56)
---------------------------------------------
Уже решил проблему. Забыл про randomize;
Code procedure TForm1.btn1Click(Sender: TObject);
begin
Randomize;
for i:= 1 to 10 do
begin
c1:=Random(99);
c2:=Random(99);
c3:=Random(99);
rz[i]:='('+FloatToStr(c1)+'*'+FloatToStr(c1)+'+'+FloatToStr(c2)+'*'+FloatToStr(c2)+')'+'/'+FloatToStr(c3);
lbl1.Caption:=rz[i]+#13#10+rz[2];
end;
end;
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Вторник, 13 Декабря 2011, 23:56 | Сообщение # 264 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Не за что!)
Аська есть? Если, что буду помогать в более удобном режиме. Та которая у тебя в профиле активна?
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Вторник, 13 Декабря 2011, 23:48 | Сообщение # 265 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Тогда так:
Code
procedure TForm1.Button1Click(Sender: TObject);
begin
s:='a';
l := cbb1.Items[cbb1.ItemIndex];
if (l:='Блоха') then
label1.Caption:=s;
end;
Добавлено (13.12.2011, 23:48)
---------------------------------------------
Немного поправил код, там неправильно l присвоил!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
Сообщение отредактировал masb8ly-GC - Вторник, 13 Декабря 2011, 23:49 |
|
|
| |
| masb8ly-GC | Дата: Вторник, 13 Декабря 2011, 23:41 | Сообщение # 266 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Тебе же нужно присвоить "s" значение переменной "a". А ты присваиваешь значение символа. Добавлено (13.12.2011, 23:41)
---------------------------------------------
TimKruz, Благодарю все заработало! Просто на выходных олимпиада областная(участвую сразу в двух областных по программированию: соло и командное), и вот решил подогнать немного Object)
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Вторник, 13 Декабря 2011, 23:31 | Сообщение # 267 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Тоже самое(
Кнопка по умолчанию не активна, первый раз становится активной, но во второй раз не деактивируется!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Вторник, 13 Декабря 2011, 23:18 | Сообщение # 268 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Спасибо уже разобрался, просто в скобки взял)
Теперь другая проблема, после того как я его вывел из Имя игрока, но потом передумал и опять изменил на Имя игрока, то кнопка всеравно активна, хотя в коде вроде все правильно:
Code procedure TForm1.edt11Change(Sender: TObject);
begin
if not (edt1.Text='Имя игрока') then btn1.Enabled:=True
else
if (edt1.Text='Имя игрока') then btn1.Enabled:=False;
end;
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
Сообщение отредактировал masb8ly-GC - Вторник, 13 Декабря 2011, 23:19 |
|
|
| |
| masb8ly-GC | Дата: Вторник, 13 Декабря 2011, 23:09 | Сообщение # 269 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Тебе нужно куда, то вывести, что он выбрал или поставить какое-то условие? Тоесть допустим, если он выбрал блоху, то совершать определенные действия! Если так, то:
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
Сообщение отредактировал masb8ly-GC - Вторник, 13 Декабря 2011, 23:13 |
|
|
| |
| masb8ly-GC | Дата: Понедельник, 12 Декабря 2011, 23:12 | Сообщение # 270 | Тема: Лучший язык из семейства |
|
постоянный участник
Сейчас нет на сайте
| Я говорю чисто с своей точки зрения. Просто между языком среднего уровня и высокого уровня не огромная разница, тем более, что Шарп это последователь плюсов и явы, даже не последователь, а новая ветвь. А если человек будет усердно учить язык и практиковатся в нем, то особой разницы не будет, ИМХО.
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Понедельник, 12 Декабря 2011, 22:41 | Сообщение # 271 | Тема: Лучший язык из семейства |
|
постоянный участник
Сейчас нет на сайте
| Здесь все зависит от личных пристрастий! На чем будет легче реализовывать поставленные задачи. Шарп и плюсы находятся приблизительно на одном уровне сложности, если вникать не поверхностно, а глубоко.
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Понедельник, 12 Декабря 2011, 22:38 | Сообщение # 272 | Тема: Как назвать эту фигуру |
|
постоянный участник
Сейчас нет на сайте
| Элипсоидный спиральный цикл закрытого типа я думаю) А так четкого названия у данной фигуры скорее всего нет)
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Понедельник, 12 Декабря 2011, 22:35 | Сообщение # 273 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Не за что) Если, что обращайся!)
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Понедельник, 12 Декабря 2011, 22:05 | Сообщение # 274 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Напиши конкретно, что требуется шаг за шагом. Просто ItemIndex указывает на выбранный элемент! Тебе нужно присвоить переменной значение выбранного элемента на данный момент или тебе нужно просто присвоить значение первого элемента? Если да, то возможно так: s:=cbb1.Items[0];
Ноль потому, что нумерация в комбо боксе начинается с нуля, а не с одного!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Понедельник, 12 Декабря 2011, 21:22 | Сообщение # 275 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Тип данных? Стринг же.
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Понедельник, 12 Декабря 2011, 19:42 | Сообщение # 276 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Quote (TimKruz) masb8ly-GC, у тебя в переменную s перейдёт значение поля, выбранного пользователем, а ему нужно наоборот.
Уже понял)
Просто не понял сразу, что нужно, хотя перевернуть мой код не очень сложно)
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Понедельник, 12 Декабря 2011, 18:25 | Сообщение # 277 | Тема: Delphi:Вопрос-Ответ |
|
постоянный участник
Сейчас нет на сайте
| Quote (arys) Всем привет! Плиз помогите,очень надо. Так вот : как можно тексту из списка combo.box назначить переменную???
S := cbb1.Items[cbb1.ItemIndex];
cbb1 это ComboBox1 
Или тебе нужно, чтобы висела конкретная переменная на конкретном Item'е?
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
Сообщение отредактировал masb8ly-GC - Понедельник, 12 Декабря 2011, 18:26 |
|
|
| |
| masb8ly-GC | Дата: Воскресенье, 11 Декабря 2011, 20:42 | Сообщение # 278 | Тема: Программа "Жизнь" |
|
постоянный участник
Сейчас нет на сайте
| Спасибо за помощь, попозже подумаю над эти! Сейчас просто вплотную занят подготовкой к областной олимпиаде, времени совсем не много))
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Воскресенье, 11 Декабря 2011, 13:43 | Сообщение # 279 | Тема: Turbo Pascal 7.0 Ошибка в переменной. |
|
постоянный участник
Сейчас нет на сайте
| Quote (Naigelgog) И да, достаточно большую программу на строк сто можно написать и без описания типов.
Ну на счет тайпов это кому как привычнее и удобнее. А вот, что достаточно большая программа умещается в 100 строк для меня сюрприз)
Не поделитесь, что делает ваша программа?
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
| masb8ly-GC | Дата: Четверг, 08 Декабря 2011, 21:26 | Сообщение # 280 | Тема: Turbo Pascal 7.0 Ошибка в переменной. |
|
постоянный участник
Сейчас нет на сайте
| Попробуй все эти операторы описать в цикле!
Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games
|
|
|
| |
