[anghela]

Помогите найти ошибку в коде:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

procedure TForm2_new_schet.But_perevodClick(Sender: TObject); var dol,evro,sum,rez,dol_pr,evro_pr:single; begin   dol:=StrToFloat(Edit_kurs_dol.Text);   evro:=StrToFloat(Edit_kurs_evro.Text);   sum:=StrToFloat(Edit15_perevod.Text);   { If Not TryStrToFloat(Edit15_perevod.Text,sum) then    begin     ShowMessage('Вы ввели не корректную сумму');    // Exit;     end; }  if (CB_valuta_per.Text='Рубль') then   begin     if (CB_perevod_v.Text='Доллар') then     rez:=sum/dol;     Label24.Caption:=FloatToStr(rez) + ' доллара';     if (CB_perevod_v.Text='Евро') then     rez:=sum/evro;     Label24.Caption:=FloatToStr(rez) + ' евро';   end;   dol_pr:=StrToFloat(Edit_dol_prod.Text);   evro_pr:=StrToFloat(Edit_evro_prod.Text);   if (CB_valuta_per.Text='Доллар') and (CB_perevod_v.Text='Рубль') then   rez:=sum*dol_pr;    Label24.Caption:=FloatToStr(rez) + ' рубля';   if (CB_valuta_per.Text='Евро') and (CB_perevod_v.Text='Рубль') then   rez:=sum*evro_pr;    Label24.Caption:=FloatToStr(rez) + ' рубля'; end;

Работает все, только при выводе значений в лейбл он выводит правильно значения типа "столько то рублей", а значения "столько то долларов/столько то евро" он не выводит, а заменяет доллар и евро так же на рубли.

И как сделать проверку поля на символы, типа что введены только цифры? TryStrToFloat почему то не работает

[xdessx]

Ты забыл(а) begin поставить:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

procedure TForm2_new_schet.But_perevodClick(Sender: TObject); var dol,evro,sum,rez,dol_pr,evro_pr:single; begin   dol:=StrToFloat(Edit_kurs_dol.Text);   evro:=StrToFloat(Edit_kurs_evro.Text);   sum:=StrToFloat(Edit15_perevod.Text);   { If Not TryStrToFloat(Edit15_perevod.Text,sum) then    begin     ShowMessage('Вы ввели не корректную сумму');    // Exit;     end; }  if (CB_valuta_per.Text='Рубль') then   begin     if (CB_perevod_v.Text='Доллар') then begin      rez:=sum/dol;      Label24.Caption:=FloatToStr(rez) + ' доллара';     end;     if (CB_perevod_v.Text='Евро') then begin      rez:=sum/evro;      Label24.Caption:=FloatToStr(rez) + ' евро';     end;  end;  dol_pr:=StrToFloat(Edit_dol_prod.Text);  evro_pr:=StrToFloat(Edit_evro_prod.Text);  if (CB_valuta_per.Text='Доллар') and (CB_perevod_v.Text='Рубль') then begin   rez:=sum*dol_pr;   Label24.Caption:=FloatToStr(rez) + ' рубля';  end;  if (CB_valuta_per.Text='Евро') and (CB_perevod_v.Text='Рубль') then begin   rez:=sum*evro_pr;   Label24.Caption:=FloatToStr(rez) + ' рубля';  end; end;

Для проверки вводимых символов повесь событие на onKeyPress:

Код:

1 2 3 4

if not (key in ['0..9',#8,#13,'.']) then begin  Showmessage('Разрешен ввод только цифр!');  key := #0; end;

[Uniq!]

В обработчике, где вводятся суммы найдите событие OnKeyPress и впишите в него следующий код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Var k:integer; begin if Edit1.Text='0' then   if not(key in [',',#8]) then key:=#0; if key in['0'..'9',',',#8] then //разрешаем вводить только числа   begin   if key=',' then //проверка для только одной запятой     begin     if Edit1.Text='' then key:=#0;       For k:=1 to Length(Edit1.Text) do       begin       if Edit1.Text[k]=',' then key:=#0;       end;     end;   end else key:=#0;

Это старый "универский" вариант

вместо not(Key in [...]) сейчас используют CharInSet функцию.
А начиная с 2010 delphi у Edit появилось свойство NumbersOnly.

[anghela]

не совсем понятно, что вы имели ввиду. В том месте, куда вы предлагаете поставить end он не нужен. Расчетная часть выполняется правильно, не выводится только текст

[Uniq!]

Сообщение от anghela

не совсем понятно, что вы имели ввиду. В том месте, куда вы предлагаете поставить end он не нужен. Расчетная часть выполняется правильно, не выводится только текст

begin не уследили:

Код:

1 2 3 4 5

if (CB_perevod_v.Text='Доллар') then begin      rez:=sum/dol;      Label24.Caption:=FloatToStr(rez) + ' доллара'; end;

[xdessx]

не совсем понятно, что вы имели ввиду. В том месте, куда вы предлагаете поставить end он не нужен. Расчетная часть выполняется правильно, не выводится только текст

Ваш код:

Код:

1 2 3

if (CB_valuta_per.Text='Доллар') and (CB_perevod_v.Text='Рубль') then   rez:=sum*dol_pr;   Label24.Caption:=FloatToStr(rez) + ' рубля';

По условию выполняется строчка №2 с расчетами, а строчка №3 выполняется всегда в не зависимости от условия.

Мой код:

Код:

1 2 3 4

if (CB_valuta_per.Text='Доллар') and (CB_perevod_v.Text='Рубль') then begin   rez:=sum*dol_pr;   Label24.Caption:=FloatToStr(rez) + ' рубля'; end;

Все что идет после begin и до end - выполняется только при выполнении условия.

[anghela]

Сообщение от Uniq!

В обработчике, где вводятся суммы найдите событие OnKeyPress и впишите в него следующий код:

Код:

Это старый "универский" вариант

вместо not(Key in [...]) сейчас используют CharInSet функцию.
А начиная с 2010 delphi у Edit появилось свойство NumbersOnly.

Не работает. А есть ли какой-нибудь другой вариант?

[bublic1337]

Сообщение от anghela

Не работает. А есть ли какой-нибудь другой вариант?

О девушк можно увидить ваше фото??

Админ: Пока недельный бан за флуд...