Ver Mensaje Individual
  #2  
Antiguo 22-04-2009
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Reputación: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Código Delphi [-]
function TForm1.Transmitir(Mensaje:String): boolean;
var Puerto, I :integer;
    Num:byte;
    {no es necesario
    Dato:String;}
    ModeCB;
begin
...
    for i:=0 to length(Mensaje)do begin
      {no es necesario
      Dato:=Copy(Mensaje,i,1);}
      num:= Ord(Mensaje[i]);
...
Responder Con Cita