Trucos

soporteen línea

Ene 09

Aqui pongo un truco para añadir el punto de los millares a los números.

procedure TForm1.Button2Click(Sender: TObject);

var
i:integer;

begin

i:=2538456;

Label1.Caption:=FormatFloat(’#,’,i);

end;

Ene 09

function NIF(DNI: String): Char;
begin
Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(DNI) mod 23+1,1)[1];
end;