Pereiti prie turinio

Rekomenduojami pranešimai

Kur paryskinta reikia kad ismestu didziausia skaiciu (pwz: 5 7 ir ismestu 7, o jeigu rasysiu 7 ir 1 kad ismestu 7 nes db kazkas negerai) dekui kas pades.

 

 

 

unit maks1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public x:double;

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var x,maks:double;

begin

if key=#13 then begin

x:=x+strtofloat(edit1.text);

label1.Caption:=floattostr(x);

x:=strtofloat(edit1.text);

if x>maks then begin maks:=x;

end else maks:=maks;

Label2.Caption:=Edit1.Text;

end;

edit1.Text:='';

 

end;

 

procedure TForm1.FormActivate(Sender: TObject);

begin

x:=0;

edit1.Text:='';

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

x:=0;

edit1.Text:='';

label1.Caption:='0';

end;

 

end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Kur paryskinta reikia kad ismestu didziausia skaiciu (pwz: 5 7 ir ismestu 7, o jeigu rasysiu 7 ir 1 kad ismestu 7 nes db kazkas negerai) dekui kas pades.

 

 

 

unit maks1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public x:double;

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var x,maks:double;

begin

if key=#13 then begin

x:=x+strtofloat(edit1.text);

label1.Caption:=floattostr(x);

x:=strtofloat(edit1.text);

if x>maks then maks:=x;

Label2.Caption:=Edit1.Text;

end;

edit1.Text:='';

 

end;

 

procedure TForm1.FormActivate(Sender: TObject);

begin

x:=0;

edit1.Text:='';

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

x:=0;

edit1.Text:='';

label1.Caption:='0';

end;

 

end.

 

 

 

maks daryk globalu ir formonload maks:=0;

 

arba tiesiog

 

 

unit maks1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public x:double;

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var x,maks:double;

begin

maks:=0;

x:=0; //arba jei reikia form onload'e

if key=#13 then begin

x:=x+strtofloat(edit1.text);

label1.Caption:=floattostr(x);

x:=strtofloat(edit1.text);

if x>maks then maks:=x;

end;

 

Label2.Caption:=Edit1.Text;

end;

edit1.Text:='';

 

end;

 

procedure TForm1.FormActivate(Sender: TObject);

begin

x:=0;

edit1.Text:='';

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

x:=0;

edit1.Text:='';

label1.Caption:='0';

end;

 

end.

Redagavo link
Nuoroda į pranešimą
Dalintis kituose puslapiuose
  • po 2 mėnesių...

Blogai:

private

{ Private declarations }

public x:double;

{ Public declarations }

end;

 

.....

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var x,maks:double;

begin

if key=#13 then begin

x:=x+strtofloat(edit1.text);

label1.Caption:=floattostr(x);

x:=strtofloat(edit1.text);

if x>maks then maks:=x;

 

Label2.Caption:=Edit1.Text;

end;

edit1.Text:='';

 

end;

 

Gerai:

 

private

{ Private declarations }

public x, maks:double;

{ Public declarations }

end;

 

.....

 

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

 

if key=#13 then

begin

x:=x+strtofloat(edit1.text);

label1.Caption:=floattostr(x);

x:=strtofloat(edit1.text);

if x>maks then maks:=x;

Label2.Caption:=Edit1.Text;

end;

 

edit1.Text:='';

 

end;

 

 

ir ONACTIVATE pasidaryk, kad x ir max būtų 0. Nebandziau, bet pagrindines klaidos pas tave apsibreziant kintamuosius..

Nuoroda į pranešimą
Dalintis kituose puslapiuose
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...