Re: права на контролы в программе

[Kochmin Alexandr]

RUST пишет:

function YourForm.GetFormName:String;
var p : Integer;
      AValue:String;
begin
    AValue := Self.Name;
    p := Pos('_',AValue);
    if p<>0
    then Result := Copy(AValue,1,p-1)
    else Result := AValue;
end;

хм. а какой в этом смысл?
Чтоб не заставлять парсер думать лишний раз?
Что-то я совсем не понял тайный смысл.

--
Кочмин Александр