Schnellste Überprüfung des Inhaltes eines Arrays

[HolgerCW]

Hallo zusammen,

habe ein Array mit Datums.

Wie kann ich ein Array am schnellsten danach abfragen, ob ein bestimmtes Datum in dem Array enthalten ist ?

Mit einer For-Schleife mache ich es zur Zeit. Das ist mir zu langsam.

Gruss

Holger

[DeddyH]

Ist das Array sortiert?

[RavenIV]

Soweit ich weiss, gibt es kein Array.Search oder Array.Find oder Array.Locate.
Wird Dir nichts anderes übrig bleiben, als das Array mit for oder while solange durchzugehen, bis das Element gefunden wurde.

Du kannst aber anstelle des Array eine TList nehmen.
Die bietet mehr Funktionen zum Verwalten der Items an.

[HolgerCW]

IcCh könnte das Array sortiert aufbauen...

... und dann ?

Gruss

Holger

[DeddyH]

Du könntest es mit einer Näherung versuchen. Dazu ein Beispiel:
Nehmen wir an, Du hast ein Array mit den Zahlen von 1 bis 100 und suchst die 70. Nun kannst Du entweder das komplette Array durchlaufen (was Du ja nicht willst) oder Du gehst folgendermaßen vor. Zuerst "stichst" Du in die Mitte des Array (Length div 2) und siehst nach, welcher Wert dahintersteht. Ist der gesuchte Wert größer, suchst Du die Mitte zwischen dem aktuellen und dem größten Element, ist er kleiner, zwischen dem aktuellen und dem kleinsten Element und vergleichst wieder. Das wiederholst Du solange, bis der gesuchte Wert gefunden wurde oder der nächste ermittelte Index dem aktuellen entspricht. In letzterem Falle ist der Wert nicht enthalten.

[Nuclear-Ping]

Wieviele Einträge hat das Array denn?

Wenn es ziemlich viele sind, kann man es so sortieren, dass ein Monats- und Jahresbereich per Lookup angesprungen werden können.
Wenn du z.B. den 12.08.2001 suchst, könnte so gleich der Index-Bereich 2001-08 angesprungen werden.

Alternativ kann man auch überlegen, die Daten statt in einem Array in einer Datenbank abzulegen, die per SQL abzufragen ist. Da kann man z.B. "SELECT * FROM Dates WHERE (Month=8) AND (Year=2001)" machen, was auch ziemlich schnell sein sollte (ordentliche Indizes voraugesetzt) - oder "SELECT * FROM Dates WHERE (Day=12) AND (Month=8) AND (Year=2001)", um ein bestimmtes Datum zu finden. Wenn kein Ergebnis zurückgeliefert wird, existiert das Datum nicht.

[taaktaak]

Moin Holger,
wie würdest du in einem Kartenspiel möglichst effizient nach einer bestimmten Karte suchen? Durch halbieren der Kartenmenge! Du fragst: Ist es eine rote oder schwarze Karte, Bild oder Zahl etc.
In einem sortierten Array machst du es vergleichbar: Du fängst in der Mitte an und prüfst ob dein Wert größer oder kleiner als das ArrayElement in der Mitte ist. Dann machst du die gleiche Prüfung in der Mitte der übrig gebliebenen Menge etc. So findest du in einem sortierten Array mit wenigen Schritten das gesuchte Element..
Gruß Ralph

// ahh, zu langsam

[HolgerCW]

Alles klar,

das habe ich schon mal Informatikunterricht gehört. Werde ich ausprobieren mit dem halbieren und wieder halbieren u.s.w.

Zu der TList:

Wie kann ich bei einer TList ein Datum hinzufügen. Der will einen "Pointer" haben ? So geht es nicht:

Delphi-Quellcode:

ListSchicht.Add(datetostr(Datum));

Ist das richtig um das Datum wieder zu finden:

Delphi-Quellcode:

if ListSchicht[ListSchicht.IndexOf(Datum)] <> '' then
begin

 testing := testing;

end;

[taaktaak]

Moin Holger,
neee, du musst mit new() erst einmal Speicher für dein Datum anlegen und den Pointer auf diesen Speicherbereich an deine Liste übergeben... Gibt es einen besonderen Grund, dass du das nicht mit einer StringList machen willst? Ist vielleicht weniger elegant aber einfacher :stupid:
Gruß Ralph

[Nuclear-Ping]

Versuchs mal mit einer TStringList statt TList. Das dürfte auch gut gehen.

Delphi-Quellcode:

var
  ListSchicht: TStringList;
begin
  ListSchicht := TStringList.Create;

  try
    ListSchicht.Add (FormatDateTime ('dd.mm.yyyy', Now {oder jedes andere TDateTime Datum}));

    if ListSchicht.IndexOf ('01.01.2008') = -1 then
      // Datum nicht vorhanden
    else 
     // Datum vorhanden
  finally
    FreeAndNil (ListSchicht);
  end;
end;