fehlermeldung - programm retten..!!!

[a.def]

Hast du irgendetwas von irgendwoher kopiert und eingefügt?

[SebastianZ]

Was steht denn in der USunTimes.pas im interface-teil?

[a.def]

Zitat von SebastianZ:

Was steht denn in der USunTimes.pas im interface-teil?

Muss es doch gar nicht Dateiname und Form-Instanz-Name sind zwei verschiedene Dinge.
Eine Unit kann uMain heißen aber die Form-Instanz Form1.

Bei ihm hier heißt die Unit wohl USunTimes.pas, die Instanz aber Form1.

[SebastianZ]

Zitat von a.def:

Zitat von SebastianZ:

Was steht denn in der USunTimes.pas im interface-teil?

Muss es doch gar nicht Dateiname und Form-Instanz-Name sind zwei verschiedene Dinge.
Eine Unit kann uMain heißen aber die Form-Instanz Form1.

Bei ihm hier heißt die Unit wohl USunTimes.pas, die Instanz aber Form1.

Das ist mir schon klar, aber mit dem Interface-Teil sieht man sofort wo das Problem liegt....

[a.def]

Zitat:

Das ist mir schon klar, aber mit dem Interface-Teil sieht man sofort wo das Problem liegt....

Sehe ich irgendwie nicht.

Delphi-Quellcode:

program PSunTimes;

uses
  Vcl.Forms,
  USunTimes in 'USunTimes.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1,Form1);
  Application.Run;
end

Mehr können wir noch gar nicht sagen, da uns der wichtige Teile (die Unit selber) ja fehlt.

[nahpets]

Poste bitte mal die USunTimes.pas oder hänge das ganze Projekt als ZIP an Deinen Beitrag an.

[ann]

ok leute, ich hab den fehler gefunden:

bei mir sah das irgendwo am anfang des quelltextes so aus:

Delphi-Quellcode:

...

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

{$R *.dfm}


var
  Form1: TForm1;
  IdHTTP: TIdHTTP;
  ZeitAufgang_Std, ZeitAufgang_Min, ZeitUntergang_Std,
    ZeitUntergang_Min: Integer;
  Sprache: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ...

weil ich dachte var ist var egal ob das jetzt vor implementation steht oder nicht und ich es deshalb zusammengepackt habe.

und jetzt läuft es wieder weil ich das wieder so gemacht hab:

Delphi-Quellcode:

...
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


var
  IdHTTP: TIdHTTP;
  ZeitAufgang_Std, ZeitAufgang_Min, ZeitUntergang_Std,
    ZeitUntergang_Min: Integer;
  Sprache: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
...