Sziasztok!

A problema nem a Clipperben, hanem a programozoban van :)
>   If laskar=-8           //F9
>       TONE(440,1)
>       If indexord()=2                && ha ord=2 akkor az ord ezutan
> 3 lesz,
>          TONE(880,2)               &&  es utana ellenorzom
>          set order to 3   //szukitett lista
>       EndIF               
>       If indexord()=3                && hogy az ord 3 -e es ha igen 
>          set order to 2  // teljes lista  * akkor visszaallitom 2-re 
>       EndIF                             && no itt a baj !!
>    return 1              // Kulonben nem csinalunk semmit
>    EndIF

megoldas: 
1. csak a ket allapot kozott kell kapcsolni:

If laskar=-8           //F9
   TONE(440,1)
   If indexord()=2                && ha ord=2 akkor az ord ezutan 3 lesz,
        TONE(880,2)               
        set order to 3   //szukitett lista
     else                             && egyebkent legyen 2 !
        set order to 2  // teljes lista   
   EndIF                             !
  return 1              // Kulonben nem csinalunk semmit
EndIF

2. ha a harom allapot kozott akarsz kapcsolgatni:

If laskar=-8           //F9
   TONE(440,1)
   do case
        case indexord()=1 
              TONE(880,2)               
              set order to 2
        case indexord()=2 
              TONE(880,2)               
              set order to 3
        case indexord()=3 
              TONE(880,2)               
              set order to 1
   return 1
EndIF
Eleg favago megoldas, de mukodik


Jo hasznalatot  Imre

> A progi egy helyen megnyitja ezt az allomanyt
> USE Partner
> SET INDEX TO partn, partnev, partnsz
> 
> sorok segitsegevel.
> Ezutan a progiban van egy DBEDIT ,amiben ezt az allomanyt kilistazza.
> Mielott a DBEDIT-be lepne a progi, az index ordert
> SET ORDER TO 3-mal a szurt index tablara allitom.
> A DBEDIT belso fuggvenyeben viszont szeretnem, ha F9 megnyomasara
> valtani lehetne a szurt, es a nem szurt lista kozott.
> 
> Ez a lenyeget kiragadva a kovetkezokeppen nez ki.
>       itt volt a program
> Amibe lassan beleorulok, hogy az elso megnyomasra megtortenik a valtas
> a teljes nevsor szerinti indexre, de ha megegyszer megnyomom az F9-et,
> akkor egyszeruen _nem_ valt vissza a 3-masra !!!!!!!
> A TONE() mar azert van benne, hogy teszteljem, hogy tenyleg belep-e.
> Es tenyleg belep, mert csipog, de az index _akkor_ sem valtozik meg,
> hanem megmarad a 2. orderen. Mintha a set order to 3 vegre sem
> hajtodna.

Udv,
Sikerult mar valakinek Power Builderben (7.02) rendes 
magyar ekezeteket nyomtatni (nem kalapos o" és u" betuket)? 
Preview modban rendesen megjelennek, de a nyomtatott 
papiron mar rosszul. Az ekezetes betuk egy DataWindow-ban 
vannak.

Csa emberek

Mar megint gondban vagyok.
DM.Ugyfelq.Locate('cegnev',Edit1.text,[loCaseInsensitive]);
mert nem jo ez igy?
azt mondja hogy a "loCaseInsensitive" nem ismert valtozo!
Hogy kell ezt csinalni?
Elore is kosz

Roland

Hello

Hat igen ! Kemeny onkritikat kell gyakorolnom !
Ekkora lamer hibat mint amit a multkori clipper probelma
forraskodjaban sikerult elkovetnem, mar azert nem illene vetenem !
Csak nagyon gyenge mentsegeim lehetnek.

Koszonom Hemmer Imrenek, Zambori Zoltannak es Petri Andrasnak, hogy
megmutattak a nyilvanvalot !! (es a tobbi segiteni probalkozonak is,
akik szinten atsiklottak efelett a nyilvanvalo baki felett)
-- 
Udv:
    Csiszar L.                        mailto:

Hi all!


Valaki tudja, hogy hogyan lehet 5-os Delphiben a legkonnyebben elerni,
hogy bejojjon az alapertelmezett levelezoprogi??? Van egy editboxom,
ebben van az e-mail cim. Van egy gomb, ez hozna be a levelezot.
Kell ehhez a registyben turkalni, vagy van valami komponens???

A masik igen nagy gondom:
Szakdolgozatomat Delphiben irom. Az ok, hogy pascal-alapu es grafikus.
Igy a pascal-os programjaim mar kineznek valahogy. :)
Szoval igy irom a szakdogamat, aztan beszeltem egyik tanarnovel a
suliban, hogy mit javasolna egy problema megoldasara, amikor is
kiderult a gond: Nem adattablakkal dolgozom, nem tartalmaz semmilyen
database komponenst a programom. Tipusos fileba irok rekordokat, igy
tarolom az adatokat. Szoval 1-az-1-ben pascal. Erre a tanarno azt
mondta, hogy ez nem jo, ha mar ennyi pascal van benne, akkor miert nem
pascal??? Ha mar delphi, akkor legyenek benne komponensek!
Ti is igy gondoljatok???
En ugy gondolom, hogy sokkal nagyobb programozoi tudast takar az, ha
EN magam irok meg egy eljarast,fuggvenyt es nem egy elore legyartott
komponenst hasznalok.
Nem??? Szerintem sokkal jobb az, ha az ember megirja, pl. azt, hogy a
modem fel-tarcsazzon egy szamot, es nem a mittomen, a Dial(061...)
fuggvenyt hasznalja. Nem???
Azt mondta a tanarno, ha a programot neki kellene ertekelnie, akkor
nem fogadna el, mivel csak Pascal es semmi Delphi!!!
Szerintetek is ez a Delphi->Komponens, Pascal->Sajat dolog az
egyertelmu??? Nem a tanarnovel van problemam, csaeh egyszeruen total
nem tudom hogy most mi van!
Segitsetek, please!!!


