remobjects / pascalscript

pascalscript
Other
447 stars 178 forks source link

property assigment does not work #253

Open relativ opened 2 years ago

relativ commented 2 years ago
Program IFSTest;
var
    SQLConnection: TDBConnection;
    SQLQuery: TDBQuery;
Begin

    SQLConnection:= TDBConnection.Create();

    SQLConnection.ProviderName := 'MySQL'; // property assigment time whole program getting exit

SQLConnection.UserName := 'root';
    SQLConnection.Password := '';
    SQLConnection.Server := 'localhost';
    SQLConnection.Database := 'mysql';
    SQLConnection.Open();

    SQLQuery:= TDBQuery.Create();
    SQLQuery.Connection := SQLConnection;
    SQLQuery.SQL.Text := 'select * from user';
    SQLQuery.Open;
    while not SQLQuery.Eof do
    begin
                                Memo1.Lines.Add(SQLQuery.FieldByNameAsString('User')) ;
        SQLQuery.Next;
    end;

    SQLQuery.Close();
    SQLQuery.Free();

    SQLConnection.Close();
    SQLConnection.free();

End.

hello that 2 object calling from dll and added to pascalscript plugings collection then i test with this code but object creation succeded then exit whole program when the property set by text