Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / help me plz / 6 сообщений из 6, страница 1 из 1
02.01.2003, 18:15
    #32086045
lama
lama
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help me plz
procedure TForm1.BitBtn1Click(Sender: TObject);
var
X, K: Real;
begin
X := StrToFloat(Trim(Edit1.Text));
case ComboBox1.ItemIndex of
0: K := 0.2;
1: K := 0.3;
edit1.text := FloatToStr(X*K);
end;

end.


и пишет какую то хрень....=(

Люди, пожалуста, распишите по подробнее.

Заранее благодарен!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.01.2003, 19:19
    #32086053
balbes
balbes
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help me plz
Привет ГЕНИЙ
lama

Так попробуй
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure TForm1.Button1Click(Sender: TObject);
var
X, K: Real;
begin
X := StrToFloat(Edit1.Text);
case ComboBox1.ItemIndex of
 0 : K :=  0 . 2 ;
 1 : K :=  0 . 3 ;
end;
Label1.Caption := FloatToStr(X*K);
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.01.2003, 20:30
    #32086062
hDrummer
hDrummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help me plz
какой ужас....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.01.2003, 22:22
    #32086073
lama2
lama2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help me plz
procedure TForm1.BitBtn1Click(Sender: TObject);
var
X, K: Real;
begin
X := StrToFloat(Trim(Edit1.Text));
case ComboBox1.ItemIndex of
0: K := 0.2;
1: K := 0.3;
end;
edit2.text := FloatToStr(X*K);
end;

end.


странно, написал эту хрень и всё ок....сенки =))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.01.2003, 00:27
    #32086082
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help me plz
А хули там. Ты погляди, куда ты в первом варианте воткнул строку:

case ComboBox1.ItemIndex of
0: K := 0.2;
1: K := 0.3;
edit1.text := FloatToStr(X*K); <----- вот эту
end;

ВНУТРЬ CASE !

А нужно - вне этого блока (как во втором варианте):

case ComboBox1.ItemIndex of
0: K := 0.2;
1: K := 0.3;
end;
edit2.text := FloatToStr(X*K); <---- вот это правильно
end;

Так что ничего удивительного, что сейчас заработало :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.01.2003, 12:38
    #32086126
Aleksei
Aleksei
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
help me plz
Вместо FloatToStr Можно поставить Val(Edit1.Text,X,I)
Где I Integer
Кстати по I (результату) можно контролировать преобразование из STRING в REAL.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / help me plz / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]