Filmisator - einfache Filmdatenbank

[Delphi_gn7]

Als mein zweites, funktionierendes Delphi-Projekt als Programmier-Fortgeschrittener (zumindest kein blutiger Anfänger ) ist der Filmisator ein einfaches Programm zum Verwalten einer Liste von Filmen und verschiedenen Infos zu diesen (Genre, Jahr der Veröffentlichung, persönliche Bewertung & Inhaltseschreibung). Die Filme werden innerhalb des Programms in einer ListView bzw. beim Markieren auch in einem separaten Anzeigebereich (rechts) angezeigt und in einer Textdatei gespeichert.


Beim Programmstart werden die Daten aus einer eventuell schon bestehenden Textdatei direkt in die ListView gelesen (zuerst habe ich den Umweg über ein zweidimensionales, dyamisches Array (Array[Zeile, Spalte]) gemacht da ich es für professioneller hielt, es stellte sich aber heraus, dass man dadurch keinen Vorteil, sondern mehr Aufwand hat). Nach Hinzufügen eines neuen Films in die Liste über ein Dialogfenster mit Editfeldern bzw. nach Bearbeiten eines bestehenden Eintrags wird die aktualisierte Liste automatisch komplett neu in die Datei geschrieben (pro Zeile ein Film, nach dem Muster "Titel#Genre#Jahr#Bewertung#Beschreibung#").

Das ganze wurde mit Delphi 7 Personal erstellt.

Da ich mit umfangreichen, unübersichtlichen Programmen noch nicht viel Erfahrung habe, ist diese Version ziemlich schlicht gehalten - diverse Ideen die ich bereits habe werden in folgenden Versionen umgesetzt werden (heißt Version 2, da ich bei der ersten Version versucht habe, von Anfang alle möglichen Funktionen einzubauen).

Würde mich über reichlich Kritik und Verbesserungsvorschlägen in jeder Hinsicht (hinsichtlich Programmier-/Schreibstil, Übersichtlichkeit, Effizienz, Funktionsweise oder auch Wahl der Variablennamen) freuen!

Was ich auf jeden Fall noch zeitnah ändern werde:
- "Speichern unter"-Menüpunkt hinzufügen
- den Dateityp (.txt) im OpenDialog hinzufügen
- Sortierfunktion für die ListView
- eine kleine Hilfe bzw. OnMouseOver-Hinweise für verschiedene Bedienungselemente


Ich wurde auch bereits von einem Betatester (Kumpel) darauf hingewiesen, dass das Fenster auf Netbook nicht komplett dargestellt (sondern abgeschnitten) wird - hat jemand eine Idee wie ich das am besten korrigieren kann, sodass die Fenstergröße sich anpasst?

Danke im Voraus für jegliche Kritk/Vorschläge!

MfG,
gn7

___________________________________
Anhänge:
- Screenshot
- gepackter Projektordner mit u.a. Delphi-Projektdatei, .exe-Datei, Units (3), Liste ("Filme.txt") mit 5 Beispielfilmen

[Klaus01]

Hallo,

eine kleine Anmerkung zu dem Screenshot.
Erstellst Du die Datenbank wirklich im Programmverzeichnis
(da würde es bei neueren Windows Versionen Probleme geben).

Wäre das Uservezeichnis oder ApplicationData Verzeichnis nicht besser?

Grüße
Klaus

[DeddyH]

Naja, "Datenbank"... eigentlich ist es ja nur eine Textdatei in einem eigenen CSV-Format. Übrigens sollte der OpenDialog über einen Filter verfügen, das macht sich gleich besser.
Aber genug gemeckert, ganz schön geworden, weiter so

[Delphi_gn7]

Zitat von Klaus01:

Hallo,

eine kleine Anmerkung zu dem Screenshot.
Erstellst Du die Datenbank wirklich im Programmverzeichnis
(da würde es bei neueren Windows Versionen Probleme geben).

Wäre das Uservezeichnis oder ApplicationData Verzeichnis nicht besser?

Grüße
Klaus

Hm, also das habe ich gar nicht bedacht, auch wenn ich weiß was du meinst.. also ich selbst kopiere das Programm aber auch nicht in den Programmordner unter C:\ , weil es ja nicht installiert werden muss... was würde denn passieren, wenn das Programm versucht, die Datei innerhalb des Programmverzeichnis (unter Win7 zB) zu speichern?

Zitat von DeddyH:

Naja, "Datenbank"... eigentlich ist es ja nur eine Textdatei in einem eigenen CSV-Format. Übrigens sollte der OpenDialog über einen Filter verfügen, das macht sich gleich besser. [...]

Ja ich weiß, ich hätte Datenbank in Anführungszeichen schreiben sollen Und den Dateifilter habe ich ja auch schon in meinen geplanten Änderungen erwähnt

[DeddyH]

Oh sry, das hatte ich wohl überlesen

[WM_CLOSE]

Vielleicht könntest du noch einen Button einbinden um den Film gleich zu starten?
Einfach ein ShellExecute auf die Filmdatei, Windows erledigt den Rest.

[Delphi_gn7]

Für den Fall dass man den Film nicht als Datei, sondern als DVD im Regal hat, würde das nicht gehen

Habe aber auch schon daran gedacht, werde vielleicht in Zukunft ne Checkbox oder sowas in der Art einbinden, bei der man für jeden Film auswählen kann, ob er als Datei vorliegt