Codigo sin utilidad

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

[[seoane]]

Excelente, otro que se anima