Einfache Datenbank ohne SQL usw.?

[weber_8722]

Hallo,

ich möchte eine einfache Mini-Datenbak erstellen, z.B. um Ergebnisse im Sport zu sammeln, zu vergleichen, Statistiken zu erstellen, Trend-Plots ausgeben, den User einfach browsen zu lassen, usw.
Ich habe jedoch keine Datenbankerfahrung und keine Lust :

• mich in SQL oder so einzuarbeiten
• irgendwelche Lizensen (auch nicht freie) zu berücksichtigen
• irgendwelche Zusatzdateien zu meinem Programm mitliefern zu müssen
• Dinge ohne den Quelltext zu haben einzubauen

Gibt es da etwas einfaches? Eine Beispielanwendung?
Die Daten sollen am besten als einzelnen Textdateien abgelegt werden, z.B. als CSV.

Viele Grüße
Stephan

[mschnell]

Wenn es wirklich "Mini" ist, spielen Such.Zeiten keine Rolle. Dann kannst Du auch einfach eine Text-Datei nehmen. Entweder mit einem selbst definierten Format oder mit XML (dafür gibt es Zugriffs-Komponenten).

Ich bin kein Experte, aber viele Produkte benutzen SQLite für solche Zwecke. -> http://wiki.freepascal.org/sqlite -> https://www.sqlite.org/

SQL-Befehle brauchst Du nicht unbedingt. Die Komponenten sollten den low-Level - Kram für Dich regeln. z.B. auch ZEOS -> http://wiki.freepascal.org/Zeos_tutorial/de

-Michael

[Michl]

Gibt es da etwas einfaches? Eine Beispielanwendung?

Ich würde SQLite zwar vorziehen, aber unter den Beispielen (Lazarus/examples/address_book/addrbook) ist auch ein Dbf-Adressebuch mit dabei.

[Warf]

Also ich würde einfach mit Records und binären Dateien arbeiten. Bzw wenn die Datenmengen nicht zu groß sind würde ich einfach die Kompletten Daten in den Hauptspeicher laden und dann über z.B. einen Array zugreifen.

Ein simples Beispiel:

Code: Alles auswählen

type 
PMyData = ^TMyData;
TMyData = packed record
  Name: ShortString;
  Daten1, Daten2: Integer;
  Daten3, Daten4: Double;
end;
 
...
procedure LoadData(FileName: string; lst: TList);
var tmp: PMyData;
  buff: TMyData;
begin
  With TFileStream.Create(FileName, fmOpenRead) do
    try
      While Read(buff, SizeOf(buff)) = SizeOf(Buff) do
      begin
        new(tmp);
        tmp^ := buff;
        lst.Add(tmp);
      end;
    finally
      Free;
    end;
end;
 
procedure SaveData(FileName: String; lst: TList);
var i: Integer;
begin
  With TFileStream.Create(FileName, fmCreate) do
    try
      for i:=0 to lst.Count-1 do
        Write(PMyData(lst[i])^, SizeOf(TMyData));
    finally
      Free;
    end;
end;
 

[creed steiger]

als csv?
das hier vielleicht

http://wiki.lazarus.freepascal.org/ZMSQL

[Christian]

Von TDbf würd ich dringend abraten damit hatt ich schon massive Datenverluste.
Ich würd zu SQLite greifen, da hat man die vollen Vorteile von nem SQL Server und muss nur ne kleine dll mitliefern.

[RuhrPotto]

Sofern keine extrem variablen Auswertemöglichkeiten bestehen müssen die SQL erforderlich machen, sind typisierte Dateien einfach zu handhaben.

Entweder als Pointer wie im vg. Beispiel oder in Array einlesen und verarbeiten. Kompilzierter wird es nur, wenn auch lange Strings (> 255 Zeichen) zu speichern sind oder viele Strings mit einer Länge bis zu 255 Zeichen gespeichert werden sollen. Dann ergäb ein Overhead an Speicherplatz.

Noch mehr Mini-DB wäre auch eine Möglichkeit über INI-Dateien.

[hausi]

TDbf und DBF Dateien laufen nur stabil mit einer XBase Entwicklungsumgebung. Habe früher viele solche Sachen mit Clipper, Foxpro etc. erstellt. Darum habe ich es am Anfang auch mit TDbf versucht, doch bin schnell davon weggekommen. Bei DBF Dateien muss man zum Suchen und Sortieren eine Index Datei erstellen und dies ist bei TDbf eine Schwachstelle. Wenn es einfach sein soll, SQLite, eine Dll beilegen und die Sache läuft.

Hausi