paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 19:40:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed GetClass function (merged from Fixbranch)

Browse Source
This commit is contained in:
sg 2001-02-09 20:40:12 +00:00
parent bd259e35fe
commit 2be0aedd56
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fcl/inc/cregist.inc
View File

@ -74,14 +74,16 @@ begin
end; end;
function FindClass(const ClassName: string): TPersistentClass; function FindClass(const AClassName: string): TPersistentClass;
begin begin
FindClass:=nil; Result := GetClass(AClassName);
if not Assigned(Result) then
raise EClassNotFound.CreateFmt(SClassNotFound, [AClassName]);
end; end;
function GetClass(const ClassName: string): TPersistentClass; function GetClass(const AClassName: string): TPersistentClass;
var var
I : Integer; I : Integer;
begin begin
@ -90,9 +92,9 @@ begin
for I := 0 to Count-1 do for I := 0 to Count-1 do
begin begin
Result := TPersistentClass(Items[I]); Result := TPersistentClass(Items[I]);
if Result.ClassNameIs(ClassName) then Exit; if Result.ClassNameIs(AClassName) then Exit;
end; end;
I := ClassAliasList.Indexof(ClassName); I := ClassAliasList.Indexof(AClassName);
if I >= 0 then //found if I >= 0 then //found
Begin Begin
Result := TPersistentClass(ClassAliasList.Objects[i]); Result := TPersistentClass(ClassAliasList.Objects[i]);
@ -185,7 +187,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:32:59 michael Revision 1.3 2001-02-09 20:40:12 sg
* Fixed GetClass function (merged from Fixbranch)
Revision 1.2 2000/07/13 11:32:59 michael
+ removed logs + removed logs
} }