K
kaa
procedure VernutCatalog(var NewDisk1 : String);
begin
end;
procedure TForm1.SearchClick(Sender: TObject);
var
S : string;
begin
S := 'D:\Soft\';
VernutCatalog(S); // Здесь ругаеться
end;
end.
Project.exe raised exception class EAccessViolation
begin
end;
procedure TForm1.SearchClick(Sender: TObject);
var
S : string;
begin
S := 'D:\Soft\';
VernutCatalog(S); // Здесь ругаеться
end;
end.
Project.exe raised exception class EAccessViolation