Código Delphi [-] function booltostr(A: string):string; begin if A=True then Result:='Verdadero' else Result:='Falso'; end;
function booltostr(A: string):string; begin if A=True then Result:='Verdadero' else Result:='Falso'; end;