Codigo sin utilidad

[[egostar]]

Estaba buscando unas rutinas que alguna vez hice y ahora las necesito, me encontré con este código que nunca he usado, es decir, pues, INUTIL

Código Delphi [-]
unit UCMorse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  CodMorse : Array [48..90] of String =
                ('-----','.----','..---','...--','....-','.....',
                 '-....','--...','---..','----.','---...','-.-.-.',
                 '','-...-','','..--..','','.-','-...','-.-.','-..',
                 '.','..-.','--.','....','..','.---','-.-','.-..',
                 '--','-.','---','.--.','--.-','.-.','...','-','..-',
                 '...-','.--','-..-','-.--','--..');
var
  Form1: TForm1;

implementation

{$R *.DFM}

function ConvaCMorse(T:String):String;
var
  paso : String;
  I : Integer;
begin
  Paso := '';
  For I := 1 to length(T) do begin
      If T[i] <> ' ' then
         Insert(CodMorse[Ord(T[i])],Paso,Length(Paso)+1);
         Insert(' ',Paso,Length(Paso)+1);
  end;
  Result := Paso;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Texto : String;
  I     : Integer;
begin
  Texto := 'sos';
  Texto := uppercase(Texto);
  ShowMessage(Texto+#10#13+ConvaCMorse(Texto));
end;

end.

Saludos

[[seoane]]

Excelente, otro que se anima

[[Al González]]

¡Hola a todos!

Bueno, ahora sigo yo. Es algo realmente simplón y sencillezco.

Resulta que mientras programo suelen surgirme algunas ideas estrafalarias que casi siempre termino desechando por su poca utilidad. Una vez se me ocurrió que para hacer uso del resultado de una función en varios puntos de una rutina Delphi, sin tener que declarar una variable de por medio y sin llamar a dicha función más de una vez (algo que sería innecesario), podría modificar la función para que en lugar de devolver un entero, por ejemplo, devolviese un registro (record) que contuviera un entero, y entonces colocar la llamada a la función como expresión de un bloque With.

Código Delphi [-]
// Opción tradicional y más sana:

Function F1 :Integer;
Begin
  Result := 4;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
  I :Integer;
begin
  I := F1 ();

  If I = 5 Then
    ShowMessage ('F1 devolvió 5.')
  Else
    { NOTA: Canon debidamente pagado a Julián, a la SGAE y a la SAGARPA  }
    ShowMessage ('¡Pabernosmatao!  F1 devolvió ' + IntToStr (I) + '.');
end;

// Extravagancia de fiebre de sábado por la noche:

Type
  TInteger = Record
    Valor :Integer;
  End;

Function F2 :TInteger;
Begin
  Result.Valor := 4;
End;

procedure TForm1.Button2Click(Sender: TObject);
begin
  With F2 () Do
    If Valor = 5 Then
      ShowMessage ('F2 devolvió 5.')
    Else
      { NOTA: Canon debidamente pagado a Julián, a la SGAE y a la SAGARPA  }
      ShowMessage ('¡Pabernosmatao!  F2 devolvió ' + IntToStr (Valor) + '.');
end;

Dedicado a todos aquellos que no les gusta declarar variables.

Un abrazo inútil.

Al González.

[[Bicho]]

Lo siento no me he podido resistir.

Código Delphi [-]
procedure Al_Ayuda;
begin
  if (MessageDlg('¿Alguien conoce la utilidad de la función _CopyObject?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
     ShowMessage('Llame urgentemente a Al Gonzalez');
end;

Saludos

[[Al González]]

¡Hola a todos!

Pero claro, ¡cómo no lo vi antes!, la función _CopyObject de System.pas es un claro ejemplo de un bloque de código sin utilidad...¿o no?

Un abrazo sin resolver.

Al González.

[[ArdiIIa]]

Código Delphi [-]
try
Destination.Assign(Source); 
except
  on EConvertError do Destination := Source;
end;

[[Delphius]]

Yo tenía una unidad que hice en mis primeros momentos en Delphi... al cabo de un tiempo me di cuenta de que era una unidad sin utilidad...
pues se las paso... a lo mejor a alguien le sirva

Código Delphi [-]
unit WindowsUses;

interface

uses Windows, SysUtils, Forms, Messages, Classes;

procedure Mostrar(Forma: TForm;Value:Boolean;PosX,PosY:integer);
procedure ExpandirForma(Forma:TForm;Ancho,Largo:integer);
function FormaCreada(Nombre: String): boolean;
procedure DestruirForma(Forma: TForm);
procedure MinimizarForma(Forma: TForm);
procedure MaximizarForma(Forma: TForm);
procedure RestaurarForma(Forma: TForm);
procedure MinimizarAplicacion;
procedure FinalizarAplicacion;

implementation

procedure Mostrar(Forma: TForm;Value:Boolean;PosX,PosY:integer);
var Ban: Boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban
   then begin
        with Forma do
          begin
          Left := PosX;
          Top := PosY;
          Visible := Value;
          end;
        end;
end;

procedure ExpandirForma(Forma:TForm;Ancho,Largo:integer);
var Ban: boolean;
begin
ban := FormaCreada(Forma.Name);
if Ban then begin
            with Forma do
              begin
              Height:= Largo;
              Width:= Ancho;
              end;
            end;
end;

function FormaCreada(Nombre: string): boolean;
var Ban: boolean;
    i: integer;
begin
Ban := False;
i := 0;
while (Ban = False) and (i<= Screen.FormCount-1) do
  begin
  if Screen.Forms[i].Name = Nombre
    then ban := True
    else Inc(i,1);
  end;
Result := Ban;
end;

procedure DestruirForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban
   then Forma.Destroy;
end;

procedure MinimizarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
            with Forma do
            WindowState := wsMinimized;
            end;
end;

procedure MaximizarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
            with Forma do
            WindowState := wsMaximized;
            end;
end;

procedure RestaurarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
            with Forma do
            WindowState := wsNormal;
            end;
end;

procedure MinimizarAplicacion;
begin
Application.Minimize;
end;

procedure FinalizarAplicacion;
begin
Application.Terminate;
end;

end.

Saludos,