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