Ver Mensaje Individual
  #4  
Antiguo 11-08-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Lo que no puedes hacer es que una función que ha de devolver un resultado de tipo "TStrings" devuelva uno de tipo "string" sin más. Lo que has de hacer es cambiar el tipo de resultado de la función a "string". Una vez en la función, si es que es menester utilizar la clase "TStrings", siempre podrás devolver la propiedad "Text", que es de tipo "string". En todo caso, podrías tratar de que la función en cuestión no trabajara con un "TStrings", sino con "string", directamente. Aquí va un ejemplo.

Código Delphi [-]
 function Operaciones : TStrings;
  var
    temp: TStrings;
  begin
    Result := nil;
    temp := TStringList.Create;
    try
      { Resto de instrucciones }
      Result := temp; 
    finally
      temp.Free;
    end;
  end;
Esa función que devuelve un resultado de tipo "TStrings" podría reconvertirse a algo así para devolver un resultado de tipo "strings":

Código Delphi [-]
 function Operaciones : string;
   var
     temp: TStrings;
   begin
     Result := '';
     temp := TStringList.Create;
     try
       { Resto de instrucciones }
       Result := temp.Text; 
     finally
       temp.Free;
     end;
   end;
Y si acaso pudieras sustituir el tipo "TStrings" y trabajar con "strings" directamente, pues entonces podría quedar algo así, pero esto ya lo sabes:

Código Delphi [-]
 function Operaciones : string;
 var
   temp: string;
   begin
   { Instrucciones }
   Result := temp; 
 end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita