Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

ПОМОГИТЕ ПЛИЗЗ, СРОЧНО! 


ФДДДД   (2002-01-10 12:37) [0]

procedure TForm1.Button2Click(Sender: TObject);
begin
if edit2.Text:="Номер 1" and RadioButton1.Checked
then edit2.Text:="Номер 2" and edit1.Text:="Боль мешает при ходьбе ИЛИ чувствуется только в одной ноге??"
else edit2.Text:="номер 2" and edit1.Text:="Температура тела выше 38 градусов???";
end;

Вот процедура, в ней ошибка - [Error] Unit1.pas(64): Incompatible types: "String" and "Boolean"
Подскажите, чё не правильно плизз???



panov   (2002-01-10 12:42) [1]

Удалено модератором



Mbo   (2002-01-10 12:45) [2]

да уж - клюква такая была недавно в "Потрепаться"

if edit2.Text:="Номер 1" and RadioButton1.Checked then begin
edit2.Text:="Номер 2";
edit1.Text:="Боль мешает при ходьбе ИЛИ чувствуется только в одной ноге??";
end else begin
edit2.Text:="номер 2";
edit1.Text:="Температура тела выше 38 градусов???";
end;



Владислав   (2002-01-10 12:45) [3]

:= это оператор присваивания. Сравнение - это =



Mbo   (2002-01-10 12:47) [4]

ага, и у меня надо исправить в if-ах := на =




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
6-90347           Kyd                   2001-11-05 20:16  2002.01.28  
Телнет на ClientSocket


7-90391           Dmitriy-5             2001-10-10 14:49  2002.01.28  
Как работать с адресом памяти


3-90199           RealyGrey             2001-12-22 14:15  2002.01.28  
Как в IB с помощью SQL запроса получить метаданные определенной таблицы?


1-90294           Vasilii               2002-01-08 10:19  2002.01.28  
Вызов консольного приложения


1-90261           Delphimun             2002-01-07 11:55  2002.01.28  
Как найти далее при помощи pos?