Jag ville kolla om ett tal gick jämnt upp i 1 så jag funderade lite på hur man skulle kunna göra det. Den första lösningen blev en enkel loop som adderar talet på sig själv tills det blivit 1 eller större. Om det blev 1 precis så visste jag att det gick jämnt upp.
Här är den första versionen.
-----------------------------------
function Tform1.ValidDivider ( value : extended ) : boolean;
var temp : extended;
begin
temp:=0;
while temp<1 do
temp:=temp+value;
if (temp = 1) then Result := True
else result := False;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
if validdivider ( 0.25 ) then showmessage('YEAH')
else Showmessage('NONO');
end;
----------------------------------
Problemet är att det funkar inte. Delphi vägrar göra jämförenseln (if temp=1) korrekt. Vid en första koll tror man att det är nåt skummt med nåt likhetstecken eller nån felaktig datatyp men icke.
Kom på en bättre lösning sen, där man dividerar 1 med talet och kollar om resultatet är ett heltal.
Såhär:
-----------------------
function Tform1.ValidDivider ( value : extended ) : boolean;
var temp : extended;
begin
temp:=1/value;
if frac(temp)=0 then
Result := True
else result := False;
end;
-----------------------
Nu är ju problemet löst tycker man, MEN jag skulle gärna vilja veta varför mitt första sätt inte fungerar. Har frågat på proffsajter som Experts-Exchange, men inte fått nåt vettigt svar så nu ger jag chansen till er.
För min del gick bägge versionerna. Testade runt med olika tal i version 1 och det gick bra på alla tal jag provade som var större än 0.10.
Vi har ett program på jobbet som under utveckling gjorde något liknande fel.
Man hade lagrat in 11,2 (eller något annat) i en databas. Sedan fanns en kod som gjorde jämförelsen Om x=11,2 gör.... . Detta fungerade inte och man kom fram till att processorn lagrade värdet som 11,19999999 osv. Istället fick man skriva koden Om 11,1<x<11,3 gör... .
Det hela hade att göra med att datorn inte arbetar med exakta decimaltal. Efter någon decimal beroende på formatet blir siffrorna mer eller mindre slumpartade. (som jag fick det förklarat för mig).
Problemet beror inte på delphi utan på hur datorn funkar. Den måste avrunda när den jobbar med decimaltal eftersom en decimaltyp har en viss storlek men decimal tal kan inhålla oändligt många siffror. Och även om tex 4 är ett heltal så tror jag datorn lagrar/ser det som tex 3.9999999999999999999996541 när du använder extended.
Har läst en förklaring i någon gammal delphi tidning och hittar jag den så återkommer jag. Du får ta detta med en nypa salt tills jag läst på ;).
Men en sak är jag säker på man kan inte göra "exakta" jämnförelser mellan "real types" undantaget är nog Currency. Använder man Currency i din funktion så funkar den. Kollar du i hälpen för Currency så står det ochså något om att den lagras som en 64-bit integer.
Har fått klart för mig att det är precis som ni säger. Flyttal blir lite skumma i processorn men det som förvillar en är att delphi avrundar värdet åt en när man debuggar. Den kan säga att värdet är 1.0 fastän inne i datorn är det 0.9999999999999999.
Att använda currency är ingen lösning, har inte fått det att funka. Programmet hänger sig då.
Currency funkar inte i D5. Mitt första exempel fungerar inte i Delphi 4 eller 5. Vissa tal fungerar 0.2 fungerar men inte 0.1 och inte 0.01. 0.25 fungerar inte heller.
Jag menade att ditt första exempel med Currency funkade som man förväntar sig.
Med extended så fick jag samma resultat som du.
Testade att köra exempel 1 med Currency i D5 och det funkade bra.
Jag hittade artikeln jag skrev om men har bara skummat igenom den och är inte säker på att jag kan beskriva varför/hur det blir som det blir utan att cittera flera sidor ;).
Om du laddar ner 1999 Issue 51, Nov (643Kb) så hittar du en katalog med namnet Alfresco och där finns lite kod som medföljer artikeln. Projektet CvtSingle.dpr är nog det som är mest intressant, skriver ut single värden som strängar så man ser att 1/5 inte är 0,2 utan 0,20000000321. http://www.thedelphimagazine.com/dmdisk.htm
