grml, doch das meine ich. Aber ich würde es case-insensitive machen. Also
Delphi-Quellcode:
function TAdComponent.FindComponent(AName: string): TAdComponent;
var
i:integer;
begin
if Name = AName then
begin
result := self;
end
{...}
in
Delphi-Quellcode:
function TAdComponent.FindComponent(AName: string): TAdComponent;
var
i:integer;
begin
if Lowercase(Name) = LowerCase(AName) then
begin
result := self;
end
{...}
ändern.
Ansonsten kann ich nur sagen
- waren die Finger mal wieder schneller als das Hirn
