![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Incompatible types: 'String' and 'Integer' [D7]
Vik © (2012-05-03 14:52:00)Приветствую, мне нужно, чтоб в поле Edit1 вводились только цифры (это я сделал), и при нажатии кнопки происходили действия.
Вот код. Подскажите, как правильно сделать?
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:27:00) [21]
> 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;
AV (2012-05-03 15:24:00) [22]
> Vik © (03.05.12 15:08) [4]
>
> AV, как для текстового поля можно писать тип переменной
> "Integer" ?
никак.
но и текстовую переменную нельзя сравнивать с числом.
либо переменная типа число (любое), либо сравнивать не с числом
либо сравнивать не саму переменную, а результат функции от нее (см [5]).
Медвежонок Пятачок (2012-05-03 15:22:00) [23]Я читаю книгу, хочется поэкперементировать со своими примерами, вот и наткнулся на проблему.
Ты не ту книгу читаешь. Не про колобка надо читать книжку, а другую.
Плохиш (2012-05-03 15:20:00) [24]
> 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:14:00) [25]AV, как для текстового поля можно писать тип переменной "Integer" ?
Ну ты же не смущаешься, когда строку сравниваешь с числом.
Amoeba_ (2012-05-03 15:11:00) [26]
> Подскажите, как правильно сделать?
Есть такая магическая функция
function StrToInt(const S: string): Integer;
Vik (2012-05-03 15:08:00) [27]AV, как для текстового поля можно писать тип переменной "Integer" ?
Медвежонок Пятачок, я читаю. В книгах на такой вопрос ответ найти не получится (по крайней мере не получилось) :)
Сергей М., не совсем. Я читаю книгу, хочется поэкперементировать со своими примерами, вот и наткнулся на проблему.
Я завязываю с тыком, помогите только решить проблему. Спасибо.
Сергей М. (2012-05-03 14:57:00) [28]
> почитать про основы программирования
Автор обещал это сделать в обозримом будущем
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1335956639&n=3
Ну а пока оно, обозримое будущее, не наступило, Автор изучает метод научного тыка)
AV (2012-05-03 14:54:00) [29]X : Integer;
Медвежонок Пятачок (2012-05-03 14:54:00) [30]правильно сделать - это почитать про основы программирования