[Delphi] case Sender of ...

[Verwijderd]

Heb dus een probleempje in delphi me deze code:

Delphi:

procedure TFrame3.SelectFolder(Sender: TObject);
 var
  chosenDirectory : string;
begin
case Sender of //ik heb ook al longword(Sender) geprobeerd
  btnOpen:inppath.Text:=chosenDirectory;
  btnOpen2:inpSub.Text:=chosenDirectory;
  end;
end;

dit schijnt dus niet te werken (de case of Sender) =>[Error] frame_o.pas(205): Ordinal type required.Na wat zoeken op google kwam ik op een forum terecht waar men na enkele posts uiteindelijk besluit om het toch maar met if...then..else te doen ([url]http://http://www.mail-archive.com/[e-mail]/msg16643.html[/url] -> forum) Ik heb ook niets gevonden op GoT over dit item, is dit uberhaupt dan wel mogelijk of moet het echt allemaal me if..then...else ?

Dank bij voorbaat
edit:typo

[ Voor 3% gewijzigd door Verwijderd op 23-05-2005 20:13 ]

[MSalters]

Is er iets mis met de error message? Sender is een TObject, en TObject is geen Ordinal type. Ordinal types zijn in goed nederlands aftelbare types, een twee veel.

[whoami]

Je zult het met een ifje moeten doen:

code:

var
  theButton : TButton;
begin
if sender is TButton then begin
  theButton = (TButton)sender;
end;

if theButton.Name = 'btnOpen' then
...

Of misschien kan je dan wel beter doen:

code:

if theButton = btnOpen then

Indien dit mogelijk is.

[ Voor 22% gewijzigd door whoami op 23-05-2005 20:24 ]

[FendtVario]

Als aanvulling op Whoami, je kan het ook zo doen

Delphi:

if (Sender is TButton) then
  if (Sender as TButton).Name = 'btnOpen' then
  begin
    ...
  end;

Je hoeft dan niet een knop toe te wijzen aan een variabele.

[ Voor 4% gewijzigd door FendtVario op 23-05-2005 21:39 ]

[whoami]

FendtVario schreef op maandag 23 mei 2005 @ 21:39:
Als aanvulling op Whoami, je kan het ook zo doen

Delphi:

if (Sender is TButton) then
  if (Sender as TButton).Name = 'btnOpen' then
  begin
    ...
  end;

Je hoeft dan niet een knop toe te wijzen aan een variabele.

Nee, dan ga je bij iedere if typecasten..... lijkt me niet leuk.

[Verwijderd]

zoals ik dus had verwacht, er blijkt geen manier te bestaan om dit met een 'case... of' te doen, spijtig... dan worden het maar if..then's

opm: IMHO maareuh, dit lijkt me toch een foutje van de ontwikkelaars,het zou toch mogelijk moeten kunnen zijn, of zie ik dit verkeerd ?( waarschijnlijk )

[NMe]

Verwijderd schreef op maandag 23 mei 2005 @ 22:26:
opm: IMHO maareuh, dit lijkt me toch een foutje van de ontwikkelaars,het zou toch mogelijk moeten kunnen zijn, of zie ik dit verkeerd ?( waarschijnlijk )

Een foutje? Waarom? Switch-statements werken in de meeste talen die ik ken alleen op ordinale types.

[Klippy]

Je kan ook iets al dit doen als je liever een case gebruikt.

Delphi:

var knopnummer : char;

knopnummer := (Sender as TButton).Name[8];

case knopnummer of
   '1': //doe iets;
   '2': //doe iets anders
end;

Mijn Delphi kwaliteiten zijn nogal laag geworden, maar je snapt wel wat ik bedoel denk ik.
Moet je wel zorgen dat je die functie alleen aan je TButtons koppelt natuurlijk, maar dat zal wel zo zijn.

Je neemt dus gewoon het 8e karakter, wat in dit geval het nummer van je knop is en daar vergelijk je op.
Evenyueel nog even een StrToInt er op loslaten en je kan doornummeren tot boven de tien, al moet je dan even 2 karakters nemen, 01 t/m 99 etc..

Weet niet of dit erg netjes is, maar zo zou ik het doen als ik heel veel knopjes had, spaart een hoop tijd

[ Voor 6% gewijzigd door Klippy op 23-05-2005 23:10 ]

[NMe]

Klippy: ook strings zijn geen ordinals, dus een dergelijke oplossing zou ook nog vereisen dat je de StrToInt-functie gebruikt.

Ik heb de jury er even bijgeroepen, het schijnt idd te mogen, mits de Name van een object géén AnsiString is.

[ Voor 34% gewijzigd door NMe op 23-05-2005 23:45 ]

[Klippy]

-NMe- schreef op maandag 23 mei 2005 @ 23:21:
Klippy: ook strings zijn geen ordinals, dus een dergelijke oplossing zou ook nog vereisen dat je de StrToInt-functie gebruikt.

karakters toch wel?

In elk geval in C++... heb niet zo'n verstand van Delphi

[Delphi32]

Als het allemaal knopjes zijn (of controls van (ongeveer) dezelfde class) kan je natuurlijk ook overwegen de Tag property te gaan gebruiken. Daar stop je gewoon een integer in en hop, je case statement mag blijven:

Delphi:

case (Sender as TButton).Tag of
  1: DoeJeDing; 
  2: DoeEenAnderDing;
  else ForgetAboutIt;
end;

[Paul]

Zo lelijk hoeft een geneste if..else toch ook niet te zijn dat er hier allemaal omwegen worden gezocht?

Delphi:

if      Sender = myFirstButtonTM  then
  begin
    DoeIets;
  end
else if Sender = MySecondButton   then
  begin
    DoeIetsAnders;
  end;
else if Sender = HeleAndereButton then
  begin
    DoeNogWeerIetsAnders;
  end
else
  begin
    // Zou niet voor mogen komen daar de programmeur de enige
    // is die eventhandlers aan events hangt
    raise Exception.Create('Onbekende sender');
  end;

Als er steeds slechts 1 aanroep gedaan wordt zou je zelfs de begin en de end weg kunnen halen,

[Verwijderd]

Een foutje? Waarom? Switch-statements werken in de meeste talen die ik ken alleen op ordinale types.

@-NMe-: ben dus nog niet zolang met delphi aan het werk, zo leer je ook ineens wat bij
(wist dus niet wat ordinale types waren ,heb het even opgezocht )

[whoami]

Klippy schreef op maandag 23 mei 2005 @ 23:08:
Je kan ook iets al dit doen als je liever een case gebruikt.

Delphi:

var knopnummer : char;

knopnummer := (Sender as TButton).Name[8];

case knopnummer of
   '1': //doe iets;
   '2': //doe iets anders
end;

Dit is echt een bagger oplossing.
Je verplicht jezelf om iedere button dezelfde naam te geven, gevolgd door een nummer.
Wat als je nu eens 11 buttons hebt ?
Mijn Delphi kwaliteiten zijn nogal laag geworden, maar je snapt wel wat ik bedoel denk ik.
Moet je wel zorgen dat je die functie alleen aan je TButtons koppelt natuurlijk, maar dat zal wel zo zijn.

Je neemt dus gewoon het 8e karakter, wat in dit geval het nummer van je knop is en daar vergelijk je op.
Evenyueel nog even een StrToInt er op loslaten en je kan doornummeren tot boven de tien, al moet je dan even 2 karakters nemen, 01 t/m 99 etc..

Weet niet of dit erg netjes is, maar zo zou ik het doen als ik heel veel knopjes had, spaart een hoop tijd