9 respuestas en este tema

[Desart]

Pues eso si es posible crear funciones, donde podamos dejar parámetros en blanco (nulo)mas o menos que podamos hacer lo siguiente

delphi

Function mensaje(Text:String):String;

Podamos poner

delphi

mensaje();

Y nos devuelva 'Mensaje Vació' en un Showmessage y en cambio si ponemos

delphi

mensaje('Hola a la Comunidad');

nos devuelva'Hola a la Comunidad' en un Showmessage.  Como siempre gracias por vuestra ayuda.

[andres1569]

Si el parámetro fuera un puntero, le pasaría nil, incluso si fuera un PChar, pero siendo un tipo string, ¿no te vale una cadena vacía?

delphi

Mensaje('')

Si lo que quieres es no tener que pasar nada entre los paréntesis, puedes definir la función con un parámetro por defecto:

delphi

function Mensaje(Text: string = '');

y llamarlo como tú quieres.

[escafandra]

Si, es posible definir una función con un parámetro por defecto:

delphi

function mensaje(Text: String = ''):String;

Saludos.

[Delphius]

Hay que aclarar que dependiendo de lo que debe hacer la función o el procedimiento dentro es posible que deba aplicarse algún control sobre el valor del parámetro dado, por ejemplo:

delphi

procedure HacerAlgo(Algo: integer = VALOR_DEFECTO);
begin
if Algo = VALOR_DEFECTO
  then ...
  else ...
end;

Hay que tener en cuenta que el valor por defecto no quiere decir que no se pase dicho parámetro... sino que el compilador asumirá que para ese parámetro se le está pasando un valor por defecto o estándar. De modo que si al ejemplo anterior se ha definido:

delphi

const
VALOR_DEFECTO = 100;

Cuando uno hace:

delphi

HacerAlgo;

Le está indicando que el valor del parámetro Algo asuma el valor definido por la constante. En este caso 100. No es que algo tendrá un valor "vacío".

Esto sería equivalente:

delphi

HacerAlgo(100);
// ó también:
HacerAlgo(VALOR_DEFECTO);

Saludos,

[Desart]

Gracias a los tres (Andres1569, Escafandra y Delphius), he probado y no funciona, no se si es que hago algo mal, si en lo que puso delphi, debería definir antes la función, el valor por defecto de los parámetros, pero creo que lo mejor os pongo el código, y así os hacéis una idea de lo que pretendo. De todas maneras, seguramente, este fin de semana publique un par de funciones hechas por mi esta semana, si soluciono esta, la añadiré, con las otras.

delphi

//------------------------------------------------------------------------------
//**********************************************************[ MIAUTOCOD ]*******
// JLGT 25/11/2010  Se encarga de ajustar el código a un largo determinado,
// teniendo como control inicial la decena del año, más un número de control
// Con la inestimable ayuda de Andres1569, Escafandra y Delphius del DelphiAcces
// ---------Ejemplo------------
// En el OnExit de un Edit o DbEdit
// TDbedit(Sender).text:=MiAutoCod(,TDbEdit(Sender).text,,);
//------------------------------------------------------------------------------
 
Function  MiAutoCod(Tipo:     String='L';        //Tipo de código, para L para lote, F, para Factura, A para albaranes, O para otros por defecto ''
                    Cod:      String='0';        //Valor del Código por defecto 0
                    Fecha:    String=' ' ;       //Para capturar el año para el inicio del lote
                    Long:     integer=0):string; //Lago que debe adquirir la cadena
var CadDoc,TxtFormat : string; Year, Month, Day: Word; Vano, Vlargo: Integer;
begin
  if fecha='' then fecha:=datetostr(Now);
  DecodeDate(Strtodate(Fecha), Year, Month, Day);
  Vano := StrToInt(AnsiRightStr(Inttostr(Year), 2));
  tipo:=UpperCase(Tipo);
  if ((Tipo='L') or (tipo='F')) then Vlargo:=6   //Si es tipo Factura o Lote largo de 6
  else
  begin
     if tipo='A' then Vlargo:=7                  //Si es tipo Albarán largo de 7
     else
     begin
       if Tipo='O' then Vlargo:=Long             //Si es tipo Otro el largo lo determina long
                   else Vlargo:=0;               // Si no es ninguno de ellos largo 0
     end;
  end;
  if (Length(Cod) <> Vlargo) then
    begin
      TxtFormat:='%.2d%.'+IntToStr(Vlargo-2)+'d';
      CadDoc := Format(TxtFormat, [Vano, StrToInt(cod)]);
    end;
end;

Como sigo con los problemas al plantear el código, os agrego un txt, para que lo podáis leer adecuadamente.

--------------------------------
Edito para reparar el código.

Archivos adjuntos

•  2068_24cf02013aa9161619a0f5492b85e822f1b4a999.txt   1,83KB   2 descargas

