Bedingung: nächster Monat beginnt

[Newcomer91]

Morgen, ich habe mir überlegt ein älteres Programm von mir zu optimieren.
Unzwar dient es mir als kleinen Notizblock in dem ich alles reinschreib.
Gespeichert wird es derzeit noch alles in einer Textdatei 'Output.txt',
dies soll sich allerdings ändern.
Ich möchte dass grundsätzlich alles nach Monaten sortiert werden soll.
Mein Programm soll also merken wann ein neuer Monat beginnt und automatisch
eine passende textdatei erstellen, und ab sofort alle Strings die ich speichern
möchte, automatisch auf diese neue Textdatei verweisen.

Wie gehe ich es am besten an?
Ich möchte keine fertigen Quellcodes, Anregungen, Vorschläge sind erwünscht.

Liebe Grüße

New

[Klaus01]

Ich würde es etwas anders angehen.

Ist die Datei zum aktuellen Monat vorhanden schreibe hinein.
Ist die Datei zum aktuellen Monat nicht vorhanden (neuer Monat angefangen) erstelle sie
und schreibe hinein.

Grüße
Klaus

[alfold]

Hi, du fragst im Datum nach den Monat/Jahr, suchst ob eine Datei mit den Namen Monat/Jahr vorhanden ist. Wenn nicht wird sie erstellt und nun wird immer in dieser Datei geschrieben. Ändert sich der Monat/Jahr wird wieder eine neue erstellt usw.
Aber auch das Jahr mit angeben.

Gruss alfold

[Newcomer91]

Sollte ich dazu den DateTimePicker benutzen?

[himitsu]

Wozu eine Komponente, in welcher man irgendein Datum angeben kann?

aktuelles Datum = Now

[alfold]

Das bleibt eigentlich Dir überlassen, wichtig ist das Du Monat+Jahr zum vergleich herranziehst! :wink:

Gruss alfold

[Newcomer91]

Ich verstehe.

Müsste ich quasi in dem onclickereignis in welchem ich abspeichere diese Bedingung einbauen.

Nun, wie geh ichs an? Eine verschachtelte If bedingung mit einer variable fürs jahr und einer für den monat?

[DeddyH]

Ohne Komponente:

Delphi-Quellcode:

function CurrentMonthFileName(const DestDir: string): string;
const MY_EXTENSION = 'txt'; //gewünschte Dateiendung
begin
  Result := Format('%s%s.%s',[IncludeTrailingPathDelimiter(DestDir),
                              FormatDateTime('yyyy-mm',Date),
                              MY_EXTENSION]);
end;

[Newcomer91]

Okay, dankesehr.
Aber ich wollt doch keinen fertigen code ;/

Nun gut, ich werde es ausprobieren ;)

[alfold]

Wie Du den Namen der Datei anlegst? Wenn ich sowas mache verwende ich einfach
z.B. als Dateinamen 'Monat_Jahr.txt' 11_2010.txt

beim Prüfen ist es ne kleine routine die den String dann vergleicht ob vorhanden oder neu anlegen muss.

Gruss alfold