Nuevos procedimientos!

[klaar]

Necesito Ayuda!!

ola a todos

soy un principiante en delphi estoy desarrollando un juego. como tengo de repetir muchas veces trozos de codigo he pensado que
seria mas facil hacer prodedimentos. pero no he encontrado en ningun lugar como crear procedimientos propios.
si alguien tiene tiempo de contestarme le agradeceria la ayuda.

----------

[marcoszorrilla]

Código Delphi [-]
  StdCtrls;
  Procedure Cambia_Color_Letras();
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Cambia_Color_Letras();
end;

Procedure Cambia_Color_Letras();
begin
Form1.label1.Font.Color:=clRed;
end;
end.

Si los procedimientos los vas a utilizar en varios formularios tendras que hacer un "Use" en cada uno de ellos para referencia en el que se que encuentra el procedimiento.

Un Saludo.

[klaar]

muchas gracias tio,
lo provare cuando pueda

[Ñuño Martínez]

Como veo que eres novato, te recomendaré que te bajes Allegro.pas (mira el enlace algo más abajo). En él encontrarás ejemplos de cómo dividir un programa en procedimientos y funciones, además de ofrecerte una buena base para crear juegos.

De nada

[klaar]

Gracias a los dos.
cuando termine el juego lo subire. Ahora lo he intentado pero no me deja. pone <'Invalid file'>. Sabeis porque pasa esto?
Si alguien sabe como subir archivos le agradeceria que me lo explicara.
un saludo.
klaar

[dec]

Hola,

¿Te refieres a subir el archivo a estos mismos Foros? Ten en cuenta que existe una limitación de espacio. Si necesitas que esté disponible por aquí puedes utilizar algún servicio gratuito de almacenamiento "online". O bien puedes enviarme el archivo a: davidesperalta (ARROBA) gmail.com

De ese modo podría yo subirlo a cierto espacio en el ClubDelphi y a continuación enlazarlo en este mismo Hilo.

Claro que no sé si te refieres a esto o a otra cosa...