Delphi - umí zde někdo ?

[xy3000]

Prosím pomožte mi někdo , sám to nedám do kupy ani za 1000 let.

[Reklama]

[Koja]

A díval ses vůbec na ten odkaz? Resp, díval ses někdy do nějaký příručky/knížky/učebnice s Delphi?

[xy3000]

Díval jsem se if, then , else ale nevím jak to použít.

S knížky toho moc nejde naučit, lepší je když to někdo vysvětluje.

[Sender]

Pokud jsi to ještě nevyřešil,můžeš to zkusit takhle: na formulář vlož dva edity (TEdit) a tlačítko (TButton).Vytvoř událost OnClick u toho tlačítka a uprav kód aby vypadal takto:

Kód: Vybrat vše

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
try
  a:=StrToInt(Edit1.Text);
  Edit1.Text;
 except
   ShowMessage('Chyba - zadaný údaj není číselná hodnota !');
   Edit1.SetFocus;
   Exit;
 end;

try
  b:=StrToInt(Edit2.Text);
  Edit2.Text;
 except
   ShowMessage('Chyba - zadaný údaj není číselná hodnota !');
   Edit2.SetFocus;
   Exit;
 end;

  if a < b then
   ShowMessage('Větší číslo je B'+' " číslo:'+IntToStr(b)+' "')
  else
   if a > b then ShowMessage('Větší číslo je A'+' " číslo:'+IntToStr(a)+' "')
  else
   if a = b then ShowMessage('Čísla jsou si rovna.');

end;