Запустить поток передав ему переменную

[t2skler]

Делаю так:
var Tid: LongWord;

function Thread(Data: Pointer; var CleaningSection: TStringList): Integer;
begin
//Делаю что-то с полученной переменной CleaningSection
end;

BeginThread(nil,0,Thread(*Сюда по моему предположению нужно указать название стринг листа, другого варианта я не знаю*),nil,0,Tid); //Где-то там запускаю поток

Собственно сабж: как мне передать имя стринг листа?

З.Ы. По быдлокодерски не хочется добавлять глобальную переменную и до запуска потока присваивать ей значение.

[veniside]

function ThreadProc(CleaningSection: TStringList): Integer;
begin
  // Делаю что-то с полученной переменной CleaningSection
end;

BeginThread(nil, 0, @ThreadProc, Pointer(myStringList), 0, Tid);

[t2skler]

Сообщение от veniside

function ThreadProc(CleaningSection: TStringList): Integer;
begin
  // Делаю что-то с полученной переменной CleaningSection
end;

BeginThread(nil, 0, @ThreadProc, Pointer(myStringList), 0, Tid);

Происходит ошибка, т.к. потоку нужно передавать переменную типа поинтер.

[mss]

> ошибка, т.к. потоку нужно передавать переменную типа поинтер.

А это

BeginThread(nil, 0, @ThreadProc, Pointer(myStringList), 0, Tid);

что по-твоему ?
Это не "типа пойнтер", надо понимать ?)

[t2skler]

Сообщение от mss

> ошибка, т.к. потоку нужно передавать переменную типа поинтер.

А это

BeginThread(nil, 0, @ThreadProc, Pointer(myStringList), 0, Tid);

что по-твоему ?
Это не "типа пойнтер", надо понимать ?)

Да я ошибся, в функции потока должна быть объявлена переменная типа поинтер, а передавая ему Pointer(myStringList) это не то, что нужно)

Вот такая ошибка при запуске потока:

[veniside]

> Происходит ошибка

это зависит от опций компилятора, но вот более универсальный вариант:

function ThreadProc(param: Pointer): Integer;
var
  CleaningSection: TStringList absolute param;
begin
 // Делаю что-то с полученной переменной CleaningSection
end;

BeginThread(nil, 0, ThreadProc, Pointer(myStringList), 0, tid);

> в функции потока должна быть объявлена переменная типа поинтер

зачем?

> а передавая ему Pointer(myStringList) это не то, что нужно)

а что вам нужно?

[t2skler]

Сообщение от veniside

> Происходит ошибка

это зависит от опций компилятора, но вот более универсальный вариант:

function ThreadProc(param: Pointer): Integer;
var
  CleaningSection: TStringList absolute param;
begin
 // Делаю что-то с полученной переменной CleaningSection
end;

BeginThread(nil, 0, ThreadProc, Pointer(myStringList), 0, tid);

> в функции потока должна быть объявлена переменная типа поинтер

зачем?

> а передавая ему Pointer(myStringList) это не то, что нужно)

а что вам нужно?

мне нужно передать потоку переменную типа TStringList, а точнее её имя, т.к. это имя используется уже в самом потоке.

function Thread(Data: Pointer; {Переменная типа поинтер обязательна нужна в потоке} NameSL: TStringList {Имя этой переменной мы должны получить при запуске потока}): Integer;

[GunSmoker]

мне нужно передать потоку переменную типа TStringList, а точнее её имя, т.к. это имя используется уже в самом потоке.

Ты сам-то понял, что сказал? Как это передать имя? В программе никаких имён не существует. Есть только байты. И передать ты можешь только байты. Т.е. или саму переменную или указатель на неё. Но никак не имя.

[GunSmoker]

Сообщение от t2skler

Вот такая ошибка при запуске потока:

Эта ошибка не имеет никакого отношения к запуску потока.

[Пепел Феникса]

вы попробуйте сначало.

причем тут имя? у переменной нет понятия имя.(в итоговой сборке)

объекты всегда передаются по указателю.
то есть в коде вы передадите не сам объект, а лишь указатель на него.

function Thread(Data: Pointer; {Переменная типа поинтер обязательна нужна в потоке} NameSL: TStringList {Имя этой переменной мы должны получить при запуске потока}):

нельзя приписать параметр.
но можно использовать Data что у вас есть(он для подобного и создан)

кстати вопрос: а почему именно потоки на API?чем не угодил TThread?