iskrsao je jos jedan problem
isti je zadatak u pitanju, mora se resiti jednacina A*X+B=0 medjutim u slucaju kada u nekoj od edit komponenti ne unesemo broj mora da se pojavi poruka da je polje prazno.
takodje vazi i za broj 0, mora da se pojavi poruka ako je unesen broj 0 da on ne sme tu da stoji.
kod izgleda ovako:
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
edA: TEdit;
lbX: TLabel;
edB: TEdit;
lbNula: TLabel;
lbRez: TLabel;
btIzracunaj: TButton;
lbA: TLabel;
lbB: TLabel;
procedure btIzracunajClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btIzracunajClick(Sender: TObject);
var A,B:Integer;
begin
If edA.Text='' then
ShowMessage('Nije unet prvi broj');
If edA.Text='0' then
ShowMessage('Prvi broj ne sme biti nula');
If edB.Text='' then
ShowMessage('Nije unet drugi broj');
If edB.Text='0' then
ShowMessage('Drugi broj ne sme biti nula');
A:=StrToInt(edA.Text);
B:=StrToInt(edB.Text);
lbRez.Caption:=FloatToStr(-B/A);
end;
end.
problem nastaje ako se ispuni jedan od uslova gde se pojavljuje showmessage, ne znam kako da prekinem dalju operaciju... znam da je potrebno else posle svakog uslova ali ne znam i koja komanda posle nje...
[Ovu poruku je menjao savkic dana 22.12.2008. u 15:47 GMT+1]