Moin moin (?) zusammen,
ich möchte in einem Thread das Sortieren eines Arrays auslagern. Der Kopf sieht so aus:
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.