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

• #1867 TAZ155 csendes tag

  Új Válasz 2011-03-22 20:13:57 #1867

  Ú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

  

  TAZ155

  csendes tag

  Sziasztok.
  Gondolom a megoldás igen egyszerű lessz.
  A következő kérdésem az lenne hogy.....

  Adott egy Then, Else ággal megirt feltétel.

  A Forrás:

  unit szamol;

  interface

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

  type
  TForm1 = class(TForm)
  Edit1: TEdit;
  Edit2: TEdit;
  Button1: TButton;
  Label1: TLabel;
  Button2: TButton;
  Label2: TLabel;
  Timer1: TTimer;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);

  private
  { Private declarations }
  public
  { Public declarations }
  end;

  var
  Form1: TForm1;

  implementation

  {$R *.dfm}

  procedure TForm1.Button1Click(Sender: TObject);
  var

  Z1,Z2 : Integer ;

  begin

  begin // Feltétel irás

  // integráljuk az z1, z2-es értéket

  Z1:=StrtoInt(Edit1.text); // hivatkozás a cellá-ra
  Z2:=StrtoInt(Edit2.text);

  if ( z1 = z2 )

  // ha z1 egyenlő z2-értékével akkor
  // akkor then-ág lép érvényben.

  then

  begin
  ShowMessage ( 'Az értékek MEG eggyeznek ' )
  end

  // ha z1 NEM egyenlő z2-értékével akkor
  // akkor az else-ág lép érvényben.

  else

  begin
  ShowMessage ( 'Az értékek NEM eggyeznek meg ' )
  end ;

  end;

  end;

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

  end.

  A program vége.

  Alap állapotban a Delphi csak a számokat ismeri fel. (1,2,3 stb)

  Melyik a helyes módja, hogy rá tudjuk beszélni hogy a betü karaktereke is gond nélkűl kezelje.
  Meglátásom szerint , de ez csak az én véleményem.

  1. megoldás.
  A Betű karakterekből ASCII értéket csinálunk.( Tehát szám érték lessz a végeredmény)
  Hogyan????

  2. megoldás
  A programozzunk Delphi 7 rendszerben cimű könyv szerint lehet integrálni a karakter készletet, és onnantól kezdve már nem okoz gondot hogy Betűt,vagy számot irunk be a programnak. Ezt a megoldást meg nem sikerült felélesztenem.
  Hogyan????

  Ebben kérnék segitséget, infót.

  Hali

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