Stringlist mit TDateTime

[zeras]

Hallo,

ich nutze für ein Projekt eine Stringliste und wollte dazu ein Datum mit Addobject hinzufügen.
Ist so etwas möglich?
Hintergrund ist, dass ich eine Stringliste für Dateien nutze und das Erstellungsdatum gleich mit dranhängen wollte, um es später separat zu nutzen.

So geht es offensichtlich nicht.

Delphi-Quellcode:

 SL.AddObject(s, TObject(DT));

[jfheins]

Möglich ja, aber nicht so.
TDateTime ist ein double, also 64bit lang - TObject ist bis jetzt nur 32bit lang.

Also entweder eine Klasse schreiben deren einziger Inhalt ein TDatetime ist, oder den TDatetime nach Single casten. Da geht zwar etwas Genauigkeit verloren, aber vielleicht reicht es dir noch ;)

Zitat:

SL.AddObject(s, TObject(Single(DT)));

[s-off]

Ok, zu spät...

[mirage228]

Alternative: Da Du Delphi 2009 benutzt, wäre eventuell der Typ TDictionary aus der Unit Generics.Collections was für dich (in diesem Fall: TDictionary<string, TDateTime>). :)

Das geht hier mit einer Dictionary, weil die Schlüssel Dateinamen sind, die wiederum i.d.R. ja nicht doppelt vorkommen. Wenn zu einem bestimmten String (Dateinamen) mehrere Werte (TDateTime) hinzukommen können, ginge diese Lösung mit TDictionary leider nicht.

Viele Grüße

[zeras]

Danke für die Tipps.

Das mit Dictionary ist für mich neu. Da müßte ich mich erst einmal reinarbeiten.
Ich werde mal sehen, welches ich einbauen kann.
Problem ist nur, dass ich das in ein bestehendes Projekt einbauen muss, wo für andere Sachen schon die Stringlist verwendet wird. Aber da muss ich halt ein wenig ändern.

[Jumpy]

Wäre es denn nicht einfacher das Datum in einen String umzuwandeln? Oder geht dann die spätere Nutzbarkeit verloren?

[himitsu]

Zitat:

Zitat von Jumpy (Beitrag 1100276)

Wäre es denn nicht einfacher das Datum in einen String umzuwandeln? Oder geht dann die spätere Nutzbarkeit verloren?

Der String ist ja noch größer, als der TDateTime/Double und wenn schon TDateTime keinen Platz hat..........
Und nein, einen String in einen Pointer zu casten ist keine gute Idee (wer an der Referenzzählung rumspielt und davon keine Ahnung hat, der muß irgendwann dafür leiden), es sei denn man nutzt einen PChar, mit eigenem Speicher, was eben größer ist, als der TDateTime.

[Jumpy]

Ich dachte es geht um eine Stringlist...

[himitsu]

Das schon, nur daß dieses TDateTime (DT) in .Objects liegen sollte, wärend im .Strings vermutlich schon ein anderer String liegt. :wink:

Zitat:

Delphi-Quellcode:

SL.AddObject(s, TObject(DT));

[FredlFesl]

So gehts doch auch:

Delphi-Quellcode:

Type
  TDateTimeContainer = Class
    DateTime : TDateTime;
    Constructor Create(aDateTime : TDateTime)
  End;

Constructor TDateTimeContainer.Create(aDateTime : TDateTime);
Begin
  DateTime := aDateTime;
End;
...
MyStringList.AddObject (MyString, TDateTimeContainer.Create(MyDateTime));

Man muss die Objekte später nur wieder freigeben, das ist alles.