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.

[DeddyH]

Zitat:

Zitat von FredlFesl (Beitrag 1100314)

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

Oder OwnsObjects der Stringliste (gibt es hoffentlich bereits unter Delphi 2009) auf true setzen.

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1100320)

gibt es hoffentlich bereits unter Delphi 2009

Spätestens seit D2006/TDE sollte es das schon geben.

[DeddyH]

Mein Delphi 2007 kennt OwnsObjects in TStringlist definitiv nicht.

[himitsu]

Sicher?
Ich dachte ich hätte es schon im TDE gesehn. (ich werd' wohl doch langsam alt und vergesslich)
Aber im D2009 isses auf jeden Fall drin. :angle:

[p80286]

Also wenn schon eine eigene Klasse, dann aber mit allen Daten (Größe, erstelldatum,letzte Speicherung etc.)

Und warum nicht gleich ein "vernünftiges" Record, daß dann über TList verwaltet wird?
(oder gleich eine eigene Klasse?)

(Das Datum hinten an den String heranfrickeln ginge zwar, aber ist nur eine Bastellösung)

Gruß
K-H

[Hawkeye219]

Hallo,

falls die Dateinamen eindeutig sind, könnte auch der folgende Ansatz zu einer Lösung führen:

Delphi-Quellcode:

var
  FileName: string;
  FileDate: TDateTime;
  List: TStrings;
begin
  :
  if FileAge(FileName, FileDate) then
    List.Add (FileName + '=' + DateTimeToStr(FileDate);
  :
  ShowMessage (List.Values[FileName]);
  :
end;

Der Zugriff auf die Dateinamen muss über die Eigenschaft "Names" der Stringliste erfolgen. Problematisch wird es allerdings, wenn beim Schreiben und Auslesen der Stringliste Systeme mit unterschiedlichen Ländereinstellungen verwendet werden.

Gruß Hawkeye