Fórum Dll #299193

unit SuaBiblioteca;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, Buttons, ExtCtrls, StdCtrls, ComCtrls, ToolWin, ImgList, DBTables, DB,DbGrids, ShellApi, Jpeg, Registry, Grids, Typinfo, DbCtrls, BtnColor, Variants;

var
     sSorter: String = ´C:\SORTER\´; 
     sTables: String = ´C:\TABLES\´;
     sParam : String; 
     sRST   : String; 
     TextoOrig, TextoDest, GuardaTexto, arqRepl:TextFile;
     subStr  : String;
     linha   : String;
     sLimite : String;
     iLimite : Integer;
     fLimite : Double;

{ Declaração das Funções e Procedures }
function DataExtenso(Data:TDateTime): string;
function ExisteForm(pForm: Tform): Boolean;
procedure CriaForm(ClasseDoForm: TFormClass);
function CopiaLinha(Caminho, Arquivo: String; Linha: Integer): String;

implementation

{ Código das Funções e Procedures }


function CopiaLinha(Caminho, Arquivo: String; Linha: Integer): String;
var
  LinhaCop: TStringList;
begin
    if not FileExists(Caminho+Arquivo) then
           CopyFile(PChar(´C:\BACKUP\´+Arquivo),Pchar(Caminho+Arquivo), True);

    LinhaCop  :=  TStringList.Create;

    LinhaCop.LoadFromFile(Caminho+Arquivo);
    Result  :=  LinhaCop[Linha];

end; // CopiaLinha

procedure CriaForm(ClasseDoForm: TFormClass);
var
Form: TForm;
begin
Form := ClasseDoForm.Create(Application.MainForm);
Form.ShowModal;
end; // AbreForm
{******************************************************************************}

function ExisteForm(pForm: Tform): Boolean;
var i     : integer;
begin
      ExisteForm := False;
      for i := 0 to Screen.FormCount - 1 do
          if Screen.Forms[i] = pForm then
          begin
            ExisteForm := True;
            Break;
          end
end; // ExisteForm

function DataExtenso(Data:TDateTime): String;
{(*
    Como Usar:
    Label1.Caption  :=  DataExtenso(Now);
*)}

{Retorna uma data por extenso}
var
  NoDia : Integer;
  DiaDaSemana : array [1..7] of String;
  Meses : array [1..12] of String;
  Dia, Mes, Ano : Word;
begin
{ Dias da Semana }
  DiaDasemana [1]:= ´Domingo´;
  DiaDasemana [2]:= ´Segunda-feira´;
  DiaDasemana [3]:= ´Terçafeira´;
  DiaDasemana [4]:= ´Quarta-feira´;
  DiaDasemana [5]:= ´Quinta-feira´;
  DiaDasemana [6]:= ´Sexta-feira´;
  DiaDasemana [7]:= ´Sábado´;
{ Meses do ano }
  Meses [1] := ´Janeiro´;
  Meses [2] := ´Fevereiro´;
  Meses [3] := ´Março´;
  Meses [4] := ´Abril´;
  Meses [5] := ´Maio´;
  Meses [6] := ´Junho´;
  Meses [7] := ´Julho´;
  Meses [8] := ´Agosto´;
  Meses [9] := ´Setembro´;
  Meses [10]:= ´Outubro´;
  Meses [11]:= ´Novembro´;
  Meses [12]:= ´Dezembro´;
  DecodeDate (Data, Ano, Mes, Dia);
  NoDia := DayOfWeek (Data);
  Result := DiaDaSemana[NoDia] + ´, ´ +
  IntToStr(Dia) + ´ de ´ + Meses[Mes]+ ´ de ´ + IntToStr(Ano);
end; // DataExtenso
end.