dodawanie liczb

0

czesc

jestem poczatkujacym w delphi i chcialem prosic o jakas wskazowke

chcialem zrobic dodawanie liczb zmiennoprzecinkowych i sie udalo

procedure TForm1.Button1Click(Sender: TObject);
begin
 liczba := iliczba +  2.7 ;
(Label1.Caption := floatToStr(liczba) + ' pkt.');

ale nie wiem jak zapisac warunek, ze
jesli w label1 bedzie < liczba 13,4 to wtedy wskoczy showmesage (' nie spelniasz warunkow')
wiem ze trzeba uzyc if then ale jak zapisac zeby ten wartosc label1 byla mniejsza od liczby jaka wymysle i przypisze

ma ktos jakis pomysl na zrobienie tego?

0
if StrToFloat(Label1.Caption) < 3.41 then

Gdzie Label1.Caption = 4,15 //np. oczywiście ;)
przecinek/kropka w zależności od ustawień w systemie.

pzdr.

0

zadeklaruj to jako Currency lub inny typ który obsługuje liczby z przecinakami a potem do labela konwersję zastosuj i wszystko, jak robiłem kiedyś kalkulator to tak robiłem

0

dzieki wielkie :)

bo jak robilem na spinedit to bylo latwo
if (spinedti1.value < 15 ) then

a z tymi zmiennoprzecinkowymi nie wiedzialem jak zrobic

jeszcze raz wielkie dzieki za pomoc

0

jeszcze chcialem spytac bo chcialem zrobic 2 warunki

procedure TForm1.Button1Click(Sender: TObject);
begin
if losowanie1.itemindex = 0 then
begin
if StrToFloat(Label1.Caption) <5 then
ilosc_punktow := ilosc_punktow +  0.7;
(Label1.Caption := floattostr(ilosc_punktow) + ' ')
end else
if StrToFloat(Label1.Caption) > 7.7  then
begin
ilosc_punktow := ilosc_punktow +  0.5;
(Label1.Caption := floattostr(ilosc_punktow) + ' ');
end;
end;

wszystko sie dobrze kompiluje ale jak naciskam button po wybraniu combobox to wyskakuje blad
user image

0

A ile wynosi ilosc_punktow przed odpaleniem Button1Click(..) ?

0

no wlasnie nie bylo napisane juz sobie poradzilem :)

ale nie spelnia mi 2 warunku ze jesli wieksze niz 6.2 to nie dodaje 0.5
tylko dochodzi do 6.3 dodajac 0.7 i zatrzymuje sie i nie wiem dlaczego

taki kod

begin
if losowanie1.itemindex = 0 then
begin
if StrToFloat(Label1.Caption) < 6.3 then
ilosc_punktow := ilosc_punktow +  0.7;
(Label1.Caption := floattostr(ilosc_punktow) + ' ')
end else
if StrToFloat(Label1.Caption) > 6.2 then
begin
ilosc_punktow := ilosc_punktow +  0.5;
(Label1.Caption := floattostr(ilosc_punktow) + ' ');
end;
end;
0

juz doszedlem czemu bylo zle

if StrToFloat(Label1.Caption) < 6.3 then
ilosc_punktow := ilosc_punktow +  0.7;
(Label1.Caption := floattostr(ilosc_punktow) + ' ')

nie bylo begin po then

dzieki wszystkim za pomoc

1 użytkowników online, w tym zalogowanych: 0, gości: 1