Codigo sin utilidad

[DTAR]

Código Delphi [-]
Begin      
      ShowMessage('Hello World '); 
end;

Perdon, era muy tentador hacer esto....
Muy buena la idea loco...

[[ArdiIIa]]

Empezado por DTAR

Código Delphi [-]
Begin      
      ShowMessage('Hello World '); 
end;

Perdon, era muy tentador hacer esto....
Muy buena la idea loco...

Lo siento, pero esto me produce un error...
Project1 ya existe... alguna solución.. ?

[[egostar]]

Vaya pues, he querido participar en este hilo pero me he encontrado con un detalle, necesito espacio para postear todos mis proyectos, todos son inutiles....

Saludos.

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

[Khronos]

Hola, esta weno este hilo. Me gustaria poner mi granito de arena aunque no sea nada en comparacion con el code de seoane
Con esta funcion puedes generar contraseñas con signos, letras, numeros..
No le veo utilidad ninguna pero a lo mejor les sirve:

Código Delphi [-]
function RandomWord(cifras: integer): string;
const
letras= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; //tambien valen numeros, signos ...
   var
   i, u: integer;
  begin
   Randomize;
   for u:=1 to cifras do begin
     i:=Random(Length(Letras)) + 1;
    result:=result + Letras[i];
    end;
  end;

Para llamar a la funciona es sencillo:

Código Delphi [-]
showmessage(RandomWord(8)); //y te devuelve ocho letras

Salu2

[[ArdiIIa]]

seoane, con relación al ejemplo44, te comenté (aunque ahora no consta) que había cambiado el parámetro strUrl a 33, por aquello del consuelo.

A día de hoy, he vuelto a restablecer dicho parámetro tal cual estaba...

[[seoane]]

Empezado por ArdiIIa

seoane, con relación al ejemplo44, te comenté (aunque ahora no consta) que había cambiado el parámetro strUrl a 33, por aquello del consuelo.

A día de hoy, he vuelto a restablecer dicho parámetro tal cual estaba...

Como ya dije, no se consuela el que no quiere. Felicidades por tu nueva posición.

De todas formas, creo que roman lo tiene puesto a 1

[Enan0]

Bueno Mi codigo Inutil.

por las estadisticas de visitas.. "el TA-TE-TI" que esta agregado en el hilo el Juego del X y O, ya que ha tenido la gran suma de!!! 0 visitas
jaja Bueno saludos (no lo agrego) ya que no quiero saturar el server con basura

[Neftali [Germán.Estévez]]

Empezado por Enan0

...ya que ha tenido la gran suma de!!! 0 visitas

Pues debe estar el contador mal, como mínimo debería haber 1; Yo me lo descargué...

[Enan0]

Empezado por Neftali

Pues debe estar el contador mal, como mínimo debería haber 1; Yo me lo descargué...

Ha bueno me quedo mas Tranquilo entonces. jeje
yo ya pensaba quera el maxime de los inservibles!! jejeje

saludos. (pretendo hacerle algunos cambios, ya se los comentare) porque requieren de PHP y por ahora voy a tener que estudiar