Exception-Klasse >>External:SIGSEGV<< bei Timer

[heel213]

Moin,
ich will einen Timer in meinem "Programm" einfügen, bekomme nach dem Kompilieren allerdings immer eine Fehlermeldung, wenn das Programm starten will.
Ich bitte um Hilfe, vielen Dank.
An der fett markierten Stelle wird der Fehler angezeigt.

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    ScrollBar3: TScrollBar;
    ScrollBar4: TScrollBar;
    ScrollBar5: TScrollBar;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);

    procedure ScrollBar2Change(Sender: TObject);

    procedure ScrollBar3Change(Sender: TObject);

    procedure ScrollBar4Change(Sender: TObject);

    procedure ScrollBar5Change(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  timer1: ttimer;
  Einwohner : UInt64;
  Zusammenrechnung, i: Integer;
  Stein,Nahrung,Luxusgueter,Gold,Goldproduktion, Nahrungproduktion, Steinproduktion, Holzproduktion, Luxusgueterproduktion : real;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
   Label8.caption:=inttostr(Scrollbar1.position);
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
    Label9.caption:=inttostr(scrollbar2.position);
end;

procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
   label10.caption:=inttostr(scrollbar3.position);
end;


procedure TForm1.ScrollBar4Change(Sender: TObject);
begin
   label11.caption:=inttostr(scrollbar4.position);
end;

procedure TForm1.ScrollBar5Change(Sender: TObject);
begin
    label12.caption:=inttostr(scrollbar5.position);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Zusammenrechnung:=Scrollbar1.position+Scrollbar2.position+Scrollbar3.position+
  scrollbar4.position+scrollbar5.position;
   If Zusammenrechnung=100 then
  begin
    label6.Visible:=false;
    label7.visible:=false;
    Goldproduktion:=(scrollbar1.position/100)*Einwohner;
    Nahrungproduktion:=(scrollbar2.position/100)*Einwohner;
    Steinproduktion:=(scrollbar3.position/100)*Einwohner;
    Holzproduktion:=(scrollbar4.position/100)*Einwohner;
    Luxusgueterproduktion:=(scrollbar5.position/100)*Einwohner;
  end
  else
  begin
    if Zusammenrechnung<100 then
    begin
      label7.visible:=true;
      label6.visible:=false;
      end
    else
    begin
      label6.visible:=true;
      label7.visible:=false;
      end;
end;
  label18.caption:='Momentane Produktion: Stein='+floattostr(Steinproduktion)+'/s Luxusgüter='+floattostr(Luxusgueterproduktion)+'/s Nahrung='+floattostr(Nahrungproduktion)+'/s Gold='+floattostr(Goldproduktion)+'/s';
  repeat
      begin
      timer1.enabled:=true;
      Luxusgueter:=Luxusgueter+Luxusgueterproduktion;
      Stein:=Stein+Steinproduktion;
      Nahrung:=Nahrung+Nahrungproduktion;
      Gold:=Gold+Goldproduktion;
      i:=i+1;
      end;
  until i=100;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin[B]
  timer1.Interval:=100;[/B]
  i:=1;
  label6.visible:=false;
  label7.visible:=false;
  Einwohner:=5000;
  end;
end.

end.

http://www.fotos-hochladen.net/uploa...c784gbp5lo.png

[DeddyH]

timer1 ist nicht als Feld Deines Formulars deklariert, sondern als globale Variable und wird somit nicht automatisch erzeugt. Hat das einen Grund, dass Du den Timer nicht einfach aufs Formular packst?

[a.def]

Zitat:

Zitat von DeddyH (Beitrag 1359722)

timer1 ist nicht als Feld Deines Formulars deklariert, sondern als globale Variable und wird somit nicht automatisch erzeugt. Hat das einen Grund, dass Du den Timer nicht einfach aufs Formular packst?

Genau so einen Fehler hat wohl auch dein Kollege gemacht. Der hat auch einfach eine PaintBox global deklariert. Zusätzlich aber noch das Control auf das Formular gepackt.
http://www.delphipraxis.net/191492-f...l-sigsegv.html

[heel213]

Zitat:

Zitat von DeddyH (Beitrag 1359722)

timer1 ist nicht als Feld Deines Formulars deklariert, sondern als globale Variable und wird somit nicht automatisch erzeugt. Hat das einen Grund, dass Du den Timer nicht einfach aufs Formular packst?

Vielen Dank erstmal!
Entschuldige bitte, aber ich bin ein totaler Anfänger und verwende Lazarus im Rahmen eines Schulprojekts. Meine Frage ist, was du mit dem Feld des Formulares meinst, wie genau soll ich die Variable also deklarieren? Meinst du mit Feld ein Array oder meinst du, dass ich es nicht Global sondern in der implementation deklarieren soll?
Entschuldige bitte, wenn die Antwort offensichtlich ist. :)

