Randum number

Tags:    delphi

Jeg har læst artiklerne Matematik i Delphi part 1 og 2 og ville i den forbindelse forsøge at lave et lille program med et editfelt (kaldet edtTal) og en knap (kaldet btnPickNumber). Meningen er, at editfeltet skal vise et tilfældigt tal (randum number) efter, at man har klikket på knappen.

Her er min kode:

procedure TfrmRandNumber.btnPickNumberClick(Sender: TObject);
var
Randomize;
Result := Random(100);
{ træk tilfældigt tal mellem 0 og 100 }

begin
edtTal.Text := IntToStr(Result);
end;

Jeg får følgende fejl, når jeg compilerer og kører programmet:

- efter Randomize vil Delphi have, at der skal være en ':' eller ',' i stedet for ';'
- efter Result vil Delphi have, at der skal stå ':' eller ',' i stedet for ':='

Umiddelbart mener jeg, at jeg har fulgt artiklen og kan ikke finde fejlen, men jeg er nybegynder i Object Pascal og Delphi. Håber I kan hjælpe.



7 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato
Jeg har læst artiklerne Matematik i Delphi part 1 og 2 og ville i den forbindelse forsøge at lave et lille program med et editfelt (kaldet edtTal) og en knap (kaldet btnPickNumber). Meningen er, at editfeltet skal vise et tilfældigt tal (randum number) efter, at man har klikket på knappen.

Her er min kode:

procedure TfrmRandNumber.btnPickNumberClick(Sender: TObject);
var
Randomize;
Result := Random(100);
{ træk tilfældigt tal mellem 0 og 100 }

begin
edtTal.Text := IntToStr(Result);
end;

Jeg får følgende fejl, når jeg compilerer og kører programmet:

- efter Randomize vil Delphi have, at der skal være en ':' eller ',' i stedet for ';'
- efter Result vil Delphi have, at der skal stå ':' eller ',' i stedet for ':='

Umiddelbart mener jeg, at jeg har fulgt artiklen og kan ikke finde fejlen, men jeg er nybegynder i Object Pascal og Delphi. Håber I kan hjælpe.


Det er fordi at

Randomize;
Result := Random(100);
{ træk tilfældigt tal mellem 0 og 100 }

skal ned under "begin" ("var" kan slettes):

procedure TfrmRandNumber.btnPickNumberClick(Sender: TObject);
begin
Randomize;
Result := Random(100);
{ træk tilfældigt tal mellem 0 og 100 }
edtTal.Text := IntToStr(Result);
end;

Emil Melgaard
emil.melgaard@private.dk
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk



Jeg ville nok gøre det sådan:

Fold kodeboks ind/udKode 


Så ved jeg ikke omdet var det du bad om, men sådan har jeg forstået det;





Det er fordi at

Randomize;
Result := Random(100);
{ træk tilfældigt tal mellem 0 og 100 }

skal ned under "begin" ("var" kan slettes):

procedure TfrmRandNumber.btnPickNumberClick(Sender: TObject);
begin
Randomize;
Result := Random(100);
{ træk tilfældigt tal mellem 0 og 100 }
edtTal.Text := IntToStr(Result);
end;



Nu får jeg fejlen: Undeclared Identifier Result. Skal Result så alligvel erklæres som variabel, eller skyldes det noget andet?



emils metode er også fin men du kan ikke slette var
under var skal der stå:
Result : Integer;



emils metode er også fin men du kan ikke slette var
under var skal der stå:
Result : Integer;


Ikke hvis den er en global variabel (står under public, private eller var til formen).

Emil Melgaard
emil.melgaard@private.dk
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk



Det er rigtigt, jeg overgiver mig.



Tak for svarene til jer begge. Nu virker det jo efter hensigten.



t