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]

нашел программиста?

А нет, не проще, так же примерно )))

Медвежонок пятачок, хватит надо мной прикалываться!) Надо же с чего то начитать!

Я же книжку стал читать )))

> [22] Vik © (03.05.12 21:53)
> А нет, не проще, так же примерно )))

Предложенное ЮЗ лучше, поскольку сравнение делается в одном месте, что снижает вероятность ошибки при кодировании и последующих правках кода.

> Anatoly Podgoretsky © (03.05.12 16:06) [17]
>
> > Vik (03.05.2012 15:53:15) [15]
>
> Потому что наши в лучшем случае перепечатка справки
>

Ну не надо так чернить наших авторов.

> Inovet © (03.05.12 22:10) [25]
, Как раз в его коде при поправках ошибки были (когда я 3-е сравнение добавил), а то я делаю программу, в поле едит вводим число, нажимаем кнопку. Она должна написать меньше пяти это число, больше или равно.

Юрий Зотов привел хороший код (я то не говорил что 3 сравнения хочу сделать) , и при вводе числа 5 программа писала "меньше пяти" =)

Ну мне кажется я тоже не плохо сделал..

Ну не надо так чернить наших авторов.

Так же думаю

> после изучения основ перпечатанная справка вполне достойный
> материал

Это после изучения основ, а тут идет об "ДО"
И после изучения основ интерактивная лучше.

>Это после изучения основ, а тут идет об "ДО"

Скорее во время.

Incompatible types: String and Integer Найти похожие ветки