Delphi-Quellcode:
function DemoThread(p: Pointer): Integer;
var
i: Integer;
ParentHandle: THandle;
begin
ParentHandle := PThreadParams(p)^.ParentHandle;
for i := 0 to 9 do
begin
if Abort then
begin
SendMessage(ParentHandle, CM_ABORT, 0 , 0);
Break;
end;
SendMessage(ParentHandle, CM_STATUS, Integer(PChar('Durchlauf:')), i);
Sleep(500);
if i = 9 then SendMessage(ParentHandle, CM_FINISHED, 0, 0);
end;
Dispose(p);
Result := 0;
end;
Delphi-Quellcode:
function DemoThread(p: Pointer): Integer;
var
i: Integer;
ParentHandle: THandle;
begin
ParentHandle := PThreadParams(p)^.ParentHandle;
i := 0
while (i <= 9) and not Abort do
begin
SendMessage(ParentHandle, CM_STATUS, LPARAM(PChar('Durchlauf:')), i);
Sleep(500);
Inc(i);
end;
if i > 9 then
SendMessage(ParentHandle, CM_FINISHED, 0, 0)
else SendMessage(ParentHandle, CM_ABORT, 0 , 0);
Dispose(p);
Result := 0;
end;
Wobei bei Sowas das Try-Finally, bezüglich des der Speicherfeigabe, sowieso in irgendeiner Weise zu bevorzugen ist.
Delphi-Quellcode:
function DemoThread(p: Pointer): Integer;
var
i: Integer;
ParentHandle: THandle;
begin
try
ParentHandle := PThreadParams(p)^.ParentHandle;
i := 0
while (i <= 9) and not Abort do
begin
SendMessage(ParentHandle, CM_STATUS, LPARAM(PChar('Durchlauf:')), i);
Sleep(500);
Inc(i);
end;
if i > 9 then
SendMessage(ParentHandle, CM_FINISHED, 0, 0)
else SendMessage(ParentHandle, CM_ABORT, 0 , 0);
finally
Dispose(p);
end;
Result := 0;
end;
Abgesehn davon ist der Quatsch mit dem 32-Bit-Integer in 64 Bt hier egal, denn selbst wenn man hier den Pointer ordnungsgemäß in einen 64-Bit-Intreger (in einem 64-Bit-Compiler) umwandelt, dann muß man eh erstmal abgleichen ob dort SendMessage auch 64-Bit-Parameter hat ... also denke ich mal, daß man dort auch gleich den Typen des Parameters nutzen kann.
Und ja, ich finde auch, daß es an einigen Stellen einfach
einfacher mit GOTO lösbar ist.
PS: ein Break, While, For, Case und vieles Anderes besteht intern quasi auch nur ein ein paar IFs+GOTO.
