Delphi tutorial

IGNORE ANY PERIODS (.) AT THE START OF ANY LINE

There is a search button at the bottom of the page.

This is still in a draft form.... it is probably mostly right, but I make no promises just yet!!!

Delphi Tutorial 3c... Part Three (version: 27 Dec 98)

In this part, we continue what we were doing in part two.... Now we need to create ConsiderNewScore.

After the first instance of...
procedure SaveHighScores;
(Not far below Type TDD04f1..)

... add ...
procedure ConsiderNewScore(Score:byte;Name:string);

...and just after...
implementation
{$R *.DFM}

... add ...
procedure TDD04f1.ConsiderNewScore(Score:byte;Name:string);
begin
{..}
end;

Developing this method is a little more tedious than what we've done before, because we want to call ConsiderNewScore from DD05. FOR NOW we will add some stuff to DD04 which will come out later. This stuff will be to get ConsiderNewScore debugged.

Add a button to DD04's form. Put it near the lower right of the form. Caption it 'Do it'. Make it's OnClick call ConsiderNewScore(4,'test');

Try running what ou have so far.

Now add to ConsiderNewScore, making it

procedure TDD04f1.ConsiderNewScore(Score:byte;Name:string);

begin

  StringGrid1.cells[0,1]:='  '+IntToStr(score);

  StringGrid1.cells[1,1]:=name;

end;

procedure TDD04f1.ConsiderNewScore(Score:byte;Name:string);

  var c1,c2:byte;

begin

  c1:=0;

  repeat

    inc(c1);

  until (StrToInt(StringGrid1.cells[0,c1])<=score) or (c1=10);

if (c1<10) or (StrToInt(StringGrid1.cells[0,c1])<=score)

  then begin (*Insert new, push down old*)

    for c2:=10 downto c1+1 do begin

     StringGrid1.cells[0,c2]:=StringGrid1.cells[0,c2-1];

     StringGrid1.cells[1,c2]:=StringGrid1.cells[1,c2-1];

     end;(*c2*)

  StringGrid1.cells[0,c1]:='  '+IntToStr(score);

  StringGrid1.cells[1,c1]:=Name;

  if OkToWriteToDisc then SaveHighScores;

  end;(*push/insert*)

end;

procedure TDD05f1.SetUpProb;

var c1:byte;

    sTmp1,sTmp2,sTmp:string;

begin

  c1:=random(bNRight);

  sTmp1:=Right.strings[c1];

  c1:=random(bNWrong);

  sTmp2:=Wrong.strings[c1];

  (*Two sentences chosen. Now, perhaps, reverse the order*)

  FirstIsRight:=true;(*prepare fro next*)

  if Random(2)=1 then begin

     (*Make second sentence the right one sometimes*)

     FirstIsRight:=false;

     sTmp:=sTmp1;

     sTmp1:=sTmp2;

     sTmp2:=sTmp

     end;

  Label1.caption:=sTmp1;

  Label2.caption:=sTmp2;

  (*N.B. Using a variable to carry a message a long

  way within a program, as I'm using FirstIsRight, is

  not in general a very good idea.*)

end;

procedure TDD05f1.FormKeyPress(Sender: TObject; var Key: Char);

begin

  key:=upcase(key);

  if (key='H') or(key='J') or(key='N') then begin

    if ((key='H') or (key='J')) and FirstIsRight then

       inc(GameScore);

    if (key='N') and not FirstIsRight then inc(GameScore);

    Label4.caption:='Score so far='+IntToStr(GameScore);

    SetUpProb;

    inc(RoundsDone);

    Label5.caption:='Rounds done='+IntToStr(RoundsDone);

    if RoundsDone=20 then begin (*A game finished*)

       Panel1.show;

       Button1.show;

       Edit1.show;

       Edit1.setfocus;

       Edit1.text:='';

       end;(*A game finished*)

    end;(*H,J or N pressed.*)

end;

procedure TDD05f1.Button1Click(Sender: TObject);

begin

  if edit1.text='' then edit1.text:='-- No name given --';

  DD04f1.ConsiderNewScore(GameScore,Edit1.text);

  GameScore:=0;

  Label4.caption:='Score so far='+IntToStr(GameScore);

  RoundsDone:=0;

  Label5.caption:='Rounds done='+IntToStr(RoundsDone);

  SetUpProb;

  Panel1.hide;

  Button1.hide;

  edit1.hide;

end;

Ad from page's editor: please visit my freeware and shareware page?