Как передать параметр в поток?

[Pack]

Как передать параметр типа string в поток? глобальные переменные - не вариант.

допустим есть код, нужно из beginthread передать текст в процедуру msg.

procedure msg(mtext: string);
begin
showmessage(mtext);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
beginthread(nil, 0, @msg, 'text', nil, 0);
end;

но так ничего не получается. заранее спасибо

[rpy3uH]

открывает делфийскую справку вводим название функции beginthread, и смотрим что написано

function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord; ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord; var ThreadId: LongWord): Integer;

Parameter points to a single 32-bit parameter that is passed, uninterpreted, to ThreadFunc.

ключевое слово - uninterpreted

procedure msg(mtext: string);
begin
showmessage(mtext);
end;

var
  str:string = 'текст';

procedure TForm1.Button1Click(Sender: TObject);
begin
beginthread(nil, 0, @msg, pointer(str), nil, 0);
end;

либо так

procedure msg(mtext: string);
begin
showmessage(mtext);
end;

var
  str:array = 'текст';

procedure TForm1.Button1Click(Sender: TObject);
begin
beginthread(nil, 0, @msg, pointer(@str[1]), nil, 0);
end;

[Pack]

rpy3uH, спасибо. но я как бы написал, что нужно без глобальных переменных обойтись да и к тому же, а если нужно передать несколько параметров?

[GunSmoker]

но я как бы написал, что нужно без глобальных переменных обойтис

Вообще-то если внимательно посмотреть, то процедура потока не использует глобальную переменную. Вопрос: о чём нам это говорит?

да и к тому же, а если нужно передать несколько параметров?

В курсе про record?