Delphi programavimas

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.

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.

bet vis vien meta ne didziausia reiksme o paskutine parasyta nors ir ne didziausia, o man reikia kad mestu didziausia net jeigu po jos parasai mazesne.

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..