Delphi 7 - program na výpočet procent ze zadané ceny

var
  cena, procento: Integer;
begin
  cena := StrToIntDef(Edit1.text, -1);
  procento := StrToIntDef(Edit2.Text, -1);
  if (cena = -1) or (procento = -1) then
    Label.Caption := 'chybné zadání'
  else
    Label.Caption := FormatFloat('0.00', cena/100*procento);
end;

Pokud potrebujes zadavat cenu a procenta ne na cela cisla, ale na desetinna mista, tak si to uprav.

uz to trochu chapu ale nevim co delam spatne kdyz tam vlozim ten kon udela mi to eror u te ceny. Nevite co delam blbe?

Neudělá ti to "eror", ale napíše ti to jasnou chybovou hlášku, v které je uvedeno, co je špatně.

no teda chybova hlaska. Nevite co delam spatne? udelal jsem presne to co si tu napsal a hodi mi to chybovou hlasku

var
  cena, procento: Integer;
begin
  cena := StrToIntDef(Edit1.text, -1);
  procento := StrToIntDef(Edit2.Text, -1);
  if (cena = -1) or (procento = -1) then
    Label1.Caption := 'chybné zadání'
  else
    Label1.Caption := FormatFloat('0.00', cena/100*procento);
end;

Tam byla v tom Label místo label1

nevite jak to osetrit abych u Label2 mohl zadat aji desetine cislo?

V Delphi neumím, ale není třeba přepsat datový typ z Integer na Float?
PS: Tj. asi takto:

var
  cena, procento: Float;
begin
  cena := StrToIntDef(Edit1.text, -1);
  procento := StrToIntDef(Edit2.Text, -1);
  if (cena = -1) or (procento = -1) then
    Label1.Caption := 'chybné zadání'
  else
    Label1.Caption := FormatFloat('0.00', cena/100*procento);
end;

PS2: A IMHO to nebude fungovat s desetinnou čárkou, ale s desetinnou tečkou

no kdyz jsem tam dal Float hodilo to chybovou hlasku. Nevite co s tim?

nevite jak to udelat aby tam sla dat desetina tecka?

Dej sem kod, ktery nejde. My nevime, kam jsi dal "float". Fakt je odsud na tvou obrazovku spatne videt.

1. Zmen datovy typ z Integer na Float
2. pouzij funkce pro prevod retezce na Float

Delphi obsahuje help, takze najit bys to tam mel bez problemu

procedure TForm1.Button1Click(Sender: TObject);
var cena, procento, vydelek: Float;
begin
cena := StrToIntDef(Edit1.text, -1);
procento := StrToIntDef(Edit2.Text, -1);
vydelek := StrToIntDef(Edit3.Text, -1);
if (cena = -1) or (procento = -1)
then Label1.Caption := 'chybné zadání'
else
Label1.Caption := FormatFloat('0.00kč', (cena/100)*procento+10+cena+vydelek);
end;

Takhle jsem to vse nastavil

takhle jsem to naprogramoval a nic

a co, myslis si ze sa to spravi samo? ked konecne vyrasties a prestanes mat vyjadrovanie ako male decko, tak potom pis. pretoze ocividne nechapes princip internetoveho fora a nevies ani pisat chybove hlasky. Nikoho nebavi lustit tvoje hadanky.

Kdyz uz float tak dobrej je tez extended pak je to vetsi sranda + vlastni database pomoci StreamMemory.
To L-Core: Jiste exel a vsechny promenne by byly kulovy