TSQLiteDatabase: A SQLite3 Database Wrapper

[dGeek]

Um ehrlich zu sein verstehe ich nur Bahnhof :-D

[Sir Rufo]

So etwas z.B.

Delphi-Quellcode:

unit Unit2;

interface

uses
  System.IniFiles;

type
  TEinstellungen = class abstract
  private
    procedure SetFoo( const Value: string );
    function GetFoo: string;
  protected
    function GetValue( const Key: string ): string; virtual; abstract;
    procedure SetValue( const Key, Value: string ); virtual; abstract;
  public
    property Foo: string read GetFoo write SetFoo;
  end;

  TIniEinstellungen = class( TEinstellungen )
  private
    FIniFile: TMemIniFile;
  protected
    function GetValue( const Key: string ): string; override;
    procedure SetValue( const Key: string; const Value: string ); override;
  public
    constructor Create( const IniFileName: string );
    destructor Destroy; override;
  end;

implementation

{ TEinstellungen }

function TEinstellungen.GetFoo: string;
begin
  Result := GetValue( 'foo' );
end;

procedure TEinstellungen.SetFoo( const Value: string );
begin
  SetValue( 'foo', Value );
end;

{ TIniEinstellungen }

constructor TIniEinstellungen.Create( const IniFileName: string );
begin
  inherited Create;
  FIniFile := TMemIniFile.Create( IniFileName );
end;

destructor TIniEinstellungen.Destroy;
begin
  FIniFile.Free;
  inherited;
end;

function TIniEinstellungen.GetValue( const Key: string ): string;
begin
  Result := FIniFile.ReadString( 'Default', Key, '' );
end;

procedure TIniEinstellungen.SetValue( const Key, Value: string );
begin
  FIniFile.WriteString( 'Default', Key, Value );
  FIniFile.UpdateFile;
end;

end.

[dGeek]

Ok nun hab ich es kapiert!

Was in meinem Fall aber absolut schrecklich wäre ist folgendes:

Delphi-Quellcode:

{ TEinstellungen }

function TEinstellungen.GetFoo: string;
begin
  Result := GetValue( 'foo' );
end;

procedure TEinstellungen.SetFoo( const Value: string );
begin
  SetValue( 'foo', Value );
end;

Dafür habe ich zu viele Werte.

Oder ich kapier den Sinn nicht.

Ich glaube ich wechsle einfach zu TMemIniFile und gut ist. Klasse hin oder her, alles zu ver-komplizieren ist nicht mein Ding.

[Ghostwalker]

Gibts hier was aktuelleres/neues ?

Ansonsten würd ich die Klasse evtl. selbst um ein/zwei Features erweitern :)

[Aviator]

Zitat:

Zitat von Ghostwalker (Beitrag 1353304)

Gibts hier was aktuelleres/neues ?

Ansonsten würd ich die Klasse evtl. selbst um ein/zwei Features erweitern :)

Also ich hatte damals als ich auch auf der Suche war nichts gefunden. Ist jetzt etwa 1 Jahr her. Habe mir dann auch diverse andere Funktionen eingebaut die in dem Wrapper nicht drin waren. Bzw. habe ich nur die Funktionsdefinitionen davon verwendet und mir einen eigenen Wrapper geschrieben. Den kann und möchte ich hier aber leider nicht veröffentlichen. :|

[Ghostwalker]

hm...wenn ich mir die Source der Klassen angugg ist das schon ein ziemlicher Verhau. :-D

Aber im Moment reicht mir eine kleine Erweiterung aus.

Evtl. werd ich mal auf Basis des eigentlich Wrappers mal noch was Übersichtliches Bauen :)

[Ghostwalker]

Für Interresenten:

unter https://github.com/stijnsanders/TSQLite gibt es eine etwas aktuellere DLL-Umsetzung (der dazugehörige Wrapper ist.....sehr einfach :) )