У меня есть такая процедура:
| Код |
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;
|
вообще скока процедур по аналогии можно в одну запехать? и важно что это процедуры или функции можно?
|