|
@@ -787,12 +787,6 @@ implementation
|
|
g: TOmfRecord_GRPDEF;
|
|
g: TOmfRecord_GRPDEF;
|
|
begin
|
|
begin
|
|
g:=TOmfRecord_GRPDEF(Groups.Find(groupname));
|
|
g:=TOmfRecord_GRPDEF(Groups.Find(groupname));
|
|
- if g=nil then
|
|
|
|
- begin
|
|
|
|
- g:=TOmfRecord_GRPDEF.Create;
|
|
|
|
- Groups.Add(groupname,g);
|
|
|
|
- g.GroupNameIndex:=LNames.Add(groupname);
|
|
|
|
- end;
|
|
|
|
g.AddSegmentIndex(segindex);
|
|
g.AddSegmentIndex(segindex);
|
|
end;
|
|
end;
|
|
|
|
|