[escafandra]

Desart, si estas usando Chrome, últimamante de problemas como el que comentas.

He reparado la visualización de tu código. Si usas la resopuesta rápida no tendrás este efecto aunque luego lo edites de forma normal.

Saludos.

[Desart]

Doy este tema por resuelto, el único problema que persiste es si dejo valores por medio sin poner, pero por lo menos, funciona de manera bastante correcta, añadido el tema de las contantes y el result, modificado el orden de los parámetros a continuación pongo el código y añado un Txt, al final de este pongo algunos ejemplos

Archivos adjuntos

•  2069_889d2c2f4a33e5ac36a748ad432344c8a7389861.txt   3,11KB   0 descargas

[Desart]

Escafandra, gracias por tu respuesta al problema de mi código, si uso Chrome, anulare el código puesto anteriormente, y lo pongo aquí.

delphi

const                  //Para Función MiAutoCod
   VMiAutoCodTipo='L';
   VMiAutoCodCod='0';
   VMiAutoCodFC=' ';
   VMiAutoCodLong=0;
 
 
 
//------------------------------------------------------------------------------
//**********************************************************[ MIAUTOCOD ]*******
// JLGT 25/11/2010  Se encarga de ajustar el código a un largo determinado,
// teniendo como control inicial la decena del año, más un número de control
// Con la inestimable ayuda de Andres1569, Escafandra y Delphius del DelphiAcces
// ---------Ejemplo------------
// En el OnExit de un Edit o DbEdit
// TDbedit(Sender).text:=MiAutoCod(,TDbEdit(Sender).text,,);
//------------------------------------------------------------------------------
 
Function  MiAutoCod(Cod:      String=VMiAutoCodCod;           //Valor del Código por defecto 0
                    Tipo:     String=VMiAutoCodTipo;          //Tipo de código, para L para lote, F, para Factura, A para albaranes, O para otros por defecto ''
                    Long:     integer=VMiAutoCodLong;         //Lago que debe adquirir la cadena
                    Fecha:    string=VMiAutoCodFC):string;    //Para capturar el año para el inicio del lote
var CadDoc,TxtFormat : string; Year, Month, Day: Word; Vano, Vlargo: Integer;
begin
  CadDoc:='';
  if Fecha=' ' then fecha:=DateToStr(now);
  DecodeDate(Strtodate(Fecha), Year, Month, Day);
  Vano := StrToInt(AnsiRightStr(Inttostr(Year), 2));
//  ShowMessage('Fecha: ' +fecha+ #13#10+
//              'Código:' +cod+ #13#10+
//              'Tipo:  ' +Tipo+ #13#10+
//              'Largo: ' +IntToStr(long)+ #13#10+
//              'Año:   ' +IntToStr(Vano));
  tipo:=UpperCase(Tipo);
  if ((Tipo='L') or (tipo='F')) then Vlargo:=6   //Si es tipo Factura o Lote largo de 6
  else
  begin
     if tipo='A' then Vlargo:=7                  //Si es tipo Albarán largo de 7
     else
     begin
       if Tipo='O' then Vlargo:=Long             //Si es tipo Otro el largo lo determina long
                   else Vlargo:=0;               // Si no es ninguno de ellos largo 0
     end;
  end;
  if (Length(Cod) <> Vlargo) then
  begin
      TxtFormat:='%.2d%.'+IntToStr(Vlargo-2)+'d';
      CadDoc := Format(TxtFormat, [Vano, StrToInt(cod)]);
  end;
  Result:=CadDoc;
end;

[escafandra]

Una vez que declaras un parámetro por defecto, el resto deben tener su opción por defecto, de forma que siempre deben ser los últimos y todos seguidos.

Para evitar el código sin saltos de línea:
Trata de responder con la respuesta rápida, luego le das a visualizar y sigues editando normalmente....


Saludos.

[Desart]

GRacias  de nuevo escafandra, así lo hare, aquí dejo los ejemplos

delphi

procedure TForm1.MiEditExit(Sender: TObject);
var Tex:string;
begin                                                                   // Fecha de la prueba 25/11/2010
     tex:=MiEdit.Text;                                             //Valor:=125
     MiEdit.Text:=MiAutoCod(Tex);                            //Lote                             //Resultado 100125
     Edit7.Text:=MiAutoCod(Tex,'F');                         //Factura                          //Resultado 100125   
     Edit8.Text:=MiAutoCod(Tex,'A');                         //Albarán                         //Resultado 1000125
     Edit9.Text:=MiAutoCod(Tex,'O',9);                      //Otros long 9                   //Resultado 100000125
     Edit10.Text:=MiAutoCod(Tex,'O',9,'12/12/2009');  //Otros Long 9 y año 2009   //Resultado 090000125   
end;