Hallo

Ich habe ein Programm geschrieben, welches die Harmonische Reihe bis zu einem bestimmten Wert berechnet. Die Berechnung wird in einem Thread ausgeführt. Das berechnen und ausgeben klappt auch prima, jedoch wenn ich das Programm beende kommt eine Fehlermeldung: "Zugriffsverletzung"

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyThreads = class(TThread)
  private
    procedure UpDate;
  protected
    procedure Execute; override;
  public
    Ergebnis: Real;
    Zaehl, Reps : Integer;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    ProgressBar1: TProgressBar;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
    ThreadArray: array of TMyThreads;
  public
    { Public-Deklarationen }
procedure Update(Durchlauf,Reps : Integer; Ergebn: Real);
  end;

var
  Form1: TForm1;
  Reps : Integer;
  StartZeit : TTime;
  Prozent : Real;

implementation

{$R *.dfm}

procedure TMyThreads.Execute;
var
  Loop : Integer;
begin
  for Loop := 1 to Reps do
  begin
    Ergebnis := Ergebnis + 1/Loop;
    Zaehl := Loop;
    Synchronize(Update);
  end;
  Application.MessageBox('Fertig!','Info', 0+64);
  Destroy;
end;

procedure TMyThreads.UpDate;
begin
  Form1.Update(Zaehl, Reps, Ergebnis);
end;

procedure TForm1.Update(Durchlauf,Reps : Integer; Ergebn: Real);
var aktZeit, GesZeit : TTime;
begin
  Memo1.Lines.Add(FloatToStr(Ergebn));
  Label1.Caption := 'Durchlauf: ' + IntToStr(Durchlauf);
  ProgressBAr1.Position := Durchlauf;
  aktZeit := Now;
  GesZeit := aktZeit-StartZeit;
  Label2.Caption := TimeToStr(geszeit);
  Prozent := 100 / (Reps / Durchlauf);
  Label3.Caption := FormatFloat('0%',Prozent);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StartZeit := Now;
Reps := StrToInt(Edit1.Text);
ProgressBar1.Max := Reps;
  Setlength(ThreadArray, 1);

    ThreadArray[1] := TMyThreads.Create(True);
    ThreadArray[1].Ergebnis := 0;
    ThreadArray[1].Reps := Reps;

    ThreadArray[1].Resume;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ThreadArray[1].Suspended then
  ThreadArray[1].Resume
else
  ThreadArray[1].Suspend;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.DoubleBuffered := true;
Form1.Doublebuffered := true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//ThreadArray[0].Terminate;
end;

end.

Ich denke es liegt an der Art wie der Thread beendet wird.

Ich häng den kompletten Delphi-Source mal mit an, vielleicht hilfts ja.

Johannes

Hi,
dynamische Array sind null-indiziert. Wenn du mit
setLength(dynArray, 1); ein Array erzeugst, solltest du also nur auf Feld dynArray[0] zugreifen, dynArray[1] ist einfach mal irgendeine Stelle im Speicher deines Programms, die du tunlichst nicht überschreiben solltest.

Gruß Der Unwissende

hallo

das war ja mal ein dummer Fehler den ich gemacht hab! Danke! Jetzt funktionierts einwandfrei

Aber ein Problem hab ich noch, und zwar: wenn ich auf den Button "Beenden" klicke, wird der Thread nicht beendet. Die Zeitmessung bleibt stehen, aber im Memo werden immernoch die aktuell errechneten Werte dargestellt.

Gruß
Johannes

Obwohl es wohl naheliegend ist, dass ich jetzt dein Programm errate, greif doch besser auf die etwas konservativere Methode zurück und poste deinen Code.
Ich meine gut, du drückst einen Beenden button, ok, nur den gibt's in der geposteten Variante gar nicht. Da gibt es Button1, 2 und 3 und letzterer macht noch überhaupt nichts.

ups...

ok, hier der code vom Button:

markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
if not ThreadArray[0].Terminated then
  ThreadArray[0].Destroy;
end;

Ich habs mit und ohne die if-Abfrage probiert, leider beides mal ohne erfolg

wäre

Threadarray[0].Terminate; nicht der richtige aufruf.

ps : freeOnTerminate := true; nicht vergessen ^^

wie pacman1986 bereits geschrieben hat solltest du entweder "Terminate" verwenden.
Denn Terminated ist ein Property vom Typ Boolean welches einfach zurück gibt ob der Thread Terminated ist oder nicht.

Für Terminate gilt aber, dass es auch nur die Eigenschaft terminated deines Threads setzt. Du solltest also eine Abfrage vorsehen, die prüft ob dein Thread beendet werden soll. Dazu eignet sich natürlich immer eine Schleife, wobei du geschickt wählen kannst, wie oft (z.B. je nach Tiefe bei verschachtelten Schleifen) du dieses Flag prüfst.
Wichtig ist halt, dass auch deinem Thread die Chance gegeben werden soll / muss, dass er sauber beendet werden kann. Würdest du einfach nur den Thread killen, könnte das doch ein wenig negative Folgen haben (dann würdest du dir so ein Flag wünschen...)