Új hozzászólás Aktív témák

• #1637 Csajó csendes tag

  Új Válasz 2008-11-02 19:23:10 #1637

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Csajó

  csendes tag

  szia!
  valahogy így néz ki a programom,csak a vége már nem kóser,azzal már nem igazán tudok mit kezdeni,ez már nagyon kifogott rajtam
  egyébként nagyon szépen köszönöm

  unit gondoltam;

  interface

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

  type
  TForm1 = class(TForm)
  Label1: TLabel;
  Edit1: TEdit;
  Button1: TButton;
  Label2: TLabel;
  Label3: TLabel;
  procedure Button1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

  var
  Form1: TForm1;
  szam:integer;

  implementation

  {$R *.dfm}
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  szam := random(60)+1;
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  var tipp :integer;
  begin
  tipp:= StrToInt (Edit1.Text);
  if tipp <szam then
  Label3.Caption := 'Nagyobb szamra gondoltam'
  else if tipp >szam then
  Label2.Caption := 'Kissebb szamra gondoltam'
  else
  begin
  Label3.Caption := 'Eltaláltad';
  if MessageDlg (' : ) ',

  end;
  end;

  end.

Új hozzászólás Aktív témák