Einzelnen Beitrag anzeigen

Pfoto

Registriert seit: 26. Aug 2005
Ort: Daun
541 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: CSV als Datenbank für Netzwerkapp

  Alt 22. Dez 2007, 13:56
Hallo capo,

das tolle an einer Datenbank ist ja, dass es nicht nur
ein Container ist, um Daten zu speichern, sondern dass
man gezielt Daten herausziehen, aktualisieren und
löschen kann.

Es kommt natürlich auch drauf an, ob das Programm nur
für Dich oder einen kleinen Personenkreis ist, bei dem
solche Hacks mit einer CSV-Datei in Ordnung sind.

Auf Dauer würde ich so etwas umschreiben. Es gibt ja
embedded-Datenbankversionen, die klein, schnell und
viel flexibler als eine CSV-Datei sind.

Ansonsten würde ich beim Handling mit der CSV-Datei
bestimmte Schreib- und Leserechte setzen, so dass
man sich nicht gegenseitig die Daten überschreibt.

Deine Frage zum letzten Schreibdatum; da habe
ich bei mir folgenden Code im Einsatz:
Delphi-Quellcode:
function GetLastWriteDateTime(const aFilename: string): TDateTime;
var
  h: THandle;
  Struct: TOFSTRUCT;
  lastwrite: Integer;
begin
  result:= 0;
  If fErrorReadingFile then exit;
  h := OpenFile(PChar(aFilename), Struct, OF_SHARE_DENY_NONE);
  try
    if h <> HFILE_ERROR then
    begin
      lastwrite := FileGetDate(h);
      Result := FileDateToDateTime(lastwrite);
    end;
  finally
    CloseHandle(h);
  end;
end;


Gruß
Pfoto
Jürgen Höfs
  Mit Zitat antworten Zitat