Avatar billede velle Nybegynder
03. april 2002 - 23:54 Der er 6 kommentarer og
1 løsning

Case of med streng

Hvorfor kan jeg ikke gøre sådan


procedure VafforEtDyr;
var
  dyr: string;
begin
dyr:='ged';
case ged of
'ged': ShowMessage('mæhh');
'gris': ShowMessage('øf');
'ko': ShowMessage('muhh');
end;
end;


er jeg nødt til at lave en IF for hvor af dem? hvordan gøres det lettest, hvis jeg ikke kan bruge CASE OF?

VH Velle
Avatar billede razersedge Nybegynder
04. april 2002 - 00:00 #1
lytter
Avatar billede nico26 Nybegynder
04. april 2002 - 00:37 #2
Du kan kun bruge ordinale værdier som Integer, char, enumerations...
Avatar billede nico26 Nybegynder
04. april 2002 - 00:39 #3
if dyr = 'ged' then
  ShowMessage('mæhh')
else if dyr = 'gris' then
  ShowMessage('øf')
else if dyr = 'ko' then
  ShowMessage('muhh')
else
  ShowMessage('ukendt dyr');
Avatar billede stoney Nybegynder
04. april 2002 - 00:41 #4
Well, jeg har en løsning på det.
Jeg kan bare ikke se pointen i at hjælpe dig.
Man hører aldrig en lyd fra dig når man poster et indlæg.

http://www.eksperten.dk/spm/189155

Det er i orden hvis du ikke kan bruge svaret, men det er pisse irriterende
at bruge tid på at lave et eks. til dig og uploade det og så aldrig høre
en lyd fra dig.

Stoney
Avatar billede nico26 Nybegynder
04. april 2002 - 00:43 #5
du kan evt. lave en opremsningtype

type
  TDyr = (ged, gris, ko);

...

procedure VafforEtDyr;
var
  Dyr: TDyr;
begin
  Dyr := ged;

  case Dyr of
    ged  : ShowMessage('mæhh');
    gris : ShowMessage('øf');
    ko  : ShowMessage('muhh');
  end;
end;
Avatar billede lanstorp Nybegynder
04. april 2002 - 08:40 #6
http://www.eksperten.dk/spm/131715
Var også med på ../spm/189155, dog ikke med Stoney's indsats.
Men kan jo kikke på 'Point ude' for at se om man har hængepartier.
Avatar billede velle Nybegynder
08. april 2002 - 20:45 #7
yo! takker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Riskpoint A/S (Riskpoint Solutions Limited)

Senior Developer

Capgemini Danmark A/S

Strategy & Transformation Consultant

Capgemini Danmark A/S

Client Partner