Moin moin (?) zusammen,

ich möchte in einem Thread das Sortieren eines Arrays auslagern. Der Kopf sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure bubblesort(var a:array of integer);stdcall;
var
  i,j,tmp:integer;
begin
  for i := high(a) downto low(a)+1 do
    for j := low(a) to i-1 do
      if a[j]<a[j+1] then
      begin
        tmp:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=tmp;
      end;
end;

Der Thread wird so erstellt (a1 ist hier ein Array of Integer):
createthread(nil,0,@bubblesort,a1,0,threadid) Der Thread wird sofort nach dem erstellen wieder beendet, ohne Fehlermeldung allerdings. Das sortieren eines Arrays mit 65.000 Elementen mit Bubblesort geht mit sicherheit nicht in einem Augenblick. An dem Array a1 hat sich auch nichts getan. Was mache ich denn hier falsch?

Gruß,
Frank.

Das kann ein Speichermanagerproblem sein. Von daher nutze lieber BeginThread() und EndThread(). Damit wird auch die MultiThread-Kompatibilität beim Speichermanager gewährleistet.

Durch BeginThread bekomme ich nun einen EOS Error mit Code 5 'Zugriff Verweigert'. Nebenbei habe ich das Array im Primärthread gelesen, AFAIR ist das nicht möglich. Wie kann ich dies denn nun bewerkstelligen?

Zitat von rawsoul:

Durch BeginThread bekomme ich nun einen EOS Error mit Code 5 'Zugriff Verweigert'.

Dann solltest du diesen Fehler suchen und beheben. Wie schon gesagt wurde, der Wrapper BeginThread macht den Heap threadsafe, in dem er die globale Variable IsMultithreaded setzt.

Zitat von rawsoul:

Durch BeginThread bekomme ich nun einen EOS Error mit Code 5 'Zugriff Verweigert'. Nebenbei habe ich das Array im Primärthread gelesen, AFAIR ist das nicht möglich. Wie kann ich dies denn nun bewerkstelligen?

Wenn du BeginThread benutzt musst du das stdcall; weglassen

Gruß
Neutral General

noch ein kleiner hnweis auf die von borland mitgelieferten demos,
die man unter C:\Programme\Borland\Delphi7\Demos findet.

C:\Programme\Borland\Delphi7\Demos\Threads --> dürfte hilfreich sein