Es un
IF..THEN..ELSE abreviado que tienen las últimas verisones de delphi.
http://docwiki.embarcadero.com/Libra...trUtils.IfThen
Al final es equivalente a poner:
Código Delphi
[-]
if Assigned(tv.Parent) then
tblOpcMenu.FieldByName('NODO_PADRE').AsString := tv.Parent.Index.ToString
else
tblOpcMenu.FieldByName('NODO_PADRE').AsString := '-1';
Usar el ToString, es equivalente ŕ la función IntToStr, BoolToStr,...
Código Delphi
[-]
Str:= tv.Parent.Index.ToString;
Str := IntToStr(tv.Parent.Index);