Entwickler-Ecke

Dateizugriff - auslesen


tom1266 - Mo 04.11.02 09:29
Titel: auslesen
HAllo,

habe folgendes Problem, ich möchte von einer Datei das Datum und die Zeit auslesen und dieses zB in einem Feld sichtbar machen!

Aber wie...

Gruß Tom


Klabautermann - Mo 04.11.02 09:37
Hallo,

mit FindFirst, (FindNext,) FindClose kannst du dir viele Informationen zu Dateien beschaffen. Unter anderen auch das Dateidatum. Dieses musst du dann noch mit der Funktion FileDateToDateTime konvertieren.

Gruß
Klabautermann


tom1266 - Mo 04.11.02 10:11
Danke Kabautermann für den Hinweis, ich experimentiere schon mit deinen Hinweisen seit längeren, aber bekomme es einfach nich hin das Datum u Zeit in einem Editfeld sichtbar zu machen, hast du ein CodeBsp für mich?

Gruß Tom


Delete - Mo 04.11.02 10:23
tom1266 hat folgendes geschrieben:
... ich experimentiere schon mit deinen Hinweisen seit längeren ...

seit nicht mal einer Stunde ... :wink: ...

Zitat:
aber bekomme es einfach nich hin das Datum u Zeit in einem Editfeld sichtbar zu machen, hast du ein CodeBsp für mich?

s. Delphi-Hilfe ->

FindFirst/FindNext/FindClose (Time-Eigenschaft)
FileDateToDateTime
FormatDateTime (inkl. Beispiel)


tom1266 - Mo 04.11.02 10:38
Wende mich ans Forum als Anfänger und nur dann, wenn ich nicht mehr weiter weis nicht bei Spontanproblemen(mein Motto ist ist erstmal selber Probieren), aber danke für die kluge Hilfe F1 wäre ich so nicht drauf gekommen.

Es gibt halt immer :idea:Meister die nur Labern!

Gruß Tom


Klabautermann - Mo 04.11.02 11:08
Hallo,

so sollte es gehen:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
 
USES
  SysUtils;

[...]

function GetFileDate(aFile : STRING) : tDateTime;
  VAR
    sr: TSearchRec;
begin
  Result := 0;
  FindFirst(aFile, faAnyFile, sr);
  TRY
     Result := FileDateToDateTime(sr.Time);
  FINALLY
    FindClose(sr);
  END;
end;

[...]
  Edit1.Text := FormatDateTime('c', GetFileDate('C:\config.sys'));


Auf die verwendeten Funktionen haben wir dich ja schon hingewiesen. Solltest du etwas nicht verstehen, frage noch einmal nach.

Gruß
Klabautermann


tom1266 - Mo 04.11.02 12:00
Danke für die Hilfe <Klabautermann> :lol:


Delete - Mo 04.11.02 12:34
tom1266 hat folgendes geschrieben:
aber danke für die kluge Hilfe F1 wäre ich so nicht drauf gekommen.

Gern geschehen.

Zitat:
Es gibt halt immer Meister die nur Labern!

Oh, jetzt werde icke aber rot ... als "Meister" hat mich noch keiner bezeichnet ... 8) ... Nicht mal ich selbst ...


LCS - Mo 04.11.02 13:03
Hi
Kleine Anmerkung am Rande noch: mit FileAge geht das genauso. Sieht aber natürlich wesentlich banaler aus als die Variante von Klabautermann :wink:

Gruss Lothar


Klabautermann - Mo 04.11.02 13:42
Hallo,
LCS hat folgendes geschrieben:
Kleine Anmerkung am Rande noch: mit FileAge geht das genauso. Sieht aber natürlich wesentlich banaler aus als die Variante von Klabautermann :wink:


das ist richtig, solange es um eine Bestimmte Datei geht ist File Age einfacher:

Quelltext 
1:
2:
3:
4:
 
function GetFileDate(aFile : STRING) : tDateTime;
begin
 Result := FileDateToDateTime(FileAge(aFile));
end;

Interessant wir die von mir dargestellte Metode, wenn man enweder Mehrere Dateien (im selben Verzeichnis) untersuchen will oder Wildcards verwenden möchte.

Gruß
Klabautermann


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!