Автор KillOOps задал вопрос в разделе Другие языки и технологии
Помогите по Delphi и получил лучший ответ
Ответ от Radik Khaidarov[гуру]
var Form1: TForm1; a:Double; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text:=\'\'; end; procedure TForm1.Button2Click(Sender: TObject); begin randomize; a:=random(100); if edit1.Text=IntToStr(Round(a)) then edit2.Text:=\'Правильно\' else edit2.Text:=\'Неправильно\'; end; end.
Ответ от Александр Н[гуру]
Может из-за сравнения edit1.Text=a? Сравниваются значения типа String (edit.text) и Integer (a).
Может из-за сравнения edit1.Text=a? Сравниваются значения типа String (edit.text) и Integer (a).
Ответ от Ёергей Зайцев[гуру]
Какая разница 2 дня или нет.... тебе в ошибке всё сказано, ты строку пытаешься сравнить с числом.... это блин не Perl ...Ищи ответы в хелпе, а не в нете, иначе далеко не уйдёшь, если ты на таких элементарных вещах стопоришься....
Какая разница 2 дня или нет.... тебе в ошибке всё сказано, ты строку пытаешься сравнить с числом.... это блин не Perl ...Ищи ответы в хелпе, а не в нете, иначе далеко не уйдёшь, если ты на таких элементарных вещах стопоришься....
Ответ от Владимир[гуру]
Incompatible types: 'string' and 'Integer' - несовместимое сравнение строка и число Radik Chaidarov написал правильный вариант
Incompatible types: 'string' and 'Integer' - несовместимое сравнение строка и число Radik Chaidarov написал правильный вариант
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите по Delphi