Avatar billede php_teddy Nybegynder
13. december 2001 - 21:34 Der er 8 kommentarer og
2 løsninger

var x .... hvordan skriver jeg det ?

procedure TForm1.Button1Click(Sender: TObject);
var x : integer;
begin
  x := 10;
  Random(x);
  if x < 1 then
  begin
    random(x);
  end;
end;

end.

hvis jeg vil ha\' Label1 skal skrive hvad x er

hvordan gør jeg så ??
Avatar billede pellelil Nybegynder
13. december 2001 - 21:44 #1
label1.caption := IntToStr(x);
Avatar billede php_teddy Nybegynder
13. december 2001 - 21:46 #2
hvor skal den ligsom sættes ind henne
Avatar billede php_teddy Nybegynder
13. december 2001 - 21:50 #3
det virker vist ikke jeg sakl altså have fat i væren af random... den giver mig bare værdi 10 som x er sæt til øverst
Avatar billede cyberlsn Nybegynder
13. december 2001 - 21:54 #4
Sådan:
(kom til at lave en lille fejl i forrige spm):

procedure TForm1.Button1Click(sender: TObject);
var x: integer;
begin
  x := random(10);
  label1.caption := IntToStr(x);
end;
Avatar billede cyberlsn Nybegynder
13. december 2001 - 21:57 #5
- men læg mærke til:
Første gang du kalder Random(10); bliver det altid 0.

Så skriv:
procedure TForm1.Button1Click(sender: TObject);
var x: integer;
begin
  x := random(10);
  x := random(10);
  label1.caption := IntToStr(x);
end;
Avatar billede cyberlsn Nybegynder
13. december 2001 - 21:57 #6
kald den 2 gange. :)
Avatar billede morten_s Nybegynder
13. december 2001 - 22:39 #7
Hvis det skal virke rigtigt skal du altid huske at initialisere din random generator med Randomize når du starter dit program, gør det f.eks på formens activate event.

Og du skal ikke kalde random 2 gange hvis du har kaldt randomize under programstart

så får du nedenstående kode

procedure TForm1.FormActivate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(Random(10));
end;
Avatar billede php_teddy Nybegynder
13. december 2001 - 22:42 #8
ok tak... nu har jeg bare 1 problem...

hvordan kan jeg sige

x+y skal gemmes i en værdi som måske kunne hede z ind til jeg får brug for z...
Avatar billede morten_s Nybegynder
13. december 2001 - 22:47 #9
ja du kunne jo oprette en global variabel som hed Z

Prøv følgende:

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  z : Integer; // <------ DIN GLOBALE VARIABEL Z

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y : Integer;  <----- DINE LOKALE VARIABLE X, Y (X, Y LEVER KUN INDE I DENNE RUTINE)
begin
  Label1.Caption := IntToStr(Random(10));
  X : = 3;
  Y := 2;
  Z := X + Y;
end;

end.
Avatar billede cyberlsn Nybegynder
14. december 2001 - 16:54 #10
Den samlede værdi at X+Y kan samles i én variabel, med følgende kode:
z := x+y; //Z tildeles den samlede værdi af X + Y.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester