Open
Description
procedure TPSCompileTimeClass.RegisterProperty(const PropertyName,
PropertyType: tbtString; PropAC: TPSPropType);
var
FType: TPSType;
Param: TPSParameterDecl;
p: TPSDelphiClassItemProperty;
PT: tbtString;
begin
pt := PropertyType;
p := TPSDelphiClassItemProperty.Create(Self);
p.AccessType := PropAC;
p.ReadProcNo := InvalidVal;
p.WriteProcNo := InvalidVal;
p.OrgName := PropertyName;
repeat
FType := FOwner.FindType(FastUpperCase(grfw(pt)));
if FType = nil then
begin
p.Free;
Exit;
end;
if p.Decl.Result = nil then p.Decl.Result := FType else
begin
param := p.Decl.AddParam;
Param.OrgName := 'param'+IntToStr(p.Decl.ParamCount);
Param.aType := FType;
end;
until pt = '';
FClassItems.Add(p);
end;
PT: tbtString; is uppercase but bottom of pt code usage all lower case then i do not able work with properties.
my error message is for bottom code like this
Program IFSTest;
var
SQLConnection: TDBConnection;
SQLQuery: TDBQuery;
Begin
SQLConnection:= TDBConnection.Create();
SQLConnection.ProviderName := 'MySQL'; // Access, Advantage, ASE, DB2, DBF, InterBase, MySQL, NexusDB, ODBC, Oracle, PostgreSQL, SQL Server, SQLite, MongoDB
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.
Failed when compiling
[Error] (7:16): Unknown identifier 'PROVIDERNAME'
because of case sensitive does not work . how to change case sensitive to insensitive in delphi do you know compiler directives?
thanks
Metadata
Metadata
Assignees
Labels
No labels