Código fonte de todos os meus programas (Delphi/Lazarus)

if OpenPictureDialog1.Execute then

 

Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);

  

  Novo

    

    Memo1.Clear;

    Memo1.SetFocus;

    

    -----------------------------------------

    Abrir

    

    if openDialog1.Execute then

    begin

    memo1.Lines.LoadFromFile(OpenDialog1.Filename);

    memo1.setfocus;

    end;

    

    -----------------------------------------

    

    Botão Salvar

    

    if save.execute then

    begin

    memo1.Lines.SaveToFile(save.Filename);

    end;

    

    -----------------------------------------

    Copiar

    Memo1.CopytoClipBoard;

    

    -----------------------------------------

    Colar

    

    Memo1.PasteFromClipboard; ;

    

    -----------------------------------------

    Recortar

    

    Memo1.CutToClipBoard

    

    -----------------------------------------

    Fonte

    

    FontDialog1.Font:=Memo1.Font;

    if FontDialog1.Execute then

    begin

    Memo1.Font:= FontDialog1.Font;

    Memo1.SetFocus;

    end;

var

 

i:integer;

 

const

 

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ@!#$%&*';

 

max=14;

 

begin

 

Edit1.Text:='';

 

for i:=1 to max do

 

begin

 

Edit1.Text:=Edit1.Text+str[random(length(str))+1];

 

end;

    

