Skip to content

hello i checked out in delphi 11 but i guess delphi 11 is case sensitive ! #255

Open
@relativ

Description

@relativ
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

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions