-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
24. Sep 2015
Ist natürlich eine heiße Kombination :-D
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
24. Sep 2015
Lass mich raten: War ein harter Tag heute, Stevie, was? :-D
Meine Klasse tut nichts Böses, die will nur spielen.
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
24. Sep 2015
Eine Überlegung dazu: Ich vermute mal, dass TList und TObjectlist deswegen keine ReadFromFile/SaveToFile haben, weil keine Informationen über die Objekte vorliegen. Bei TStringList, wo dies bekannt ist, gibt es diese Funktionen, und TStringList ist ja auch nichts anderes als eine spezialisierte TList. Wenn man eine Liste mit selbst typisierten Objekten hat, dann finde ich es passend, auch die...
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
24. Sep 2015
Da ich doch eine ganze Weile gebraucht habe, um mir einen zufriedenstellenden Code mit diversen Funktionalitäten zusammenzubasteln, stelle ich hier mal für alle Google-Ankömmlinge das Gerüst des Codes ein. Ich bin immer sehr dankbar für solche fertigen Codeteile bei Themen, bei denen ich Neuland betrete (hat ja auch schon unsere Kanzlerin bemerkt...).
Folgende zusätzliche Funktionalitäten habe...
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
22. Sep 2015
Möglicherweise
class function TLogFile.IdentityCompare( const L, R: TLogFile ): Integer;
begin
Result := L.FFileId - R.FFileId;
end;zum Beispiel ?
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
31. Jul 2015
Wenn du mittlerweile mit XE7 arbeitest, solltest du deine Signatur aktualisieren. Die Bezeichnung "Schrott" für Delphi 2009 finde ich ärgerlich und sehr unangemessen. Und "freiwillig" ist bei Hobbyprogrammierern immer recht relativ.
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Oh je, es handelt sich also um Alarmpheromone.
Ich hab mich jetzt zu Folgendem entschlossen:
function TZielListe.FindeWert(const Wert:string;var P:Integer):Boolean;
var L:TZiel;
begin
L := TZiel.Create;
L.Wert := Wert;
p := -1;
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Dagegen würden Kritiker einwenden, dass du weder das Konzept von Pheromonen noch das von Generics verstanden hast. Bei beiden wird bei entsprechend veranlagten Individuen von einer extremen Anziehung ausgegangen. Der Aaskäfer dreht durch, wenn eine Aaskäferin ihre Moleküle verstreut, insbesondere, wenn sie gerade von einer gut durchmadeten Leiche kommt. Und der Delphianer ab D2009 ... Aber genug....
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Beeindruckend, aber vielleicht ein bisschen l'art pour l'art? Es gibt auch auch die Frage, warum der Rüde sich die Eier leckt, aber die wollen wir jetzt nicht weiter vertiefen.
Wenn mich nicht alles täuscht, dann ist das letzte Vexierspielchen ja auch keine binäre Suche mehr, sondern eine einfache Interation?
Da der Abend hereinbricht, komme ich jetzt zu dem Schluss, dass mir die Lösungen...
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Sir Rufo, du hast es drauf.
Verstehe ich deinen Nachsatz richtig? Wenn ich ein TZiel nach einem seiner 7 Felder einsortieren lassen möchte, dann werden sowohl Contains als auch IndexOf Erfolg melden, auch wenn die anderen 6 Felder nicht übereinstimmen, sofern das Feld 3 passt, da es im Comparer angegeben ist?
Durch Angabe von verschiedenen Comparern (was ein Deutsch!) kann ich nach...
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Ja, in dem Dummy-Beispiel. Mit dem Dummy wird das Problem umgangen, dass auf beiden Seiten TZiel erwartet wird, während man aber TZiel.Wert3 gegen einen frei gewählten Wert vergleichen lassen will. Das Beispiel funktioniert ja auch, es ist eben nur eine Krücke. Der Compiler beschwert sich auch, dass Dummy nicht initialisiert worden sei. Daher meine Frage, ob das auch eleganter geht.
Du...
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Und das am Freitagnachmittag!
Was ich - unter anderem :thumb: - nicht verstehe, ist, woher der Comparer weiß, dass der beim Vergleich der Objekte "TZiel" Ziel.Wert3 vergleichen muss / soll. Ich habe mich nämlich auch schon gefragt, wie man BinarySearch verwendet, wenn man doch gar nicht die Objekte, sondern deren einzelne Werte finden will. Bei stackoverflow habe ich eine Konstruktion mit...
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Danke euch beiden! Sensationell.
Schließe mich dem an: Kaum macht man's richtig - schon funktioniert's. :thumb:
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Auf der anderen Seite liefert BinarySearch so ziemlich genau das, was ich will:
Perfekt wär's, wenn das auch noch wär (was es aber nicht ist):
Aber sonst ziemlich genau das, was ich nachgebaut habe. Muss doch wohl meine erste generische Liste in Angriff nehmen.
Vielleicht noch eine Idee zu den anderen Fragen?
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
In der Tat!
Aber ach, Generics... ! MUSS DAS SEIN? Ich weiß natürlich, für die meisten hier sind das Pheromone...
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Ja, wollt ich schon immer mal einstellen, ist hiermit geschehen. D2009. Generics gibts also, aber BinarySearch und TComparer offenbar noch nicht.
-
Forum: Win32/Win64 API (native code)
Delphi
by Benmik,
17. Jul 2015
Ich habe eine sortierte TObjectList in einer eigenen Klasse. Ich muss nun feststellen, ob ein bestimmtes Element bereits in der Liste vorhanden ist und - wenn nicht - es an der richtigen Stelle einfügen.
Ich habe mir dazu eine quasi aufgebohrte Version von IndexOf mit einer binären Suche gebastelt, die mir bei Nichtfinden in p die richtige Einfügeposition zurückmeldet:
type
TZiel =...