SQLQuery das Feld 'id' wurde nicht gefunden.

[gemy]

@Delbor:

Ich habe jetzt eine unit erstellt : uUser.
Ich habe ein Datenmodul mit eingebunden und dort mein SQLConnection und SQLQuery platziert.

Code:

unit uUser;

interface


uses sysutils;

type
  Tuser = class(Tobject)
  private
    fwebsite: string;
    fmainurl: string;
    fusername: string;
    fpassword: string;
    fdbname: string;
    fsearchsite: boolean;
    flistresults: boolean;

    function getWebsite: String;
    procedure setWebsite(webSiteName: String);

  public
    property Website: string read getWebsite write setWebsite;
  end;




implementation

function Tuser.getWebsite:string;
begin
  result := fwebsite;
end;

procedure Tuser.setWebsite(webSiteName: string);
begin
  fwebsite := trim(webSiteName);
end;

nun wenn ich einen Eintrag füllen will mach ich das so :

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
  itm: Tlistitem;
  id: string;
  names: TStringList;
  aUser: TUser;
begin
  aUser := TUser.Create;
  aUser.Website :=edit1.text;
  names := TStringList.Create;
   PrepareParamsUsers;    // ...SQLquery1.Params.CreateParam(ftString, 'website', ptInputOutput); ...
   DataModule1.SQLQuery1.SQL.Text :=
      'insert into users (website,mainurl,username,password,dbname,searchsite,listresults) '
      + 'values(:website,:mainurl,:username,:password,:dbname,:searchsite,:listresults) ';
   with DataModule1.SQLQuery1 do
   begin
   ParamByName('website').Value := aUser.Website;

ist das nun korrekt so ?