Threads Parameter

[Sunlight7]

Lösung:

Delphi-Quellcode:

type
  PParamRecord = ^TParamRecord;
  TParamRecord = packed record
    Nr : Integer;
  end;

var Params:PParamRecord; // Siehe Begründung von Basilikum

function StarThread(Paramter: Pointer): Integer;
begin
  Params:=@Paramter^;
  Case Params.Nr of
    1..50: Juchu!
    else Schluchz
  end;
end;

Edit: Mal ne dumme Frage: Für was braucht man 50 Threads?