products/Sources/formale Sprachen/Coq/test-suite/bugs/closed/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Feedback.~pas   Sprache: Unknown

Spracherkennung für: .~pas vermutete Sprache: Shell {Shell[57] Isabelle[58] Cobol[110]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

unit Feedback;

interface

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

type
  TFeedform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Vorname: TEdit;
    Name: TEdit;
    Email: TEdit;
    Kommentar: TMemo;
    Absenden: TButton;
    Bewertung: TComboBox;
    Verwerfen: TButton;
    constructor Create(Owner: TComponent); override;
    procedure AbsendenClick(Sender: TObject);
    procedure VerwerfenClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  public
    { Déclarations publiques }
    Sent:boolean
  end;


var
  Feedform: TFeedform;

implementation

{$R *.dfm}

constructor TFeedform.Create(Owner: TComponent);
begin
  inherited;
  Sent:=false;
  Vorname.Clear;
  Name.Clear;
  Email.Clear;
  Kommentar.Clear;
end;

procedure TFeedform.AbsendenClick(Sender: TObject);
begin
   if vorname.Text='' then Label1.Color:=clRed
   else if name.Text='' then Label2.Color:=clRed
   else if email.Text='' then Label3.Color:=clRed
   else if Bewertung.ItemIndex=-1 then Label6.Color:=clRed
   else begin
     Sent:=true;
     Close
   end;
end;

procedure TFeedform.VerwerfenClick(Sender: TObject);
begin
   Sent:=false;
   Close;
end;

procedure TFeedForm.FormPaint(Sender: TObject);
begin
  Absenden.SetFocus
end;

end.

[ Dauer der Verarbeitung: 0.67 Sekunden  ]