Konu: Tuhaf bir sonuç!
Herkese selamlar.
Kod aşağıda, sonuç ne kadar normal?
Yoksa bende mi bir sorun var?
CLOSE DATABASES
CLEAR
LOCAL lni, lcTempName,lcTestString
m.lcTempName = "GAMA GAMA"
CREATE CURSOR Idiot (RowNo int Autoinc,TheName C(25), TheDate Date)
FOR m.lni = 1 TO 1000
INSERT INTO ;
Idiot(TheName, TheDate) ;
VALUES ;
(Padl(Alltrim(Str(m.lni)),3,"0")+" "+m.lcTempName + " " +Padl(Alltrim(Str(m.lni)),3,"0"),Date()+m.lni)
ENDFOR
SELECT * FROM Idiot WHERE Occurs("GAMA", Thename)= 1 INTO CURSOR CrsOccurs && False, Unexpected result
? _Tally , ' -> Result Of Occurs("GAMA", Thename)= 1' &&
m.lcTestString = "TEST-GAMA STRING"
?Occurs("GAMA",m.lcTestString) = 1 , ' -> Result of Occurs("GAMA",m.lcTestString)'&& True
SELECT * FROM Idiot WHERE "GAMA" $ Thename INTO CURSOR CrsUSDsign && True an expected result
? _Tally , ' -> Result Of "GAMA" $ Thename '
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü