[jikey]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='0';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit2.Text:='1';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit2.Text:='0'
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
    if ((Edit1.Text:='0')and (Edit2.Text:='1')  //если х1=0 и х2=0
        or                                 //или
        (Edit1.Text:='1')and (Edit2.Text:='0')   //если х1=1 и х2=0
        or                                         //или
        (Edit1.Text:='1')and (Edit2.Text:='1'))   //если х1=1 и х2=1
  then Edit3.Text:='0'                      //тогда х3=0
  else Edit3.Text:='1'                      //иначе х3=1
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

ругается на строчки выделенные жирным и самая последняя ошибка "could not compile used unit 'unit1.pas'', смотрю рабочий исходник коды схожие, а свежо сделанная не хочет работать...

вот рабочий код только чуть другой

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button3: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='0';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit2.Text:='0';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit2.Text:='1';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 if ((Edit1.Text= '1')and (Edit2.Text= '0')   //если х1=1 и х2=0
or									//или 
(Edit1.Text= '0')and (Edit2.Text= '1'))   // х1=0 и х1=1
then Edit3.Text:='0'// то на выходе 0
else            // иначе
   Edit3.Text:='1'// 1

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

[Yurk@]

Код:

if ((Edit1.Text = '0')and (Edit2.Text = '1') //если х1=0 и х2=0
 or  //или
 (Edit1.Text = '1')and (Edit2.Text = '0') //если х1=1 и х2=0
or  //или
(Edit1.Text = '1')and (Edit2.Text = '1')) //если х1=1 и х2=1

[jikey]

спасибо большое, надо же какой я не внимательный, такое и не заметить))