Introducción Lenguaje de programación que se creó con el propósito de agilizar la creación de software basándolo en una programación visual. En el Delphi se utiliza una versión más actual del Pascal conocida como Object Pascal como lenguaje de programación.
Recomendaciones Programar bien. Ordenar bien los procedimientos.
Conclusiones • Cualquiera de sus versiones se puede programar DLLs.
• En Delphi podemos programar directamente los componentes visuales e incluso crear nuevos controles que hereden características de los ya existentes.
• También podemos utilizar en el Delphi componentes visuales de otros lenguajes de programación.
simulacion
Marco Teórico Antes conocido como CodeGear Delphi, Inprise Delphi y Borland Delphi, es un entorno de desarrollo de software diseñado para la programación de propósito general con énfasis en la programación visual. En Delphi se utiliza como lenguaje de programación una versión moderna de Pascal llamada Object Pascal.
procedure TForm1.Button2Click(Sender: TObject); begin if bandera=true then begin ostream.write(ord(43)); // envia el caracter '+' = #4 button1.TintColor:=0; close(); end else begin button1.TintColor:=0; close(); // cierra la aplicacion end; end;
procedure TForm1.FormCreate(Sender: TObject); begin bandera:=false; end;
procedure TForm1.Timer1Timer(Sender: TObject); var len,input:integer; buffer:TJavaArray<byte>; begin len:=istream.available; if len=0 then exit; buffer:=TJavaArray<byte>.create(len); istream.read(buffer,0,len); A:=IntToBin(buffer[len-1],8); N:=LENGTH(A);
if A[N-1]='1' then BEGIN RECTANGLE1.Fill.Color:=$FFF90000; END ELSE BEGIN RECTANGLE1.Fill.Color:=0; END;
if A[N-2]='1' then BEGIN RECTANGLE2.Fill.Color:=$FFF90000; END ELSE BEGIN RECTANGLE2.Fill.Color:=0; END;
if A[N-3]='1' then BEGIN RECTANGLE3.Fill.Color:=$FFF90000; END ELSE BEGIN RECTANGLE3.Fill.Color:=0; END;
if A[N-4]='1' then BEGIN RECTANGLE4.Fill.Color:=$FFF90000; END ELSE BEGIN RECTANGLE4.Fill.Color:=0; END;
if A[N-5]='1' then BEGIN RECTANGLE5.Fill.Color:=$FFF90000; END ELSE BEGIN RECTANGLE5.Fill.Color:=0; END;
if A[N-6]='1' then BEGIN RECTANGLE6.Fill.Color:=$FFF90000; END ELSE BEGIN RECTANGLE6.Fill.Color:=0; END;
if A[N-7]='1' then BEGIN RECTANGLE7.Fill.Color:=$FFF90000; END ELSE BEGIN RECTANGLE7.Fill.Color:=0; END;
if A[N-8]='1' then BEGIN RECTANGLE8.Fill.Color:=$FFF90000; END ELSE BEGIN RECTANGLE8.Fill.Color:=0; END;
case buffer[len-1] of 255:BEGIN //#85='U' RECTANGLE12.Fill.Color:=$FF013BD5; END; end;