-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
16. Jun 2006
Wie wäre es mit LogFileName, welche ja schon in WriteToLog verwendet wird?
Also
doppeltweg(LogFileName('c:\logs\log_', Now));
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
12. Jun 2006
Für die letzte ariante ist nur diese eine Prozedur nötig ... nichts weiter.
procedure AddToLog(S: String);
var T: TextFile;
FileName: String;
begin
FileName := 'FilePrefix_' + FormatDateTime('yyyy-mm-dd', Now) + '.txt';
AssignFile(T, FileName);
If FileExists(FileName) Then Append(T) Else Rewrite(T);
WriteLn(T, S);
CloseFile(T);
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
11. Jun 2006
Beim automatischen Speichern um Mitternacht nicht, da dort per Memo1.Lines.Clear; die Memo geleert wird.
Es wird höchstens was doppelt sein, wenn das Programm mehrmals am Tag gestartet/beendet wird.
Beim Beenden wir die Datei ja mit dem aktuellen Datum gespeichert und bei starten wird dieses wieder ausgelesen, welches allerings um Mitternacht mit dem Datum des nächsten Tags gespeichert...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
8. Jun 2006
upps ja ... abr das hätte dir auch auffallen können ... GetMemoFileName will noch ein paar Parameter haben.
// globale Variable
Var OldFileName: String;
// zusätzliche Funktionen:
function GetMemoFileName(const ABaseName: string; ADateTime: TDateTime): string;
begin
Result := ABaseName + '_' + FormatDateTime('yyyy-mm-dd', ADateTime) + '.txt';
end;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
7. Jun 2006
Dann würde aber nicht immer am Tagesende die Log gespeichert ... was passiert z.B. wenn mal einen Tag lang nichts in dieLog reingeht, dann stimmt das Datum nicht ... und so weiter.
PS: dachte jetzt in deiner LogUtils.pas wäre was ganz großes drin ._.
AutoLoad und AutoSave würde ich eventuell mit in die Klasse reinmachen und es wäre bestimmt nich schlecht, wenn diese Klasse die daten immer...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
7. Jun 2006
Klar gibt's auch andere Wege (hatte vorletze Woche och ma angefangen mir wowas zu machen), aber wenn er es nur in das Memo einträgt und dann immer im Mitternacht gespeichert werden soll, dann muß man halt per Zeit prüfen.
Also entweder man speichert immer sofort in der Datei und ändert notfalls vorm LogAdd (oder darin am Anfang) den Dateinamen, wenn ein neuer Tag begonnen wurde, oder mann muß...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
7. Jun 2006
Einfach nur da eintragen, wo ein Dateiname erstellt wird.
// globale Variable
Var OldFileName: String;
// zusätzliche Funktionen:
function GetMemoFileName(const ABaseName: string; ADateTime: TDateTime): string;
begin
Result := ABaseName + '_' + FormatDateTime('yyyy-mm-dd', ADateTime) + '.txt';
end;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
7. Jun 2006
joo, die RedBox fehlt hier och ständig ma :wall:
Das mit der Funktion ist och nicht schlecht, damit hat man nur noch eine Funktion, wo der Dateiname erstellt ... fals man also mal daran was ändert, kann man wenigstens nicht irgendwo vergessen etwas mitzuändern, als wenn es mehrfah dastehen würde ^^
Und jupp, das FormatDateTime meinte ich ... ich nehme wohl einfach zuviel "optimiertes"...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
7. Jun 2006
hatte noch was nachgetragen, vorallem was das vorzeitig beenden/neustarten betrifft.
Aber am Besten kommst du, wenn du eher einen DateToString-Variante nimst, woo du selber das Vormat angeben kannst, damit es auf allen Rechnern und mit vrschiedenen DateString-Versionen gleich läuft.
Oder halt selber machen ... am Besten macht es sich dabei Jahr-Monat-Tag zu schreiben, dann sind die Dateien...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
7. Jun 2006
// globale Variable
Var OldFileName: String;
// OnCreate/Programmstart:
OldFileName := 'irgendwas' + DateToStr(Now) + '.txt';
If FileExists(OldFileName) Then Memo1.Lines.LoadFromFile(OldFileName);
// OnTimer (kannst ja im Minuten-, oder Sekundenintervall laufen lassen)
NewFileName := 'irgendwas' + DateToStr(Now) + '.txt';
If (NewFileName <> OldFileName) and not FileExists(NewFileName)...
