paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:39:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Simplify function FieldNameToPascalIdentifier in FieldsList.

Browse Source 
git-svn-id: trunk@59090 -
This commit is contained in:
juha 2018-09-20 08:18:49 +00:00
parent 71029bd79e
commit e2bbe1a4d4
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/ideintf/fieldslist.pas
View File

@ -36,7 +36,7 @@ uses
// LCL
Forms, Dialogs, Buttons, StdCtrls,
// IdeIntf
ObjInspStrConsts, ComponentEditors, IDEWindowIntf;
ObjInspStrConsts, PropEdits, ComponentEditors, IDEWindowIntf;
type
@ -93,20 +93,14 @@ var
i : integer;
begin
Result := '';
// FieldName is an ansistring
for i := 1 to Length(AName) do
if AName[i] in ['0'..'9','a'..'z','A'..'Z','_'] then
Result := Result + AName[i];
if (Length(Result) > 0) and (not (Result[1] in ['0'..'9'])) then
Exit;
if Assigned(FieldDef.FieldClass) then
begin
Result := FieldDef.FieldClass.ClassName + Result;
if Copy(Result, 1, 1) = 'T' then
Result := Copy(Result, 2, Length(Result) - 1);
end
else
Result := 'Field' + Result;
if (Result = '') or (Result[1] in ['0'..'9']) then
if Assigned(FieldDef.FieldClass) then // Try with FieldDef
Result := ClassNameToComponentName(FieldDef.FieldClass.ClassName) + Result
else
Result := 'Field' + Result;
end;
function CreateFieldName(Owner: TComponent; const AName: string): string;