save datei von rätsel löschen

bocky3 · Beiträge: 45

ich hab ein rätsel erstellt.
man hat die möglichkeit seine ergebnisse zuspeichern, aber ich möchte dass, das prog die save-datei automaisch beim start nach ablauf von ca 30 tagen löscht.
die save.bocky (save datei) wird in "/bilder/save.bocky" gespeichert.
habt ihr ne idee?

bocky3 · Beiträge: 45

dann frag ich ma anders:
gibt es ne möglichkeit das erstellungsdatum einer datei in einem delphiprog auszulesen?
und
gibt es einen befehl zum löschen von dateien?

das is das was ich bräuchte

Keldorn · Verfasst: Sa 23.04.05 14:42

da gibts diverse Möglichkeiten. Z.B. Fileage + filedatetodatetime und deletefile, dazu sagt die OH auch recht viel.

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

bocky3 · Beiträge: 45

das deletefile funzt ganz gut.
ich hab aber grad nen prob mit dem laden
ich möchte gern, dass das prog überprüft ob eine save.bocky da is, wenn ja soll es deise laden, wenn nich soll es über showmessage ('keine datei vorhanden') bringen.
ich würd das ganze gerne mit ner if schleife machen wenn möglich.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if {...} then
 begin
  List:=TStringList.Create;
  List.LoadFromFile('bilder\save.bocky');
  Edit1.Text:=List[0];
  Edit2.Text:=List[1];
  Edit3.Text:=List[2];
  Edit4.Text:=List[3];
  Edit5.Text:=List[4];
  List.Free;
 end;
else
showmessage('keine datei vorhanden');

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

Gausi · Verfasst: Sa 23.04.05 15:13

bocky3 hat folgendes geschrieben:

ich würd das ganze gerne mit ner if schleife machen wenn möglich.

Guckst du hier: www.if-schleife.de

Ne, im Ernst: Du suchst den Befehl FileExists(); Mehr dazu in der Delphi-Hilfe

_________________
We are, we were and will not be.

bocky3 · Beiträge: 45

also ich hab jetzt das versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

if FileExists('bilder\save.bocky') then
   begin
    DOSDatum:=FileAge(Dateiname);
    WinDatum:=FileDateToDateTime(DOSDatum);
     if Windatum = > 30 then       // hier is der fehler 
      begin
       DeleteFile('bilder\save.bocky');
      end
   end;

ich weiß nich wie die funktion "FileDateToDateTime(DOSDatum)" das datum ausgibt bzw. wie ich es mit der frist von 30 tagen vergleichen soll.

mfg burn

Keldorn · Verfasst: Sa 23.04.05 15:52

gugg dir mal Tdatetime in der Hilfe an, da kommt du mit ganz wenig Mathe von alleine drauf.

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

bocky3 · Beiträge: 45

tag/monat/jahr?
dann müsste:
if jetziges datum - entstehungsdatum = > 30 then
begin
DeleteFile('bilder\save.bocky');
end;
is das korrekt (nur in form des verständnisses)

bocky3 · Beiträge: 45

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if FileExists('bilder\save.bocky') then
   begin
    DOSDatum:=FileAge(Dateiname);
    WinDatum:=FileDateToDateTime(DOSDatum);

     if Now - WinDatum =  30 then
      begin
       DeleteFile('bilder\save.bocky');
      end;
     if Now - WinDatum > 30 then
      begin
       DeleteFile('bilder\save.bocky');
      end;

es funzt nich so wie ich es mir erhofft hab...
ich kann es zwar kompelieren, aber sobald ich den button klicke: fehlermeldung.
muss ich das datum erst in nen string umwandeln?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme