SRL Archive - Delphi/FPC Help and Tutorials

Here's the procedure:

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
  case (Form1.ComboBox3.Text) of  //The ordinal error.
    'Black': Form1.RichEdit1.SelAttributes.Color:=clBlack;  //The Incompatable types error.
    'Grey': Form1.RichEdit1.SelAttributes.Color:=clGray;
    'White': Form1.RichEdit1.SelAttributes.Color:=clWhite;
    'Cyan': Form1.RichEdit1.SelAttributes.Color:=clSkyBlue;
    'Blue': Form1.RichEdit1.SelAttributes.Color:=clBlue;
    'Navy': Form1.RichEdit1.SelAttributes.Color:=clNavy;
    'Red':  Form1.RichEdit1.SelAttributes.Color:=clRed;
    'Maroon':  Form1.RichEdit1.SelAttributes.Color:=clMaroon;
    'Yellow':  Form1.RichEdit1.SelAttributes.Color:=clYellow;
    'Lime':  Form1.RichEdit1.SelAttributes.Color:=clLime;
    'Green':  Form1.RichEdit1.SelAttributes.Color:=clGreen;
    'Teal':  Form1.RichEdit1.SelAttributes.Color:=clTeal;
    'Dark Green':  Form1.RichEdit1.SelAttributes.Color:=clMoneyGreen;
    'Purple':  Form1.RichEdit1.SelAttributes.Color:=clPurple;
  end;
end;

And here are the errors i am receiving:

[Error] Unit1.pas(237): Ordinal type required
[Error] Unit1.pas(238): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(239): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(240): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(241): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(242): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(243): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(244): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(245): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(246): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(247): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(248): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(249): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(250): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(251): Incompatible types: 'Integer' and 'String'

Please help, as i have no idea how i could receive those errors. I have googled it, and failed. It works in SCAR so there must be a difference. Please help, thanks ;)

Rep++ if you do help ;)

I think the color may be a string, have you checked the Codehints?



Also: The only two reasons this would occur: Form1.ComboBox3.Text is an integer (it may be in the if its infact a pointer), or Form1.RichEdit1.SelAttributes.Color is a string.

In Delphi, cases don't accept strings (or, in this case, TCaptions).

If..then..else … then.

Nevermind, i got it figured out and i managed to fix a bug ;)

[QUOTE=Dan's The Man;442137]Nevermind, i got it figured out and i managed to fix a bug ;)[/QUOTE]

[offtopic]
Well Dan, if I look to your sig, you seem to fail a lot:p
[/offtopic]

From: the scar noob
[offtopic]
Well Dan, if I look to your sig, you seem to fail a lot:p
[/offtopic]

Lol, i changed that a while ago :p I just liked those pictures :p

or you could use a TColorDialog and make it shorter as well as having more colors :).

From: Dan Cardin
or you could use a TColorDialog and make it shorter as well as having more colors :).

I used a TColorGrid :D You can see my work in the Misc. Links and Programs forums, DanWord ;)

Delphi's case statements do not accept strings, also this is a terribad way to go about this :(

From: Freddy1990
Delphi's case statements do not accept strings, also this is a terribad way to go about this :(

I don't care anymore, i had changed my method anyway ;)