String eintragen der Apostroph enthält

[p80286]

Würdest du einmal etwas Code spendieren?
Mir fehlt vor allem ein .Close

Delphi-Quellcode:

fuunc.ASQLite3Query1.Close;
 fuunc.ASQLite3Query1.SQL.Clear;
 fuunc.ASQLite3Query1.SQL.Add('INSERT INTO mails (absender, mail, datum) VALUES ('''+abs+''', '''+txt+''', '''+datum+''')');
 fuunc.ASQLite3Query1.ExecSQL;
fuunc.ASQLite3Query1.Close;

Gruß
K-H

[Satyr]

Sorry, Telefon.

Der Code der bei mir 1 Mal funktioniert aber dann eine Zugriffsverletzung macht ist:

Delphi-Quellcode:

with fuunc.ASQLite3Query1 do
try
  RawSQL := False;
  SQL.Text := 'INSERT INTO mails (absender, mail, datum) VALUES (:absender,:mail,:datum)';
  Params.ParamByName('absender').Value := abs;
  Params.ParamByName('mail').Value := txt;
  Params.ParamByName('datum').Value := date;
  ExecSQL;
  SQL.Clear;
  Params.Clear;
  Close;
finally
  Free;
end;

[DeddyH]

Das ist ja anscheinend eine Komponente, wieso gibst Du die frei? Dafür ist doch im Normalfall der Owner zuständig. Und ein Close nach ExecSQL macht keinen Sinn, lass Dir da nix einreden.

[Satyr]

Weil ich "Angst" habe das ich den Arbeitsspeicher zumülle, wenn ich da nix freigebe. Kann das nicht passieren?

[DeddyH]

Das kommt jetzt darauf an. Hast Du sie zur Entwurfszeit auf das Formular gepackt oder zur Laufzeit erzeugt?

[Satyr]

Zur Entwurfszeit. Ist für mich übersichtlicher.

[DeddyH]

Dann musst Du sie auch nicht freigeben, das machst Du mit anderen Komponenten ja hoffentlich auch nicht.

[Luckie]

Dann darfst du es auch nicht frei geben. Denn wie oder wann soll es den nach dem Freigeben wieder erstellt werden? Wenn du die Komponente zur Entwurfszeit auf das Formular machst, dann ist das Formular der Owner und gibt die Komponente auch wieder frei.

[Satyr]

Ah ok, klingt logisch. Ich hatte nur schon so oft gelesen, das irgendwelche Fehler bei DB Programmierung damit zusammenhängen, das man den Arbeitsspeicher nicht sauber genug nutzt.
Aber ohne free und close funktioniert es perfekt, so wie es soll. Danke Euch, hat mir sehr geholfen .