probleme mit double

[kandl]

wusste nicht inwieweit man code posten darf.
naja.

Delphi-Quellcode:

while(position_max<3)do
begin
   for i:=0 to punkteMemo.Lines.Count-1 do
   begin
      if((punkte[i,param]=maximum) and (position_max<3)and (istBereitsVektor(i,position_max,e2richtungsvekt)=false))then
       begin
       for j:= 0 to ANZ_COORD do
          begin
             e2richtungsvekt[position_max,j]:=punkte[i,j]; 
          end;
          inc(position_max);
       end;
   end;
   maximum:=maximum-0.0001;
end;

lg,kandl