Assignment 2

Krish, you are missing a t in IntToStr

Hi,

Can anyone tell me what is wrong with my code for 2.7?? Any suggestions?

procedure TfrmBuyTickets.btnAddNamesClick(Sender: TObject);
const
MaxStadiums = 5;
var
StadiumName: String;
begin

if lstStadiums.Items.Count < MaxStadiums then
StadiumName := InputBox('FIFA Stadiums', 'Please enter the name of the stadium','';
lstStadiums.items.Add(StadiumName);

else if lststadiums.Items.Count = MaxStadiums then
MESSAGEDLG('Please enter a maximum of 5 stadiums',mtWarning,[mbOK],0);
btnAddNames.Enabled := false;
end;

43437478 Wrote:
-------------------------------------------------------
> Hi,
>
> Can anyone tell me what is wrong with my code for
> 2.7?? Any suggestions?
>
> procedure TfrmBuyTickets.btnAddNamesClick(Sender:
> TObject);
> const
> MaxStadiums = 5;
> var
> StadiumName: String;
> begin
>
> if lstStadiums.Items.Count < MaxStadiums then
> StadiumName := InputBox('FIFA Stadiums', 'Please
> enter the name of the stadium','';
> lstStadiums.items.Add(StadiumName);


Good, but rather drop the else statement


> else if lststadiums.Items.Count = MaxStadiums
> then
> MESSAGEDLG('Please enter a maximum of 5
> stadiums',mtWarning,,0);
> btnAddNames.Enabled := false;
> end;



instead do another:

if lststadiums.Items.Count >= MaxStadiums
then
btnAddNames.Enabled := false;
end;


You are only checking when a new stadium is added, you still need to do this but you also need to check after a stadium has been added.

--------------------------------------------------------------
Don't Assume Everything is a Nail Just Because You Have a Really Big Hammer

43437478

There are also compound statements at the if .. then clauses.
This must be enclosed with begin .. end [no semicolon if you have the else part]

Thanks guys!

?

?> ?

people I need to be spoonfed Question 2.8.

Language: Delphi
procedure TfrmBuyTickets.btnBuyForClick(Sender: TObject);
var
  Count, Price, ListStadium : integer;
  Stadium, ListStadiumPrice : String;
begin
  lstCost.Clear;
  Randomize;
  Stadium := lstStadiums.Items.GetText;
  ListStadium := lstStadiums.ItemIndex +1;
  ListStadiumPrice := (Stadium + '; stadium tickets costs '; + ';R '; +
    FloatToStr(Random(0 - 499)) + ';.00';);
  for ListStadium := 0 to 4 do
    lstCost.Items.Add(ListStadiumPrice);
end;

How do i get it to list the stadium only once? and to give a number between 0 and 499 as a currency? freaking hell man, I can't loose this marks.
help please

You should look up the stadium in the for loop, not before, as this will always show the same name.
Stadium := lstStadiums.Items[ListStadium];

Random(500); will give a random number from 0 to 499.

The upper bound of the for loop can be set by lstStadiums.Count, because maybe the code will change to have a different amount in the list box.

Hi Guys,

I was just about to submit my assigment, but look over it again, and was wondering if for Q2.8 it
is meant to be Cost := Random(500) + 1; OR Cost := Random(500) + 0; ?
We need to get a number between 0 and 499

How do you determine this?

Nevermind, I'm being dumb.
Obviously - Random(500) + 0

Good luck all!
My brain is mush after ICT2621.....................

trying to submit assignment, met by this:

OraOLEDB error '80040e14'

ORA-01654: unable to extend index VOSDATAP.ISOLGEN2 by 8192 in tablespace WEBIDX

/SACDL20/INCs/AddLog.inc, line 92 

did you get to submit yours fine? I think the DB crashed at myunisa because accessing last year's data gives errors too.
I;m not talking academic results. Getting the exam results of May/June 2009 produces an error. So it looks like I cant write or read to the DB of myunisa. Do they not have an after-hour DBA? damnit!

wtf is up with the assignments page on MyUnisa - Gives an error!
Is anyone else experiencing this?

What happens if midnight comes, and it still doesn't allow us to submit the required assignments?

the my friend, i'm afraid, We're screwed.

Wonderful!