цикл в делфи

[angelap]

как написать в цикле while, пока файл существует то ничего не делать

[Mad_Cat]

while FileExists('путь') do
begin
end;

[angelap]

ой спасибо, все работает)))

[Stilet]

все работает))

Загрузку процессора посмотри )
Обычно в такие циклы вставляют sleep(10) чтоб процессор не загружало.

[Serge_Bliznykov]

Обычно в такие циклы вставляют sleep(10) чтоб процессор не загружало.

+1

а я бы ещё в цикл и Application.ProcessMessages добавил, чтобы форма "живая" была..

вот так, примерно:

while FileExists('путь') do
begin
   Sleep(10);
   Application.ProcessMessages
end;

[Stilet]

чтобы форма "живая" была..

Ну это если с формой

[Arigato]

А все равно закрыть приложение крестиком не получится в этом случае. Тогда надо так делать:

var CloseForm: Boolean = False;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CloseForm := True;
end;

procedure Sleeping;
begin
   Sleep(10);
   Application.ProcessMessages;
   if CloseForm then ExitProcess (0);
end;

И код цикла, соответственно:

while FileExists('путь') do
begin
  Sleeping;
end;

Sleeping можно вызывать из любого подобного цикла, чтобы каждый раз одно и тоже не писать.

[Stilet]

Тогда надо так делать:

Тогда уж лучше сопроцесс организовать