Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.862 Beiträge
 
Delphi 11 Alexandria
 
#43

AW: Delphi 64 Bit langsamer als 32 Bit

  Alt 7. Aug 2013, 16:55
Delphi-Quellcode:
function femIDsExists(const IDs: TfemIDs; const ID: Integer): Boolean;
// prüfen, ob ein Eintrag in einer Liste vorhanden ist
begin
  for CheckID := Low(IDs) to High(IDs) do
    if IDs[CheckID] = ID then
        Exit( True);
  result := False;
end;
Du überprüfst auf vollständige Gleichheit von IDs[] und ID; u.U. reicht hier auch eine "Teil"-Prüfung ( ich kenne die Deklaration von TfemIDs ja nicht)
Markus Kinzler
  Mit Zitat antworten Zitat