Speicherleck mit SqlDB (und Indy-TCP-Server) bei Datenbankabfrage

[p80286]

Zitat von Benedikt Magnus:

Delphi-Quellcode:

with A^.Anfrage do
begin
  SQL.Text := 'SELECT passwort FROM nutzer WHERE name = :NAME';
  Params.ParamByName('NAME').AsString := Nutzername;
  Open;
  Kennwort_db := FieldByName('passwort').AsString;
  Close;
end;

Solchen Konstrukten traue nicht über den Weg

Delphi-Quellcode:

Kennwort_db := ' - undefined -';
begin
  A^.Anfrage.SQL.Text := 'SELECT passwort FROM nutzer WHERE name = :NAME';
  A^.Anfrage.Params.ParamByName('NAME').AsString := Nutzername;
  A^.Anfrage.Open;
  if not A^.Anfrage.EOF then
    Kennwort_db := FieldByName('passwort').AsString;
  A^.Anfrage.Close;
end;

versuch es mal so.

Gruß
K-H