Delphi - Problema de principiantes

   
Vista:

Problema de principiantes

Publicado por Diego Gutierrez (15 intervenciones) el 14/11/2007 16:40:27
No se que tan de principiantes sea, sucede que yo tengo el siguiente codigo de ejemplo:

unit: inventos;

interface
type
TPatito=class;
procedure hasAlgoConElPato;
end;

type
TGallina=class:
procedure intentaVolar;
end;

implementacion
procedure TPatito.hasAlgoConElPato;
var
--> unaGallina: TGallina;
begin
unaGallina:=TGallina.create(nil);
showMessage('Hice algo');
unaGallina.intentaVolar;
end;

prodecure TGallina.intentaVolar;
begin
showMessage('EstoyVolando');
end;

end.

Y me marca error al en donde puse el --> y dice que EResNotFound with message 'Resource TGallina not found' en runtime, pero cuando compila no me marca ningun error, y no tengo ni idea de como corregirlo sin poner TGallina en otra unit
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema de principiantes

Publicado por E.T. (1108 intervenciones) el 14/11/2007 18:17:30
No se como quieres llamar al "TPatito" pero logré lo siguiente

*****************El siguiente codigo pertenece a la unidad 1 donde hay una forma
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses unit2;

{$R *.dfm}

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

end.

**********************El siguiente codigo va en la unit2, para ti unit Inventos
unit Unit2;

interface
uses messages, dialogs;

procedure llamaAlPato;

implementation

type
TPatito=class
procedure hasAlgoConElPato;
end;

type
TGallina=class
procedure intentaVolar;
end;

procedure TPatito.hasAlgoConElPato;
var
unaGallina: TGallina;
begin
unaGallina:=TGallina.create();
showMessage('Hice algo');
unaGallina.intentaVolar;
end;

procedure TGallina.intentaVolar;
begin
showMessage('Estoy Volando');
end;

procedure llamaAlPato;
var pato:TPatito;
begin
pato.hasAlgoConElPato;
end;

end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar