Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизIncompatible types: String and Integer Найти похожие ветки
← →
Vik © (2012-05-03 14:52) [0]Приветствую, мне нужно, чтоб в поле Edit1 вводились только цифры (это я сделал), и при нажатии кнопки происходили действия.
Вот код. Подскажите, как правильно сделать?procedure TForm1.Button1Click(Sender: TObject);
Var X : String;
begin
If X>5 then Label1.Visible:=True else Label2.Visible:=True;
end;
← →
AV © (2012-05-03 14:54) [1]X : Integer;
← →
Медвежонок Пятачок © (2012-05-03 14:54) [2]правильно сделать - это почитать про основы программирования
← →
Сергей М. © (2012-05-03 14:57) [3]
> почитать про основы программирования
Автор обещал это сделать в обозримом будущем
http://delphimaster.net/view/15-1335956639/
Ну а пока оно, обозримое будущее, не наступило, Автор изучает метод научного тыка)
← →
Vik © (2012-05-03 15:08) [4]AV, как для текстового поля можно писать тип переменной "Integer" ?
Медвежонок Пятачок, я читаю. В книгах на такой вопрос ответ найти не получится (по крайней мере не получилось) :)
Сергей М., не совсем. Я читаю книгу, хочется поэкперементировать со своими примерами, вот и наткнулся на проблему.
Я завязываю с тыком, помогите только решить проблему. Спасибо.
← →
Amoeba_ (2012-05-03 15:11) [5]
> Подскажите, как правильно сделать?
Есть такая магическая функция
function StrToInt(const S: string): Integer;
← →
Медвежонок Пятачок © (2012-05-03 15:14) [6]AV, как для текстового поля можно писать тип переменной "Integer" ?
Ну ты же не смущаешься, когда строку сравниваешь с числом.
← →
Плохиш © (2012-05-03 15:20) [7]
> procedure TForm1.Button1Click(Sender: TObject);
> Var X : String;
> begin
> If X>5 then Label1.Visible:=True else Label2.Visible:=True;
> end;
>
Оно кодит новый алгаритму для лотереи :-))
← →
Медвежонок Пятачок © (2012-05-03 15:22) [8]Я читаю книгу, хочется поэкперементировать со своими примерами, вот и наткнулся на проблему.
Ты не ту книгу читаешь. Не про колобка надо читать книжку, а другую.
← →
AV © (2012-05-03 15:24) [9]
> Vik © (03.05.12 15:08) [4]
>
> AV, как для текстового поля можно писать тип переменной
> "Integer" ?
никак.
но и текстовую переменную нельзя сравнивать с числом.
либо переменная типа число (любое), либо сравнивать не с числом
либо сравнивать не саму переменную, а результат функции от нее (см [5]).
← →
Юрий Зотов © (2012-05-03 15:27) [10]
> Vik © (03.05.12 14:52)procedure TForm1.Button1Click(Sender: TObject);
var
X: integer;
begin
X := StrToInt(Edit1.Text);
Label1.Visible := X > 5;
Label2.Visible := not Label1.Visible
end;
← →
Vik © (2012-05-03 15:27) [11]Amoeba_ , спасибо.
Медвежонок Пятачок, смущаюсь. Вот и задаю вопрос "как правильно сделать?".
← →
Vik © (2012-05-03 15:36) [12]Спасибо за помощь.
Не по теме. Д.Осипов - Delphi.Профессиональное программирование. нормальная книга?
← →
Anatoly Podgoretsky © (2012-05-03 15:40) [13]Бери лучше иностранных авторов.
← →
AV © (2012-05-03 15:40) [14]возможно.
но думаю Вам стоит начать с картинок, типа
http://compteacher.ru/programming/delphi/848-delphi-dlya-nachinayuschih.html
или
http://www.google.ru/#hl=ru&newwindow=1&q=%D0%BE%D0%B1%D1%83%D1%87%D0%B5%D0%BD%D0%B8%D0%B5+delphi+%D0%BE%D0%BD%D0%BB%D0%B0%D0%B9%D0%BD&oq=%D0%BE%D0%B1%D1%83%D1%87%D0%B5%D0%BD%D0%B8%D0%B5+delphi&aq=1&aqi=g3g-v7&aql=&gs_l=serp.3.1.0l3j0i15l7.50975.58290.0.61293.23.12.2.3.4.0.565.2218.3j6j 2j5-1.12.0...0.0.uUk_AYR8fOQ&bav=on.2,or.r_gc.r_pw.,cf.osb&fp=8a013a9c42f685df&biw=1 178&bih=881
← →
Vik © (2012-05-03 15:53) [15]Почему лучше иностранных?
← →
CRLF (2012-05-03 15:56) [16]чтобы скорее развалить Матушку Святую Русь
← →
Anatoly Podgoretsky © (2012-05-03 16:06) [17]> Vik (03.05.2012 15:53:15) [15]
Потому что наши в лучшем случае перепечатка справки
← →
KilkennyCat © (2012-05-03 21:18) [18]
> Anatoly Podgoretsky © (03.05.12 16:06) [17]
после изучения основ перпечатанная справка вполне достойный материал
← →
Vik © (2012-05-03 21:49) [19]Кстати, решение нашел гораздо проще=)
← →
Vik © (2012-05-03 21:52) [20]По крайней мере дня 2 назад до меня бы даже это не дошло. Тенденция, однако :D
procedure TForm1.Button1Click(Sender: TObject);
var
X: integer;
begin
X := StrToInt(Edit1.Text);
Label1.Visible := X > 5;
Label4.Visible := X=5;
Label2.Visible := X<5
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Label1.Visible:=False;
Label2.Visible:=False;
label4.Visible:=False
end;
end.
← →
Медвежонок Пятачок © (2012-05-03 21:52) [21]нашел программиста?
← →
Vik © (2012-05-03 21:53) [22]А нет, не проще, так же примерно )))
← →
Vik © (2012-05-03 21:54) [23]Медвежонок пятачок, хватит надо мной прикалываться!) Надо же с чего то начитать!
← →
Vik © (2012-05-03 21:59) [24]Я же книжку стал читать )))
← →
Inovet © (2012-05-03 22:10) [25]> [22] Vik © (03.05.12 21:53)
> А нет, не проще, так же примерно )))
Предложенное ЮЗ лучше, поскольку сравнение делается в одном месте, что снижает вероятность ошибки при кодировании и последующих правках кода.
← →
Плохиш © (2012-05-03 23:51) [26]
> Inovet © (03.05.12 22:10) [25]
Ну в общем-то [10] и [20] достаточно сильно отличаются.
← →
Германн © (2012-05-04 01:53) [27]
> Anatoly Podgoretsky © (03.05.12 16:06) [17]
>
> > Vik (03.05.2012 15:53:15) [15]
>
> Потому что наши в лучшем случае перепечатка справки
>
Ну не надо так чернить наших авторов.
← →
Vik © (2012-05-04 06:48) [28]
> Inovet © (03.05.12 22:10) [25]
, Как раз в его коде при поправках ошибки были (когда я 3-е сравнение добавил), а то я делаю программу, в поле едит вводим число, нажимаем кнопку. Она должна написать меньше пяти это число, больше или равно.
Юрий Зотов привел хороший код (я то не говорил что 3 сравнения хочу сделать) , и при вводе числа 5 программа писала "меньше пяти" =)
Ну мне кажется я тоже не плохо сделал..
Ну не надо так чернить наших авторов.
Так же думаю
← →
Anatoly Podgoretsky © (2012-05-04 07:07) [29]
> после изучения основ перпечатанная справка вполне достойный
> материал
Это после изучения основ, а тут идет об "ДО"
И после изучения основ интерактивная лучше.
← →
Vik © (2012-05-04 07:43) [30]>Это после изучения основ, а тут идет об "ДО"
Скорее во время.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.07 c