Codigo sin utilidad

[[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,

[Julián]

Este si que es inutil:

http://www.clubdelphi.com/trucos/index.php?id=134

[ixMike]

Bueno, este sí que tiene su utilidad, siempre y cuando no conozcas (como me pasaba a mí cuando lo escribí) el ForceDirectories que incluye Delphi

Código Delphi [-]
 
procedure MyMakeDir(Dir: string);
begin
If not DirectoryExists(ExtractFileDir(Dir)) then
 MyMakeDir(ExtractFileDir(Dir));
MkDir(Dir);
end;

Este es uno de los muchos procedimientos que creé sin saber que ya existían. Este al menos se quedó bien.

[Casimiro Noteví]

También tienes "CreateDir"

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\temp') then
    if not CreateDir('C:\temp') then
    raise Exception.Create('Cannot create c:\temp');
end;

[d-hugo]

Otro para la colección, aunque para ser franco, he usado este principio indirectamente para otras cosas (por increíble que parezca):

Código Delphi [-]
program sandez;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  s = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i, j, k: byte;
  stmp: string;
begin
  stmp := s;
  j := length(s);
  Randomize;
  for k := 1 to 12 do
  begin
    for i := 1 to j do stmp[i] := s[random(j)];
    writeln(stmp);
  end;
end.

PD. Pero la verdad que hay que reconocer que va a ser difícil ganarle al Brainfucker, está impresionante.