unit Unit1;

    

    {$mode objfpc}{$H+}

    

    interface

    

    uses

      Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons,

      ExtCtrls;

    

    type

    

      { TForm1 }

    

      TForm1 = class(TForm)

        Cronometrar: TBitBtn;

        Parar: TBitBtn;

        Edit1: TEdit;

        Timer1: TTimer;

        procedure CronometrarClick(Sender: TObject);

        procedure PararClick(Sender: TObject);

        procedure Timer1Timer(Sender: TObject);

      private

    

      public

    

      end;

    

    var

      Form1: TForm1;

      HoraInicial:TDateTime;

    

    implementation

    

    {$R *.lfm}

    

    { TForm1 }

    

    procedure TForm1.CronometrarClick(Sender: TObject);

    begin

     HoraInicial := Now;

     Timer1.Enabled := True;

    end;

    

    procedure TForm1.PararClick(Sender: TObject);

    begin

     HoraInicial := Now;

     Timer1.Enabled := False;

    end;

    

    procedure TForm1.Timer1Timer(Sender: TObject);

    begin

      Edit1.Text := FormatDateTime('hh:mm:ss',Now-HoraInicial);

    end;

    

    end.

    unit Unit1;

    

    {$mode objfpc}{$H+}

    

    interface

    

    uses

    

      Classes, SysUtils, FileUtil, Forms,

    

    Controls, Graphics, Dialogs, StdCtrls;

    

    type

    

      { TForm1 }

    

      TForm1 = class(TForm)

    

        Button1: TButton;

    

        Button2: TButton;

    

        edtcriptografado: TEdit;

    

        edttexto: TEdit;

    

        edtdescriptografado: TEdit;

    

        edtkey: TEdit;

    

        Label1: TLabel;

    

        Label2: TLabel;

    

        Label3: TLabel;

    

        Label4: TLabel;

    

        procedure Button1Click(Sender: TObject);

    

        procedure Button2Click(Sender: TObject);

    

        procedure FormCreate(Sender: TObject);

    

      private

    

       function criptografar(const key, texto:String):String;

    

       function descriptografar(const key, texto:String):String;

    

      public

    

      end;

    

    var

    

      Form1: TForm1;

    

    implementation

    

    

    {$R *.lfm}

    

    

    { TForm1 }

    

    

    procedure TForm1.Button1Click(Sender: TObject);

    

    begin

    

     edtcriptografado.Text:=criptografar(edtkey.Text,edttexto.Text);

    

    end;

    

    procedure TForm1.Button2Click(Sender: TObject);

    

    begin

    

     edtdescriptografado.Text:=descriptografar(edtkey.Text,

    

    edtcriptografado.Text);

    

    end;

    

    function TForm1.criptografar(const key, texto: String): String;

    

    var

    

      I: Integer;

    

      C: Byte;

    

    begin

    

      Result := '';

    

      for I := 1 to Length(texto) do begin

    

        if Length(Key) > 0 then

    

          C := Byte(Key[1 + ((I - 1) mod Length(Key))]) xor Byte(texto[I])

    

        else

    

          C := Byte(texto[I]);

    

        Result := Result + AnsiLowerCase(IntToHex(C, 2));

    

      end;

    

    

    end;

    

    

    function TForm1.descriptografar(const key, texto: String): String;

    

    var

    

      I: Integer;

    

      C: Char;

    

    

    begin

    

      Result := '';

    

      for I := 0 to Length(texto) div 2 - 1 do begin

    

        C := Chr(StrToIntDef('$' + Copy(texto, (I * 2) + 1, 2), Ord(' ')));

    

        if Length(Key) > 0 then

    

          C := Chr(Byte(Key[1 + (I mod Length(Key))]) xor Byte(C));

    

        Result := Result + C;

    

      end;

    

    end;

    

    

    end.

    procedure TForm1.CalcularCicloDoProcessoClick(Sender: TObject);

    var n1,n2,resultado:real; //declaração de variáveis do tipo real(aceita numero inteiro e com vírgula)

    begin

    n1:=StrToFloat(TempoTrabalhadoEmHoras.Text);// converte n1(numero1) para numero flutuante

    n2:=StrToFloat(NumeroDeProdutosBons.Text);//converte n2(numero2)para numero flutuante

    resultado:=n1/n2; //Dividi a variável n1(numero1) e n2(numero2

    ResultadoDoCicloDoProcesso.Text:=FloatToStr(resultado);//mostra o resultado convertendo numero flutuante(Float) para texto(String)

    procedure TForm1.CalcularTaxaDeProducaoClick(Sender: TObject);

    var n1,n2,resultado:real;

    begin

    n1:=StrToFloat(TempoTrabalhado.Text);

    n2:=StrToFloat(NumeroDeProdutosBons.Text);

    resultado:=n2/n1;

    ResultadoTaxaDeProducao.Text:=FloatToStr(resultado);

    

    procedure TForm1.CalcularTaxaDeProducaoPorRecursoClick(Sender: TObject);

    var n1,n2,resultado:real;

    begin

    n1:=StrToFloat(TaxaDeProducao.Text);

    n2:=StrToFloat(NumeroDeFuncionarios.Text);

    resultado:=n1/n2;

    ResultadoTaxaDeProducaoPorRecurso.Text:=FloatToStr(resultado);

    

    procedure TForm1.CalcularGiroDeEstoqueClick(Sender: TObject);

    var n1,n2,n3,resultado:real;

    begin

    n1:=StrToFloat(NumeroDeProdutosBons.Text);

    n2:=StrToFloat(TotalDeMateriais.Text);

    n3:=StrToFloat(TotalDeProdutos.Text);

    resultado:=n1*12/n2/n3;

    ResultadoDoGiroDoEstoque.Text:=FloatToStr(resultado);

    

    procedure TForm1.CalcularFaltaDeQualidadeClick(Sender: TObject);

    var n1,n2,resultado:real;

    begin

    n1:=StrToFloat(NumeroDeProdutosComDefeitos.Text);

    n2:=StrToFloat(TotalProduzido.Text);

    resultado:=n1/n2;

    ResultadoDaFaltaDeQualidade.Text:=FloatToStr(resultado);

    

    

    procedure TForm1.SairClick(Sender: TObject);

    begin

    Form1.Close;

    

    procedure TForm1.CalcularCPVClick(Sender: TObject);

    var n1,n2,resultado:real;

    begin

    n1:=StrToFloat(NumeroDeProdutosBons.Text);

    n2:=StrToFloat(ValorUnitario.Text);

    resultado:=n1*n2;

    ResultadoCPV.Text:=FloatToStr(resultado);

    

    procedure TForm1.CalcularCustoDaFaltaDeQualidadeClick(Sender: TObject);

    var n1,n2,resultado:real;

    begin

    n1:=StrToFloat(NumeroDeProdutosComDefeitos.Text);

    n2:=StrToFloat(ValorUnitario.Text);

    resultado:=n1*n2;

    ResultadoDoCustoDaFaltaDeQualidade.Text:=FloatToStr(resultado);

    Botão Apagar:

    TempoTrabalhado.Text:='';

    TempoTrabalhadoEmHoras.Text:='';

    NumeroDeProdutosBons.Text:='';

    resultadoDoCicloDoProcesso.Text:='';

    TaxaDeProducao.Text:='';

    ResultadoTaxaDeProducao.Text:='';

    NumeroDeFuncionarios.Text:='';

    ResultadoTaxaDeProducaoPorRecurso.Text:='';

    TotalDeMateriais.Text:='';

    TotalDeProdutos.Text:='';

    ResultadoDoGiroDoEstoque.Text:='';

    NumeroDeProdutosComDefeitos.Text:='';

    TotalProduzido.Text:='';

    ResultadoDaFaltaDeQualidade.Text:='';

    ResultadoCPV.Text:='';

    ResultadoDoCustoDaFaltaDeQualidade.Text:='';

    

    Form1. close; //Fecha o Form

    

    procedure TForm2.CalcularCustoDeCarregarEstoqueClick(Sender: TObject);

    var n1,n2,n3,resultado:real;

    begin

    n1:=StrToFloat(EstoqueDeProducaoEmProcesso.Text);

    n2:=StrToFloat(ValorUnitario.Text);

    n3:=StrToFloat(TaxaDeJuros.Text);

    resultado:=n1*n2*n3;

    ResultadoDoCustoDeCarregarEstoque.Text:=FloatToStr(resultado);

    

    

    end;

    

    procedure TForm2.CalcularCustoFixoClick(Sender: TObject);

    var n1,n2,resultado:real;

    begin

    n1:=StrToFloat(SalarioDoColaborador.Text);

    n2:=StrToFloat(DespesasGerais.Text);

    resultado:=n1+n2;

    ResultadoDoCustoFixo.Text:=FloatToStr(resultado);

    

    end;

    

    procedure TForm2.CalcularCustoTotalClick(Sender: TObject);

    var n1,n2,n3,n4,resultado:real;

    begin

    n1:=StrToFloat(CPV.Text);

    n2:=StrToFloat(CustoDaQualidade.Text);

    n3:=StrToFloat(CustoDoEstoque.Text);

    n4:=StrToFloat(CustoFixo.Text);

    resultado:=n1+n2+n3+n4;

    CustoTotal.Text:=FloatToStr(resultado);

    

    end;

    

    procedure TForm2.CalcularCustoUnitarioClick(Sender: TObject);

    var n1,n2,resultado:real;

    begin

    n1:=StrToFloat(CustoTotal.Text);

    n2:=StrToFloat(NumeroDeProdutosBons.Text);

    resultado:=n1/n2;

    ResultadoDoCustoUnitario.Text:=FloatToStr(resultado);

    

    

    end;

    

    procedure TForm2.SairClick(Sender: TObject);

    begin

    Form2.Close;// Fecha o Form2

    end;

    

    procedure TForm2.ApagarClick(Sender: TObject);

    begin

    EstoqueDeProducaoEmProcesso.Text:='';

    ValorUnitario.Text:='';

    TaxaDeJuros.Text:='';

    ResultadoDoCustoDeCarregarEstoque.Text:='';

    SalarioDoColaborador.Text:='';

    DespesasGerais.Text:='';

    ResultadoDoCustoFixo.Text:='';

    CPV.Text:='';

    CustoDaQualidade.Text:='';

    CustodoEstoque.Text:='';

    CustoFixo.Text:='';

    CustoTotal.Text:='';

    NumeroDeProdutosBons.Text:='';

    ResultadoDoCustoUnitario.Text:='';

    end;

    unit Unit1;



    {$mode objfpc}{$H+}





    interface



    uses





     Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;





    type







     { TForm1 }





     TForm1 = class(TForm)





     Calcular: TButton;





     Apagar: TButton;





     Edit1: TEdit;





     Edit2: TEdit;





     Edit3: TEdit;





     Sair: TButton;





     procedure ApagarClick(Sender: TObject);





     procedure CalcularClick(Sender: TObject);





     procedure SairClick(Sender: TObject);





     private





     { private declarations }





     public





     { public declarations }





     end;





    var





     Form1: TForm1;





    





    implementation





    





    { TForm1 }





    





    procedure TForm1.CalcularClick(Sender: TObject);





    var n1,n2,resultado:real;//n1(numero1),n2(numero2),resultado(resultado do calculo)





    begin





    n1:=StrToFloat(Edit1.text);





    n2:=StrToFloat(Edit2.text);





    resultado:=n1*n2/12;





    Edit3.text:=FloatToStr(resultado);





    





    end;





    





    procedure TForm1.SairClick(Sender: TObject);





    begin





     Form1.Close;





    end;





    





    procedure TForm1.ApagarClick(Sender: TObject);





    begin





     Edit1.text:='';





     Edit2.text:='';





     Edit3.Text:='';





    end;





    





    initialization





     {$I unit1.lrs}





    





    end.

   

