www.jezyko.fora.pl

Jessi

ratujcie

DawidM

pomocyyyy

msw89

procedure TForm1.Button1Click(Sender: TObject);
var i,los,min,max:integer;
begin
for i:=1 to 20 do
begin
los:=randomrange(0,99);
if los > max then max:=los;
if los < min then min:=los;
listbox1.items.add(inttostr(los));
end;
edit1.text:=inttostr(max);
edit2.text:=inttostr(min);
button1.caption:=inttostr(min+max);
end;

DawidM

<3 Love yea Michał Very Happy

Anek

jak zrobić , żeby w edit 1 i 2 wyświetlały sie min i max?
Czy to ma byc podpisane tez pod button 1?

Jessi

cos z randomrage(0,99) ; mam byka..

DawidM

jak dodać te wszystkie z listboxa, bo jest min+max a ma byc all Very Happy

Anek

ok, nie było poprzedniego pytania, teraz inne: nie działa randomrange

msw89

uses math ^

Sylvi

Txiki:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not assigned(Form2) then
Form2:=Form2.create(Application);
Form2.show;
end;

end.