[a.def]

Hat Lazurus nicht eine Komponentenpalette? Wenn ja schnapp dir den TTimer und zieh ihn auf dein Formular. Dann ist alles erledigt.

[Luckie]

Bitte benutze beim nächsten mal Code-Tags. Und Bilder kannst du auch hier anhängen, dann besteht nicht die Gefahr, dass der Link ungültig wird und der Beitrag eventuell nutzlos.

[DeddyH]

Oder besser noch Delphi-Tags (dieser "Griechen-Helm" im Beitragseditor), wenn es sich um Pascal-Code handelt ;)

[heel213]

Ayy, wird gemacht :)
DeddyH, könntest du bitte noch kurz auf meine erste Antwort eingehen? Ich probiere es mal mit der Komponentenpalette, würde aber gerne trotzdem verstehen, wie ich das richtig deklariere, wenn ich es mal wieder brauche.
mfg der heelischste

[hoika]

Hallo,
ziehst du den Timer aus der Palette auf das Formular,
wird der Timer beim Erzeugen des Forms automatisch erzeugt
und später auch wieder freigegeben.

[a.def]

Zitat:

Zitat von heel213 (Beitrag 1359765)

Ayy, wird gemacht :)
DeddyH, könntest du bitte noch kurz auf meine erste Antwort eingehen? Ich probiere es mal mit der Komponentenpalette, würde aber gerne trotzdem verstehen, wie ich das richtig deklariere, wenn ich es mal wieder brauche.
mfg der heelischste

Ich bin zwar nicht gefragt aber...
richtig "deklariert" hast du es ja. Aber man muss das Objekt (den Timer in diesem Falle) dann auch erzeugen und später wieder freigeben.

Delphi-Quellcode:

// irgendwo deklarieren (z.B. da wo du es getan hast [sollte man aber nicht sondern besser oben im private-Bereich])
Timer1: TTimer;

// Timer "erzeugen" (z.B. FormCreate)
Timer1 := TTimer.Create;

// Timer freigeben (z.B. FormDestroy)
Timer1.Free;

Wenn du den Timer aus der Komponentenpalette ziehst brauchst du dich um keines der drei oben genannten Dinge zu kümmern.

[DeddyH]

Delphi-Quellcode:

type
  TDeinForm = class(TForm)
    Timer1: TTimer;
    (* weitere Felder und Methoden *)
  end;

So ist Timer1 ein Feld der Klasse TDeinForm. Zieht man ihn aus der Komponentenpalette auf das Formular, wird er automatisch erzeugt und seine Ereignishandler gemäß den Einstellungen im Objektinspektor zugewiesen.

Delphi-Quellcode:

var
  Timer1: TTimer;

So ist es eine selbst deklarierte Variable. Das geht auch, allerdings muss man sich um alles selbst kümmern: Erzeugen, Konfigurieren, Freigeben und Zuweisen der Ereignishandler.

[heel213]

Alles klar, jetzt gehts.
Vielen Dank an alle! :)

[himitsu]

"Variable global nochmal deklariert"

Das hatten wir vor Kurzem schonmal.
Da könnte man sich langsam fragen:
* Kennen die sich, bzw. haben die den selben Lehrer
* Und wer bringt ihnen sowas immer wieder bei?

[a.def]

Vielleicht denkt der Lehrer (:idea:), dass das "Drauf-pappen" einer Komponente auf das Formular "deklarieren" genannt wird und sagt daher "deklariert einen Timer".
Was machen die Schüler? Sie deklarieren einen Timer alá Timer: TTimer; was dann ja korrekt wäre.

[heel213]

Also wir haben das als Deklarieren kennengelernt.

[a.def]

Nenn es "Drauf-pappen", das wäre richtig-er :P
Deklarieren ist meiner Meinung nach was vollkommen anderes.

[himitsu]

Diese Felder in der Form wurden ja beim "Draufpappen" deklariert ... nur halt automatisch vom Form-Designer.

[a.def]

Da hast du recht. Nur darf man das "Draufpappen" => "deklarieren" nennen? Damit sorgt man ja ganz offensichtlich bei gleich mehreren Personen für Probleme.