VPF::2 одинаковых потока, один почемут не работает

eXa

Дата 4.12.2006, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 1.12.2006

Репутация: нет
Всего: нет

Привет!
Cтолкнулся со cледуещей проблемой, есть 2 потока, причем код в них почти одинаковый, но почемут в одном всё выполняется нормально, а в другом нет, компилятор ошибок не выдаёт, подскажите пжста в чём дело...

заголовок:

Код


type
  MailName = class(TThread)
  private
  { Private declarations }
  protected
  procedure Execute; override;
  end;
  NameName = class(TThread)
  private
  { Private declarations }
  protected
  procedure Execute; override;

1 поток:

Код


procedure MailName.Execute;
var
i: integer;
LsMail:TStringList;
mail:string;
begin
LsMail := TStringList.Create;
LsMail.LoadFromFile('mail.txt');
for i:= 0 to LsMail.Count-1 do
begin
mail:= LsMail.Strings[i];
end;
LsMail.Free;
end;

2 поток:

Код


procedure NameName.Execute;
var
i:integer;
LsName:TStringList;
name:string;
begin
LsName := TStringList.Create;
LsName.LoadFromFile('name.txt');
for i:= 0 to LsName.Count-1 do
begin
name:= LsName.Strings[i];
 end;
LsName.Free;
end;

криате:

Код


 MailN:= MailName.Create(true);
 NameN:= NameName.Create(true);

со 2ым потоком всё глухо

Это сообщение отредактировал(а) eXa - 4.12.2006, 20:57

Sunvas

Дата 4.12.2006, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

http://forum.vingrad.ru/topic-60076.html

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

eXa

Дата 4.12.2006, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 1.12.2006

Репутация: нет
Всего: нет

А если учесть что в этих 2ух потоках используется sleep c разными таймингами, просто слегка урезал код, если конешно имелость ввиду что глупое использование потоков, если нет, то как нить всё прочитаю, ща времени нет...

Это сообщение отредактировал(а) eXa - 4.12.2006, 22:32

Matematik

Дата 4.12.2006, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Цитата(eXa @ 4.12.2006, 20:52

)

Cтолкнулся со cледуещей проблемой, есть 2 потока, причем код в них почти одинаковый, но почемут в одном всё выполняется нормально, а в другом нет

В чем это выражается.?
Судя по приведеному коду, потоки вообще не должны работать.

eXa

Дата 4.12.2006, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 1.12.2006

Репутация: нет
Всего: нет

Matematik могу тя уверить, 1 поток работает отлично...
Выражается в том что не работает!

Это сообщение отредактировал(а) eXa - 4.12.2006, 23:10

Matematik

Дата 4.12.2006, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Написаный код рабочий

Добавлено @ 23:39
Все 2 запустились, ругнулись что не могут найти файл и закрылись

eXa

Дата 5.12.2006, 07:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 1.12.2006

Репутация: нет
Всего: нет

Тогда вообще тупик...
И в переменную name:string; у тебя всё нормально записывается, проверь tedit'ом или tmemo...

Matematik

Дата 5.12.2006, 08:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Записывается.
Может напишешь весь нерабочий код.

eXa

Дата 5.12.2006, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 1.12.2006

Репутация: нет
Всего: нет

Это и есть весь нерабочий код, ну если не считать что после записи в переменную i идёт sleep(x) .

Это сообщение отредактировал(а) eXa - 5.12.2006, 08:59

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »