-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Ich kann mir nicht vorstellen, dass der Compiler das merkt.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Stephan, unser aller Kenntnis reicht nicht, um dieses Kleinod zeitgenössischer Programmierung in seiner Gesamtheit auch nur ansatzweise nachvollziehen zu können :lol:.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Dir auch einen schönen Tag, aber nun wieder Back To Topic (aber nur, wenn es unbedingt noch nötig ist *g*).
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Es sollte ja eben keine C&P-Lösung sein :zwinker:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Guter Einwand, aber das ist ja dann ein Fall für Larsi :mrgreen:
@haentschman:
Hier liegt der Hase im Pfeffer. Ich schneide nur Tag und Monat ab und hänge das laufende Jahr dahinter. Somit ist der 01.01. des Folgejahres immer größer als der erste Eintrag.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Aus dem 02.05.2009 wird doch der 02.05.2008 gemacht (zumindest bis übermorgen).
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Die Datumsangaben werden alle auf das laufende Jahr gesetzt (OK, durch Stringfunktionen, deshalb ja suboptimal), minDate ist aber immer der 1.1. des nächsten Jahres, muss also zwangsläufig immer größer sein.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Sicher? ;)
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Ich habe das mit einer Listbox probiert, da kann man einfach die Items übergeben. So musst Du halt eine Stringliste anlegen, mit den Subitems füllen und übergeben. Anschließendes Freigeben nicht vergessen.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Nun poste ich meinen Ansatz doch einmal. Larsi kann sich ja dann selbst Gedanken machen, wieso auch dieser suboptimal ist.function GetNextDateIndex(const sl: TStrings): integer;
var minDate, aDate: TDate;
i: integer;
begin
Result := -1;
minDate := IncYear(StartOfAYear(YearOf(date)));
for I := 0 to sl.Count - 1 do
begin
aDate := StrToDate(Copy(sl,1,6) +...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Jetzt hätte ich beinahe meine (auch nicht optimale) Lösung gepostet, aber damit warte ich lieber noch :lol:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Geht er denn auch mit verschiedenen Jahren?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Mit richtigen Geburtstagen würde das aber nicht funktionieren (es sei denn, es handelt sich um Säuglinge, die im aktuellen Jahr geboren wurden).
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Außerdem hast Du immer noch nicht erklärt, was Du miteigentlich bezweckst.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Na dann ist ja alles in Butter.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Kurz, knackig, korrekt :thumb:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Wie sucht man denn das Minimum? Wenn Du diese Frage beantworten kannst, hast Du doch schon die Lösung.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Du brauchst doch nur das Minimum zu suchen. Übrigens:
:?:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
TDate = TDateTime = double. Und wenn alle Einträge im Format "dd.mm.yyyy" sind, kann man das Jahr ja mit dem Copy-Befehl abschneiden.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Das wäre auch eine Möglichkeit, aber die muss auch erst einmal geschrieben werden ;)
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Ich sag doch: erst sortieren (ggf. in einer 2. Liste im Speicher, dann musst Du Dir den ItemIndex dazu aber auch merken). Dann fängst Du beim ersten Eintrag an und schaust, ob es größer als heute ist. Falls nicht, nächster Eintrag usw. Ansonsten Schleife verlassen.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
30. Dez 2008
Dazu fällt mir nur ein: sortieren und ggf. in einer Schleife vergleichenderweise durchlaufen.