[Neftali [Germán.Estévez]]

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;

// Es equivalente a:


  Str := IntToStr(tv.Parent.Index);