Нестыковка времени выполнения процедур \ функций

[postal2]

1. Почему так
2. Как такого избежать

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

обычно мне кажется что никак...(может ошибаюсь...то нить отпишется кроме меня?)

ну я предложил сделать задежку на основе таймера (виндоувзкого...который работает на основе сообщений) там должно быть норм поидее

[s.Creator]

А кто вам сказал что локальные переменные процедуры создаются в одном месте памяти?
попробуйте такую проверку (или возьмите проект из вложения)

procedure TForm1.delay(timeMS:cardinal; mess: string);
var i:cardinal;
begin
i:=GetTickCount;
Memo1.Lines.Add('"'+mess+'" START - '+ TimeToStr(now)+' I='+ IntToStr(I)+' timeMS='+ IntToStr(timeMS));
while ((GetTickCount-i)<timems) do
begin
sleep(100); application.ProcessMessages;
end;
Memo1.Lines.Add('"'+mess+'" stop - '+ TimeToStr(now)+' I='+ IntToStr(I)+' Delta='+ IntToStr(GetTickCount-i));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
delay(3000,'Button1Click'); // showmessage('1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
delay(3000,'Button2Click'); // showmessage('1');

end;

А вот натикало как по первому так и по второму нажатию больше заданного. Так что искать стоит в особенностях

sleep(100); application.ProcessMessages;

Memo:

Memo1
"Button1Click" START - 20:11:55 I=33947609 timeMS=3000
"Button2Click" START - 20:11:56 I=33948703 timeMS=3000
"Button2Click" stop - 20:12:00 I=33948703 Delta=3062
"Button1Click" stop - 20:12:00 I=33947609 Delta=4156

А когда написал так:

procedure TForm1.delay(timeMS:cardinal; mess: string);
var i:cardinal;
begin
i:=GetTickCount;
Memo1.Lines.Add('"'+mess+'" START - '+ TimeToStr(now)+' I='+ IntToStr(I)+' timeMS='+ IntToStr(timeMS));
while ((GetTickCount-i)<timems) do
begin
sleep(100);application.ProcessMessages; //
Memo1.Lines.Add('"'+mess+'" now - '+ TimeToStr(now)+' GetTickCount='+ IntToStr(GetTickCount));
end;
Memo1.Lines.Add('"'+mess+'" stop - '+ TimeToStr(now)+' I='+ IntToStr(I)+' Delta='+ IntToStr(GetTickCount-i));
end;

то получилось:

Memo1
"Button1Click" START - 20:16:08 I=34200640 timeMS=3000
"Button1Click" now - 20:16:09 GetTickCount=34200750
"Button1Click" now - 20:16:09 GetTickCount=34200859
"Button1Click" now - 20:16:09 GetTickCount=34200968
"Button1Click" now - 20:16:09 GetTickCount=34201078
"Button1Click" now - 20:16:09 GetTickCount=34201187
"Button1Click" now - 20:16:09 GetTickCount=34201296
"Button1Click" now - 20:16:09 GetTickCount=34201406
" Button2Click" START - 20:16:09 I=34201515 timeMS=3000
" Button2Click" now - 20:16:09 GetTickCount=34201625
" Button2Click" now - 20:16:10 GetTickCount=34201734
" Button2Click" now - 20:16:10 GetTickCount=34201843
" Button2Click" now - 20:16:10 GetTickCount=34201953
" Button2Click" now - 20:16:10 GetTickCount=34202062
" Button2Click" now - 20:16:10 GetTickCount=34202171
" Button2Click" now - 20:16:10 GetTickCount=34202281
" Button2Click" now - 20:16:10 GetTickCount=34202390
" Button2Click" now - 20:16:10 GetTickCount=34202500
" Button2Click" now - 20:16:10 GetTickCount=34202609
" Button2Click" now - 20:16:11 GetTickCount=34202718
" Button2Click" now - 20:16:11 GetTickCount=34202828
" Button2Click" now - 20:16:11 GetTickCount=34202937
" Button2Click" now - 20:16:11 GetTickCount=34203046
" Button2Click" now - 20:16:11 GetTickCount=34203156
" Button2Click" now - 20:16:11 GetTickCount=34203265
" Button2Click" now - 20:16:11 GetTickCount=34203375
" Button2Click" now - 20:16:11 GetTickCount=34203484
" Button2Click" now - 20:16:11 GetTickCount=34203593
" Button2Click" now - 20:16:11 GetTickCount=34203703
" Button2Click" now - 20:16:12 GetTickCount=34203812
" Button2Click" now - 20:16:12 GetTickCount=34203921
" Button2Click" now - 20:16:12 GetTickCount=34204031
" Button2Click" now - 20:16:12 GetTickCount=34204140
" Button2Click" now - 20:16:12 GetTickCount=34204250
" Button2Click" now - 20:16:12 GetTickCount=34204359
" Button2Click" now - 20:16:12 GetTickCount=34204468
" Button2Click" now - 20:16:12 GetTickCount=34204578
" Button2Click" stop - 20:16:12 I=34201515 Delta=3063
"Button1Click" now - 20:16:12 GetTickCount=34204578
"Button1Click" stop - 20:16:12 I=34200640 Delta=3938