Kleine Datenbank speichern unter Verwendung von Zeigern

[Satty67]

Ohne es selber getestet zu haben, könnte Ton für falsche Eingabe sein.

Setze bei return den Key auf #0

Delphi-Quellcode:

if (Key=#13) and (length(EditEintragen.Text)<>0) then
  begin
     Key := #0

(Ups, war zu langsam)

[jawo3]

Ihr seid wirklich super!

Vielen Dank,
jawo3

[jawo3]

Mir ist heute aufgefallen, dass wenn ich die abgespeicherte Datei aus dem Verzeichnis lösche und dann das Programm starte und versuche die Datenbank zu laden, ich eine Fehlermeldung bekomme (was ja soweit auch logisch ist).

Es wäre schön, wenn ich statt der Fehlermeldung eine Message mit zum Beispiel "Es wurde keine Datenbank gefunden" oder etwas dergleichen angezeigt bekommen würde, also als showmessage.

Nur habe ich keine Ahnung, wie ich das in Code umsetzen kann. Muss man da irgendwie mit solchen Compilerdirektiven arbeiten {$I-} ?

Vielen Dank im Voraus
jawo3

[Luckie]

Prüfe mit FileExists, ob die Datei existiert.

[jawo3]

Super, vielen Dank!

Manchmal ist die Lösung einfacher als man denkt

[idefix2]

Genau so (*$I-*)

Dann ioresult abfragen