|
 | | |
| Autor | Správa |
vama
 Užívateľ
 Založený: 20.11.2009 Príspevky: 213 Bydlisko: Myjava Vek: 19
 | Zaslal: Ut 26.01.10 18:50 |   |
viem, ze toto je uplne zakladna vec, ale este som to doteraz nepotreboval.
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 ? |
| |
    |
 |
Fico
 Skúsený užívateľ
 Založený: 11.01.2009 Príspevky: 1049
 | Zaslal: Ut 26.01.10 19:15 |   |
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ť. |
| |
   |
 |
vama
 Užívateľ
 Založený: 20.11.2009 Príspevky: 213 Bydlisko: Myjava Vek: 19
 | Zaslal: Ut 26.01.10 19:26 |   |
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  |
| |
    |
 |
Fico
 Skúsený užívateľ
 Založený: 11.01.2009 Príspevky: 1049
 | Zaslal: Ut 26.01.10 20:17 |   |
| vama napísal: | | Cize ak a= Edit potom vrati hodnotu 1? |
Presne tak.
| vama napísal: | | 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; |
|
| |
   |
 |
vama
 Užívateľ
 Založený: 20.11.2009 Príspevky: 213 Bydlisko: Myjava Vek: 19
 | Zaslal: Ut 26.01.10 20:48 |   |
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 ...  |
| |
    |
 |
|
Nemôžete pridávať nové témy do tohto fóra. Nemôžete odpovedať na témy v tomto fóre. Nemôžete upravovať svoje príspevky v tomto fóre. Nemôžete mazať svoje príspevky v tomto fóre. Nemôžete hlasovať v tomto fóre.
|
| |