Hola! Nuevamente solicitando ayuda (¡que raro!)
en este
hilo Jhonny propuso una funcion para llenar una cadena con determinados caracteres por la izquierda o derecha, sin embargo al tratar de implementarla me da error:
[Error] UVarios.pas(18): Unsatisfied forward or external declaration: 'TDM_Varios.PadString'
el codigo:
Código Delphi
[-]
unit UVarios;
interface
uses
SysUtils, Classes, ActnList;
type
TOrientacion = (toLeft, toRight);
type
TDM_Varios = class(TDataModule)
ActionList1: TActionList;
private
public
Function PadString(cVar: String; Caracter: Char; nLen: Integer; Orientacion: TOrientacion): String;
end;
var
DM_Varios: TDM_Varios;
implementation
{$R *.dfm}
Function PadString(cVar :String; Caracter :Char; nLen:Integer; Orientacion :TOrientacion):String;
begin
if Orientacion = toLeft then
Result:=StringOfChar(Caracter, nLen - Length(cVar))+cVar
else
Result:=cVar+StringOfChar(Caracter, nLen - Length(cVar));
end;
end.
las preguntas son:
¿esta bien la declaracion de tipos? (nunca habia tenido necesidad)
¿Cual es la causa del mensaje de error?