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