[Delphi] Кто может сделать блок-схему?

[Rogoleon]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    ComboBox1: TComboBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    Label1: TLabel;
    Label2: TLabel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
    procedure LabeledEdit3Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var k,n:integer;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}


1:begin
  adoquery1.active:=false; adoquery1.active:=true;
  adoquery1.SQL.Clear;
  adoquery1.SQL.add('select * from V2');
  adoquery1.open;
  form1.ADOQuery1.First;
  form2.A1.Caption:=adoquery1.Fieldvalues['a1'];
  form2.A2.Caption:=adoquery1.Fieldvalues['a2'];
  form2.A3.Caption:=adoquery1.Fieldvalues['a3'];
  form2.A4.Caption:=adoquery1.Fieldvalues['a4'];
  form2.memo2.text:=adoquery1.Fieldvalues['t1'];
  form2.memo1.text:=adoquery1.Fieldvalues['t2'];
  k:=0;
  form2.Label1.Caption:=inttostr(k);
    form2.show;
    form1.Hide;
    form3.memo1.clear;
    form3.memo1.lines.add(labelededit1.text+'  '+labelededit2.text+'  '+labelededit3.text+'  ' );


    labelededit1.Clear;
    labelededit2.Clear;
    labelededit3.Clear;
  end;

end;  
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (labelededit1.Text='') or (labelededit2.Text='') or (labelededit3.Text='') or (combobox1.ItemIndex=-1) then button1.Enabled:=false
else button1.Enabled:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Enabled:=false;
end;



procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
if (labelededit1.Text='') or (labelededit2.Text='') or (labelededit3.Text='') or (combobox1.ItemIndex=-1) then button1.Enabled:=false
else button1.Enabled:=true;

end;

procedure TForm1.LabeledEdit3Change(Sender: TObject);
begin
if (labelededit1.Text='') or (labelededit2.Text='') or (labelededit3.Text='') or (combobox1.ItemIndex=-1) then button1.Enabled:=false
else button1.Enabled:=true;

end;

procedure TForm1.N1Click(Sender: TObject);
begin
form1.Hide;
form4.show;
end;

end

[kropotkina-alice]

Вы раньше обращались по нужным адресам - "Помощь студентам", "Фриланс"...
Почему изменили привычке?

[Heneken87]

Солидарен с kropotkina-alice

[Sciv]

Пожалуй, дам семантически верный и абсолютно бесполезный ответ: я могу.