Forum: Object-Pascal / Delphi-Language
Delphi
by BungeeBug,
26. Jan 2004
Hi,
es geht ja darum das jedes Element mit jedem Verglichen wird. Egal ob es das erste oder das letzte ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by BungeeBug,
25. Jan 2004
So langsam bekomm ich das Gefühl das das Problem woanders liegt als am sortiern. Es scheint egal was ich mache, es werden immer doppelte Datein (die es nicht gibt) öffter angezeigt als eigendlich Möglich.
Forum: Object-Pascal / Delphi-Language
Delphi
by BungeeBug,
25. Jan 2004
Hab ich schon , was aber keine Verbesserung bringt. Son bisschen Delphi kann ich ja auch :)
Also irgendwas ist da ganz gehörig flasch ... nur blick ich im mom nicht durch was ...
Forum: Object-Pascal / Delphi-Language
Delphi
by BungeeBug,
25. Jan 2004
HI all,
ich hab den Code nun an meinen Angepasst nur funktioniert dieser leider nicht so wie wer soll.
Es werden von 5 Einträgen 3 als doppelt angezeigt, welche aber garnicht doppelt sein können.
Desweitergen bin ich fast sicher das der Code garnicht alle Einträge durchgeht da z.B.:
For I := High(A) - 1 downto 0 do
Den letzten Index einfach auslässt.
Forum: Object-Pascal / Delphi-Language
Delphi
by BungeeBug,
24. Jan 2004
Wird wenn ich SetLength(); benutze das ganze Array überschrieben?
Forum: Object-Pascal / Delphi-Language
Delphi
by BungeeBug,
24. Jan 2004
// Gleiche Datein suchen
FOR i := 0 TO High(MyHashArray) DO
BEGIN
j := 0;
WHILE j <= High(MyHashArray) DO
BEGIN
// Sind die Eintrage die selben?
IF i <> j THEN
BEGIN
IF MD5DigestCompare(MyHashArray,MyHashArray) THEN // Vergleichen
Forum: Object-Pascal / Delphi-Language
Delphi
by BungeeBug,
24. Jan 2004
Hi,
ich suche eine schnelle Möglichkeitkeit die Einträge in einem sehr Großen Array zuvergleichen.
Am Ende soll kein doppelter Eintrag mehr vorhanden sein. Hat da jmd. ein Stück Code oder kann man sowas schnell schreiben? Ich scheiter im mom immer daran das der erste gleiche Eintrag gefunden wird die darauf folegenden nicht mehr. Ich glaube das es an der Schleife liegt die ich dazu verwende....