[ Príspevkov: 5 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
CASE OF

Registrovaný: 20.11.09
Prihlásený: 02.11.14
Príspevky: 241
Témy: 58 | 58
Bydlisko: Myjava
NapísalOffline : 26.01.2010 17:50 | CASE OF

viem, ze toto je uplne zakladna vec, ale este som to doteraz nepotreboval. :oops:
Cital som, ze podmienka CASE OF sa moze pouzit aj na porovnavanie hodnot premennich typu STRING, ale mne to nejde.

Kód:
var
 smer: String;

      Case smer of
          'stop': ShowMessage('stop');
          'rovno': ShowMessage('rovno');
          end;


Tak ako to je? Ja tam robim chybu, alebo sa neda retazec porovnavat cez CASE OF ?


Offline

Skúsený užívateľ
Skúsený užívateľ
CASE OF

Registrovaný: 11.01.09
Prihlásený: 18.12.24
Príspevky: 1395
Témy: 10 | 10
Bydlisko: Hrinova
NapísalOffline : 26.01.2010 18:15 | CASE OF

Myslím, že sa to na reťazec použiť nedá, keďže, je požadovaný ordinálny typ. Pozri sa na túto stránku, je tam postup, ako sa to dá vyriešiť.


Offline

Užívateľ
Užívateľ
CASE OF

Registrovaný: 20.11.09
Prihlásený: 02.11.14
Príspevky: 241
Témy: 58 | 58
Bydlisko: Myjava
Napísal autor témyOffline : 26.01.2010 18:26 | CASE OF

no aj mne sa to zdalo byt divne, ale na jednej stranke som nasiel, ze sa daju porovnavat premenne typu STRING, ale to bola asi chyba
A ta uprava spociva v com presne? naindexovanie premennych?

ak tomu dobre chapam prikaz:
Kód:
StringIndex(a, ['Post', 'Edit', 'Cancel'])

vrati ciselnu hodnotu, pre prave ulozeny obsah v premenej a ?
Cize ak a= Edit potom vrati hodnotu 1?

Ale aj tak mi to nejde, hlasi chybu :(


Offline

Skúsený užívateľ
Skúsený užívateľ
CASE OF

Registrovaný: 11.01.09
Prihlásený: 18.12.24
Príspevky: 1395
Témy: 10 | 10
Bydlisko: Hrinova
NapísalOffline : 26.01.2010 19:17 | CASE OF

vama píše:
Cize ak a= Edit potom vrati hodnotu 1?

Presne tak.
vama píše:
Ale aj tak mi to nejde, hlasi chybu

Zrejme si si nevšimol, že táto funkcia nie je interná v Delphi :) Nižšie je jej definícia:
Kód:
function StringIndex(const SearchString: string; StrList: array of string): Integer;
var
  I: Integer;
begin
  Result:= -1;
  for I:= 0 to High(StrList) do
    if CompareText(SearchString, StrList[I]) = 0 then
    begin
      Result:= I;
      Break;
    end;
end;


Offline

Užívateľ
Užívateľ
CASE OF

Registrovaný: 20.11.09
Prihlásený: 02.11.14
Príspevky: 241
Témy: 58 | 58
Bydlisko: Myjava
Napísal autor témyOffline : 26.01.2010 19:48 | CASE OF

No uz mi to funguje :)

Ja som to predtym rychlo prezrel a aj som sa cudoval naco su tam tie funkcie, myslel som si, ze to je uz nejaky konkretny priklad, ale to patri k tomu ... :oops:


 [ Príspevkov: 5 ] 


CASE OF



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

Select zavisly na case aj pocte prispevkov v danom case

v Databázy

19

1009

19.09.2011 15:58

baumax

V tomto fóre nie sú ďalšie neprečítané témy.

Case

[ Choď na stránku:Choď na stránku: 1, 2 ]

v PC skrinky, zdroje a všetky druhy chladenia

31

2520

31.01.2008 14:37

dadmtb

V tomto fóre nie sú ďalšie neprečítané témy.

case

v PC skrinky, zdroje a všetky druhy chladenia

21

2138

06.12.2006 20:28

POM4R4NC

V tomto fóre nie sú ďalšie neprečítané témy.

CASE

v PC skrinky, zdroje a všetky druhy chladenia

0

564

24.01.2010 10:28

dawidko.xD

V tomto fóre nie sú ďalšie neprečítané témy.

Case

v PC skrinky, zdroje a všetky druhy chladenia

21

1623

10.02.2008 17:55

mimkork

V tomto fóre nie sú ďalšie neprečítané témy.

case

v PC skrinky, zdroje a všetky druhy chladenia

10

581

26.08.2011 21:55

bartem

V tomto fóre nie sú ďalšie neprečítané témy.

Case

v PC skrinky, zdroje a všetky druhy chladenia

1

507

01.01.2010 12:08

Cirky

V tomto fóre nie sú ďalšie neprečítané témy.

case

v Modifikácie, návody a projekty

10

1691

02.10.2007 16:55

Jopi

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie.

Case

v Kúpim

2

380

19.07.2015 10:36

Rivon

V tomto fóre nie sú ďalšie neprečítané témy.

switch case

v JavaScript, VBScript, Ajax

24

885

06.04.2011 18:05

miro-boss

V tomto fóre nie sú ďalšie neprečítané témy.

SilentiumPC Case

v PC skrinky, zdroje a všetky druhy chladenia

3

484

25.05.2017 15:01

Thexteku

V tomto fóre nie sú ďalšie neprečítané témy.

Predám case

v Predám

2

399

17.02.2015 13:08

Francek123

V tomto fóre nie sú ďalšie neprečítané témy.

Case chladice

v PC skrinky, zdroje a všetky druhy chladenia

10

630

21.12.2007 11:57

Peppe

V tomto fóre nie sú ďalšie neprečítané témy.

Vyber case

v PC skrinky, zdroje a všetky druhy chladenia

13

1110

02.05.2008 23:05

Flash

V tomto fóre nie sú ďalšie neprečítané témy.

Nová case

v PC skrinky, zdroje a všetky druhy chladenia

7

473

20.08.2016 12:42

werwest

V tomto fóre nie sú ďalšie neprečítané témy.

PC case

v PC skrinky, zdroje a všetky druhy chladenia

3

535

10.06.2009 9:41

brm



© 2005 - 2024 PCforum, edited by JanoF