unit UnitCalculadora;

    

    {$mode objfpc}{$H+}

    

    interface

    

    uses

      Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,

      Menus;

    

    type

    

      { TForm1 }

    

      TForm1 = class(TForm)

        BtnDivisao: TButton;

        BtnMultiplicacao: TButton;

        BtnSete: TButton;

        BtnOito: TButton;

        BtnNove: TButton;

        BtnC: TButton;

        BtnQuatro: TButton;

        BtnCinco: TButton;

        BtnSeis: TButton;

        BtnDois: TButton;

        BtnTres: TButton;

        BtnSubtracao: TButton;

        BtnAdicao: TButton;

        BtnUm: TButton;

        BtnPonto: TButton;

        BtnIgual: TButton;

        BtnPorcentagem: TButton;

        BtnZero: TButton;

        Edit1: TEdit;

        Label1: TLabel;

        MainMenu1: TMainMenu;

        MenuItem1: TMenuItem;

        MenuItem2: TMenuItem;

        Panel1: TPanel;

        procedure BtnAdicaoClick(Sender: TObject);

        procedure BtnCClick(Sender: TObject);

        procedure BtnCincoClick(Sender: TObject);

        procedure BtnDivisaoClick(Sender: TObject);

        procedure BtnDoisClick(Sender: TObject);

        procedure BtnIgualClick(Sender: TObject);

        procedure BtnMultiplicacaoClick(Sender: TObject);

        procedure BtnNoveClick(Sender: TObject);

        procedure BtnOitoClick(Sender: TObject);

        procedure BtnPorcentagemClick(Sender: TObject);

        procedure BtnQuatroClick(Sender: TObject);

        procedure BtnSeisClick(Sender: TObject);

        procedure BtnSeteClick(Sender: TObject);

        procedure BtnSubtracaoClick(Sender: TObject);

        procedure BtnTresClick(Sender: TObject);

        procedure BtnUmClick(Sender: TObject);

        procedure BtnPontoClick(Sender: TObject);

        procedure BtnZeroClick(Sender: TObject);

      private

    

      public

    

      end;

    

    var

      Form1: TForm1;

      valor1, valor2, porcentagem:real;

      tipoconta:string;

    

    implementation

    

    {$R *.lfm}

    

    { TForm1 }

    

    procedure TForm1.BtnAdicaoClick(Sender: TObject);

    begin

        tipoconta:='Adição';

          valor1:=strtofloat(Edit1.text);

          Edit1.Text:='';

          Label1.Caption:='+';

    end;

    

    procedure TForm1.BtnCClick(Sender: TObject);

    begin

      Edit1.text:='';

      valor1:=0;

      valor2:=0;

      tipoconta:='';

      Label1.Caption:='';

    end;

    

    procedure TForm1.BtnCincoClick(Sender: TObject);

    begin

      Edit1.text:=Edit1.text+'5';

    end;

    

    procedure TForm1.BtnDivisaoClick(Sender: TObject);

    begin

         tipoconta:='Divisão';

          valor1:=strtofloat(Edit1.text);

          Edit1.Text:='';

          Label1.Caption:='/';

    end;

    

    procedure TForm1.BtnDoisClick(Sender: TObject);

    begin

      Edit1.text:=Edit1.text+'2';

    end;

    

    procedure TForm1.BtnIgualClick(Sender: TObject);

    begin

    if tipoconta = 'Adição' then

          begin

          valor2:=StrToFloat(edit1.text);

          edit1.text:=FloatToStr(valor1+valor2);

    

        end;

    

        if tipoconta = 'Subtração' then

        begin

          valor2:=StrToFloat(edit1.text);

          edit1.text:=FloatToStr(valor1-valor2);

    

        end;

    

        if tipoconta = 'Divisão' then

        begin

          valor2:=StrToFloat(edit1.text);

          edit1.text:=FloatToStr(valor1/valor2);

    

        end;

        if tipoconta= 'Multiplicação' then

        begin

          valor2:=StrToFloat(Edit1.Text);

          Edit1.Text:=FloatToStr(Valor1 * Valor2);

        end;

    

    end;

    

    procedure TForm1.BtnMultiplicacaoClick(Sender: TObject);

    begin

         tipoconta:='Multiplicação';

          valor1:=strtofloat(Edit1.text);

          Edit1.Text:='';

          Label1.Caption:='X';

    end;

    

    procedure TForm1.BtnNoveClick(Sender: TObject);

    begin

          Edit1.text:=Edit1.text+'9';

    end;

    

    procedure TForm1.BtnOitoClick(Sender: TObject);

    begin

        Edit1.text:=Edit1.text+'8';

    end;

    

    procedure TForm1.BtnPorcentagemClick(Sender: TObject);

    var resultado:real;

    

       begin

    

        if tipoconta ='Multiplicação' then

        begin

    

         valor2:=strtofloat(edit1.text);

         resultado:=valor1*valor2/100;

         Edit1.text:=FloatToStr(resultado);

         Label1.Caption:='%';

         end;

           if tipoconta = 'Adição' then

       begin

          porcentagem:=strtofloat(edit1.text);

          porcentagem:=porcentagem/100;

          porcentagem:=porcentagem*valor1;

          edit1.text:=floattostr(valor1+porcentagem);

    

       end;

       if tipoconta = 'Subtração' then

       begin

          porcentagem:=strtofloat(edit1.text);

          porcentagem:=porcentagem/100;

          porcentagem:=porcentagem*valor1;

          edit1.text:=floattostr(valor1-porcentagem);

    

    

           end;

        if tipoconta = 'Divisão' then

       begin

          porcentagem:=strtofloat(edit1.text);

          porcentagem:=porcentagem/100;

          porcentagem:=porcentagem*valor1;

          edit1.text:=floattostr(valor1/porcentagem);

    end;

    

    end;

    

    procedure TForm1.BtnQuatroClick(Sender: TObject);

    begin

       Edit1.text:=Edit1.text+'4';

    end;

    

    procedure TForm1.BtnSeisClick(Sender: TObject);

    begin

      Edit1.text:=Edit1.text+'6';

    end;

    

    procedure TForm1.BtnSeteClick(Sender: TObject);

    begin

         Edit1.text:=Edit1.text+'7';

    end;

    

    procedure TForm1.BtnSubtracaoClick(Sender: TObject);

    begin

       tipoconta:='Subtração';

          valor1:=strtofloat(Edit1.text);

          Edit1.Text:='';

          Label1.Caption:='-';

    end;

    

    procedure TForm1.BtnTresClick(Sender: TObject);

    begin

      Edit1.text:=Edit1.text+'3';

    end;

    

    procedure TForm1.BtnUmClick(Sender: TObject);

    begin

      Edit1.text:=Edit1.text+'1';

    end;

    

    procedure TForm1.BtnPontoClick(Sender: TObject);

    begin

       Edit1.text:=Edit1.text+'.';

    end;

    

    procedure TForm1.BtnZeroClick(Sender: TObject);

    begin

      Edit1.text:=Edit1.text+'0';

    end;

    

    end.