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)
Die Definition ist:
TfemIDs: array of Integer;
Ist ja nur ein Bespiel. Obige Funktion soll halt prüfen, ob ein Integerwert in einen dynamischen Array existiert. Das Beispiel soll halt auch verdeutlichen wie ein einfaches umformulieren manchmal was anderes erzeugen kann...
Alex
Man sollte nie so viel zu tun haben, dass man zum Nachdenken keine Zeit mehr hat. (G.C. Lichtenberg)