Assignment 2 Question 4

I have a slight problem. When I select the appropriate course, the text in the label, displaying the course rating, would cut the first character off.

Pretoria becomes retoria, Centurion --> enturion etc

Any help ??

private
{ Private declarations }

procedure ShowRating (Index: integer; out CourseName, CourseRating: string);



implementation

{$R *.dfm}

procedure TfrmMyGolf.rgbCoursesClick(Sender: TObject);
var
CourseRating: string;
begin
// Change Label in Course rating
ShowRating (frmMyGolf.rgbCourses.ItemIndex, CourseName, CourseRating) ;
lblCourseRating.Caption := 'Rating for ' +CourseName+ ' is ' +CourseRating ;
end;

procedure TfrmMyGolf.ShowRating (Index: integer; out CourseName, CourseRating: string);
begin
CourseName := frmMyGolf.rgbCourses.Items.ValueFromIndex[Index];
CourseRating := IntToStr(Ratings[Index]);

Reconmend using

frmMyGolf.rgbCourses.Items.Strings[Index]

i used

rgbCourses.Items[rgbCourses.ItemIndex]

to get the name

Can anyone help with assignment2 please? I am behind on chapter 8. Had some serious family problems and just discovered now that am on the due date!

email at: lote@webmail.co.za

thanks alot

African Boy,
In Tutorial 101, page 10, it states that you must submit your assignment as soon as possible and include a note of explanation.
Good luck!!
Reanie

I had the same issue as streaker so I eventually came up with this
NOTE I have 2 lavels One for the Couse Name And One for the Rating
: this isn't neccesary - it's only cosmetic you can put the result back into One String and assign it to the lable's caption



procedure TfrmMyGolf.ShowRating(I:TRadioGroup; var S,SS:TLabel);
begin
case I.ItemIndex of
0:begin S.Caption:= I.Items.Strings[0]; SS.Caption:= IntToStr(Ratings[0]);end;
1:begin S.Caption:= I.Items.Strings[1]; SS.Caption:= IntToStr(Ratings[1]);end;
2:begin S.Caption:= I.Items.Strings[2]; SS.Caption:= IntToStr(Ratings[2]);end;
3:begin S.Caption:= I.Items.Strings[3]; SS.Caption:= IntToStr(Ratings[3]);end;
4:begin S.Caption:= I.Items.Strings[4]; SS.Caption:= IntToStr(Ratings[4]);end;
5:begin S.Caption:= I.Items.Strings[5]; SS.Caption:= IntToStr(Ratings[5]);end;
end;
//S := 'Course Rating =' + IntToStr(Ratings);
end;

PS. here is the eventhandler for the thing


procedure TfrmMyGolf.rgbCoursesClick(Sender: TObject);
begin
ShowRating(rgbCourses,lblCourseRating,lblCR);
end;