Codigo sin utilidad

[[ArdiIIa]]

Empezado por egostar

todos son inutiles....
Saludos.

No importa si se venden bien...

[[egostar]]

Empezado por ArdiIIa

No importa si se venden bien...

Tienes razón, mejor los seguire vendiendo.

Saludos

[mamcx]

Bueno, mi aporte.

Una version mejorada del mitico primer programa:

Código Delphi [-]
 ShowMessage('Hello Universe');

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

[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 Notevi]

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.

[ContraVeneno]

SQL para determinar si es palíndromo:

Código SQL [-]
Declare @Str varchar(60)
--Select @str='Anita lava la tina'
Select @str='Ana lleva al oso la avellana'

Select
case when reverse(substring(replace(@str, ' ',''),(len(replace(@str, ' ',''))/2)+2,(len(replace(@str, ' ',''))/2)+1))=substring(replace(@str, ' ',''),1,(len(replace(@str, ' ',''))/2)) then 1 else 0 end EsPali

[[fer21unmsm]]

Hola compañeros acá les dejo mi aporte:

El siguiente procedure que hice es para ejecutar aplicaciones sin tener permisos de administrador, lo pongo porque ahorita no me sirve

Código Delphi [-]
procedure EjecutarRA(stUserDomain, stProg, stParam: String);
begin
   WinExec(PChar('runas /user:'+ stUserDomain+' '+chr(34)+stProg+ ' '+ stParam+chr(34)),SW_SHOWNORMAL);
end;

Tal vez a alguien no le sirva

[Casimiro Notevi]

Empezado por fer21unmsm

[..] ejecutar aplicaciones sin tener permisos de administrador[..]

¿Que se puede ejecutar programas como administrador, sin ser administrador?

Pues le veo muuucha utilidad

[MaMu]

Este código es completamente útil para cuando me pica la espalda o cuando tengo una fuerte comezón sentado en la computadora

Código Delphi [-]
procedure rascame(ParteDelCuerpo:TBody,Intensidad:integer,Tiempo:TTime);
var QueMano:TBody;
     MePica:boolean;
begin
  MePica:=True;
  QueMano:=Tbody.Create;
  QueMano.Assign(ParteDelCuerpo);
  While MePica=True 
      then begin
          With ParteDelCuerpo do
               Lapsus:=Tiempo;
               Fuerza:=Intensidad;
          end;
          Try 
            QueMano.Rascame;
          except
            QueMano.Message(10,10,'Eres manco!!! no puedo rascarte'); 
          finally
            QueMano.YaPaso;
            MePica.Status:=False;
         end;
  QueMano:= nil;
 ParteDelCuerpo.Free; 
end;

Juaz

[mamcx]

Empezado por Casimiro Notevi

¿Que se puede ejecutar programas como administrador, sin ser administrador?

Pues le veo muuucha utilidad

Obvio!.

De hecho, en este momento estoy bajo una cuenta limitada y cuando necesito hacer una "maraña" de administrador:

%windir%\system32\runas.exe /user:*****\Administrator "%SystemRoot%\explorer.exe /e, c:\"

[Casimiro Notevi]

Empezado por mamcx

Obvio!.

De hecho, en este momento estoy bajo una cuenta limitada y cuando necesito hacer una "maraña" de administrador:

%windir%\system32\runas.exe /user:*****\Administrator "%SystemRoot%\explorer.exe /e, c:\"

Curioso, es algo parecido a "sudo" en linux