marabu: sehr schöne und schnelle Lösung
Ich würde das dann aber besser so formulieren
Delphi-Quellcode:
var
pd: PDouble;
d: Double;
i: integer;
begin
d := 123456;
pd := @buffer[1];
for i := 1 to 100000 do // beachte die Obergrenze
begin
if int64(pd^) = int64(d) then
begin
// d gefunden bei index i
exit;
end else Inc(pd);
end;
// d nicht gefunden
end;
Warum :
Wenn der Wert nicht gefunden wurde kommt man nach Beendigung der for-schleife auch zu Deinem "Gefunden" Abschnitt.
Gruß, Klaus