Thanx,
  TCHeeCo

Hello
 a programod helyesen

do case
case laskar#-8
case indexord()=2
  set order to 3
case indexord()=3
  set order to 2
endcase
return 1

A programodba ha az indexord()=2 akkor atvalt 3. indexre es a 
kovetkezo if -be ujra bemegy es visszavalt 2.-ra.

>If laskar=-8           //F9
>      TONE(440,1)
>     If indexord()=2
>         TONE(880,2)
>        set order to 3   //szukitett lista
>      EndIF
>     If indexord()=3
>        set order to 2  // teljes lista
>     EndIF
>   return 1              // Kulonben nem csinalunk semmit
>  EndIF

Udv.
      Takacs Janos

> sorok segitsegevel.
> Ezutan a progiban van egy DBEDIT ,amiben ezt az allomanyt
> kilistazza. Mielott a DBEDIT-be lepne a progi, az index ordert SET
> ORDER TO 3-mal a szurt index tablara allitom.
> A DBEDIT belso fuggvenyeben viszont szeretnem, ha F9 megnyomasara
> valtani lehetne a szurt, es a nem szurt lista kozott.
>
> Ez a lenyeget kiragadva a kovetkezokeppen nez ki.
>   If laskar=-8           //F9
>       TONE(440,1)
>       If indexord()=2
>          TONE(880,2)
>          set order to 3   //szukitett lista
>       EndIF
>       If indexord()=3
>          set order to 2  // teljes lista
>       EndIF
>    return 1              // Kulonben nem csinalunk semmit
>    EndIF
>
> Amibe lassan beleorulok, hogy az elso megnyomasra megtortenik a
> valtas a teljes nevsor szerinti indexre, de ha megegyszer megnyomom
> az F9-et, akkor egyszeruen _nem_ valt vissza a 3-masra !!!!!!!
> A TONE() mar azert van benne, hogy teszteljem, hogy tenyleg belep-e.
> Es tenyleg belep, mert csipog, de az index _akkor_ sem valtozik meg,
> hanem megmarad a 2. orderen. Mintha a set order to 3 vegre sem
> hajtodna.

Eloszor is kijelentem, hogy nagyon reg programoztam Clipperben, igy
lehet, hogy marhasagot mondok, de emlekeim szerint az atindexeles utan
tetejere kell allitani a record indexet, es utana kell kell kiadni a
DBEDIT-et.

TI

Sziasztok,

HC> Felado :  [Hungary]
HC> Temakor: Ki latott mar ilyet. (Clipper order) ( 53 sor )
HC> Ez a lenyeget kiragadva a kovetkezokeppen nez ki.
HC>   If laskar=-8           //F9
HC>       TONE(440,1)
HC>       If indexord()=2
HC>          TONE(880,2)
HC>          set order to 3   //szukitett lista
ha ide raksz egy indexord() fg-hivast, az mit mond?

-- 
Udv,
 Krisztian

> Ez a lenyeget kiragadva a kovetkezokeppen nez ki.
>   If laskar=-8           //F9
>       TONE(440,1)
>       If indexord()=2
>          TONE(880,2)
>          set order to 3   //szukitett lista
>       EndIF
>       If indexord()=3
>          set order to 2  // teljes lista
>       EndIF
>    return 1              // Kulonben nem csinalunk semmit
>    EndIF
>
> Amibe lassan beleorulok, hogy az elso megnyomasra megtortenik a
> valtas a teljes nevsor szerinti indexre, de ha megegyszer megnyomom
> az F9-et, akkor egyszeruen _nem_ valt vissza a 3-masra !!!!!!!
> A TONE() mar azert van benne, hogy teszteljem, hogy tenyleg belep-e.
> Es tenyleg belep, mert csipog, de az index _akkor_ sem valtozik meg,
> hanem megmarad a 2. orderen. Mintha a set order to 3 vegre sem
> hajtodna.
>
> Nahat erre varrjon gombot valaki, ha tud !!

Hat tisztelettel, megprobalkozom...
Szerintem az a gond, hogy amikor a
>      If indexord()=2
teljesul, akkor a
>         set order to 3   //szukitett lista
vegrehajtodik. Emiatt a kovetkezo
>      If indexord()=3
is teljesul.
Tehat nem az a gond, hogy nem hajtodik vegre a feltetel, hanem az,
hogy vegrehajtodik mind a ketto. A vegeredmeny persze az, hogy nem
valt at a masik indexre.

Tisztelettel : Pető Zoltán