Hirdetés

Hirdetés

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

  • TAZ155

    csendes tag

    Sziasztok.
    Gondolom a megoldás igen egyszerű lessz. :W
    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???? :F

    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???? :F

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

    Hali

    Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??

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