[brandolin]

Hola a todos

Estoy haciendo unas dlls para mi aplicacion y en la misma tengo que incluir unas funciones que formateen unos strings y la funcion tiene la siguiente definicion:

Function ArmarCodCompVenta(TC, STC, SUC, POS, COMP: Integer): String;
var TC1, STC1, SUC1, POS1, COMP1 : String;
begin
    TC1   := LlenarCeros(InttoStr(TC), 2);
    STC1  := LlenarCeros(InttoStr(STC), 1);
    SUC1  := LlenarCeros(InttoStr(SUC), 3);
    Pos1  := LlenarCeros(InttoStr(POS), 4);
    Comp1 := LlenarCeros(InttoStr(COMP), 8);
    ArmarCodCompVenta := TC1+STC1+SUC1+POS1+COMP1;
end;

La dll complia y se crea sin problemas pero cuando se llama desde la aplicacion da un error de "invalid pinter operation".
De las pruebas que he hecho dedusco que el problema esta en el string que devuelve la funcion, ya que si a la misma funcion la reemplazo por la siguiente definicion

Procedure ArmarCodCompVenta(TC, STC, SUC, POS, COMP: Integer; var Output: String);
var TC1, STC1, SUC1, POS1, COMP1 : String;
begin
    TC1   := LlenarCeros(InttoStr(TC), 2);
    STC1  := LlenarCeros(InttoStr(STC), 1);
    SUC1  := LlenarCeros(InttoStr(SUC), 3);
    Pos1  := LlenarCeros(InttoStr(POS), 4);
    Comp1 := LlenarCeros(InttoStr(COMP), 8);
    ArmarCodCompVenta := TC1+STC1+SUC1+POS1+COMP1;
end;

La misma funciona sin problemas... el problema es mio ya que me queda mucho mas comodo que funcione como funcion y no como prodedure.

¿Alquien sabe porque sucede esto? y obviamente la forma de solucionarlo.

Desde ya muchas gracias.