Hallo zusammen,
zunächst einmal scheint mir hier der Wurm drin zu stecken:
Delphi-Quellcode:
begin
r1 := IsInt(List[Index1], d1);
r2 := IsInt(List[Index2], d2);
Result := ord(r1 or r2);
if Result <> 0 then
.....
ist r1 false (=0) und r2 true (<>0) dann ist auch result<>0 und der Vergleich 0 und irgendetwas startet, da VAL bei fehlgeschlagenen Versuchen 0 einträgt.
Besser wäre da etwa so etwas:
Delphi-Quellcode:
begin
Result:=0;
r1 := IsInt(List[Index1], d1);
r2 := IsInt(List[Index2], d2);
if r1 and r2 then
begin
.....
else showmessage('falsche Eingabewerte');
Gruß
K-H