Code:
type TPrintAntrag=class(TThread)
constructor create(s: array of string);
protected
procedure execute; override;
private
[b] Fs: array[0..100] of string; [/b]
end;
constructor TPrintAntrag.create(s: [b]array of string[/b]);
begin
Fs:=s; // [color=red]FS ist Array[0.100] of String - s ist Array of String[/color]
Freeonterminate:=true;
inherited create(false);
end;
Edit: Der Union drängelt sich immer vor
Stephan B.
"Lasst den Gänsen ihre Füßchen"