VPF::мегапроцедура! - Форум программистов

h2o

Дата 28.10.2005, 14:59 (ссылка)

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

Загрузка ...

Бывалый

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

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

У меня есть такая процедура:

Код


procedure TForm1.MyProc;   
var ...
procedure ForceDir(const path:string);
begin
 if (trim(path)='')or(path[Length(path)]=':') then exit;
 if path[Length(path)]<>'\' then ForceDir(extractFilePath(path)) else ForceDir(extractFilePath(copy(path,1,Length(Path)-1)));
 CreateDirectory(PChar(path),nil);
end;
begin
... //код моей процедуры procedure TForm1.MyProc;   
end;

А могу я ещё вот такое с ней сделать... тоесть по аналогии с procedure ForceDir(const path:string); добасить ещё одну, тока функцию:

Код


procedure TForm1.MyProc;   
var ...
procedure ForceDir(const path:string);
begin
 if (trim(path)='')or(path[Length(path)]=':') then exit;
 if path[Length(path)]<>'\' then ForceDir(extractFilePath(path)) else ForceDir(extractFilePath(copy(path,1,Length(Path)-1)));
 CreateDirectory(PChar(path),nil);
end;
function DeleteFiles( Handle : HWnd; Names : array of string; ToRecycle : Boolean ) : Integer;
var
  SHFileOpStruct : TSHFileOpStruct;
  Src : TBuffer;
begin
  CreateBuffer( Names, Src );
  with SHFileOpStruct do
    begin
      Wnd := Handle;
      wFunc := FO_DELETE;
      pFrom := Pointer( Src );
      pTo := nil;
      fFlags := 0;
      if ToRecycle then fFlags := FOF_ALLOWUNDO;
      fAnyOperationsAborted := False;
      hNameMappings := nil;
      lpszProgressTitle := nil;
    end;
  Result := SHFileOperation( SHFileOpStruct );
  Src := nil;
end;
begin
... //код моей процедуры procedure TForm1.MyProc;   
end;

вообще скока процедур по аналогии можно в одну запехать? и важно что это процедуры или функции можно?

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

Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!

Darhazer

Дата 28.10.2005, 15:06 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 429
Регистрация: 28.9.2005
Где: HellCity (Sofia, Bulgaria)

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

Насколько я знаю, можеш сколько хочеш процедур и функции добавить, но будет возможно пользуват их только из MyProc; т.е. это будут локальние процедури. Так можеш просто разбить свою процедуру на мелких кусках чтоб било легче читать код, но лучше конечно сделать клас с private процедури и функции

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

I'm a wheel, I'm a wheel, I can roll, I can feel
But you can't stop me turning
'Cause I'm the sun, I'm the sun, I can move, I can run
But you'll never stom me burning

Romikgy

Дата 28.10.2005, 15:06 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

наверное сколько те нужно

Цитата(h2o @ 28.10.2005, 14:59)

и важно что это процедуры или функции

без разницы...

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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