directorylistbox1.update;

[Leo20]

procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
  var S: String);
begin
  RenameFile(ExcludeTrailingBackSlash(directorylistbox1.Directory) + '\' + listview1.Selected.Caption,
  ExcludeTrailingBackSlash(directorylistbox1.Directory) + '\' + s);
  {$I-}
directorylistbox1.update;
directorylistbox1.Refresh;
  {$I+}
end;
procedure TForm1.N7Click(Sender: TObject);
begin
if listView1.Selected <> nil then
begin
listview1.Selected.EditCaption;
end;
end;

вот этот код выдает ошибку

Debugger Exception Notification

Project xxxx raised exception class EAccessViolation with message 'Access violation at address 00404B06 in module 'xxxxx.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue

если убрать
directorylistbox1.update;
то ошибки нет, но директорилист не обновляется ((((

13:27

еще такой вопрос, есть в делфи функция для определения размера каталога? а то перебором файлов все это дело долго работает.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

[IT-man]

Как определить размер каталога? DFaq

var
  Form1: TForm1;
  DirBytes: integer;

implementation

{$R *.dfm}

function DirSize(Dir: string): integer;
var
  SearchRec: TSearchRec;
  Separator: string;
begin
  if Copy(Dir,Length(Dir),1)='\' then
    Separator := ''
  else
    Separator := '\';
  if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then
  begin
    if FileExists(Dir+Separator+SearchRec.name) then
      DirBytes := DirBytes + SearchRec.Size
    else
    if DirectoryExists(Dir+Separator+SearchRec.name) then
    begin
      if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
        DirSize(Dir+Separator+SearchRec.name);
    end;
    while FindNext(SearchRec) = 0 do
    begin
      if FileExists(Dir+Separator+SearchRec.name) then
        DirBytes := DirBytes + SearchRec.Size
      else
      if DirectoryExists(Dir+Separator+SearchRec.name) then
      begin
        if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
          DirSize(Dir+Separator+SearchRec.name);
      end;
    end;
  end;
  FindClose(SearchRec);
  Result:=Result+DirBytes;
end;

вызов:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DirBytes:=0;
DirBytes := DirSize('c:\windows');
Label1.Caption := IntToStr(DirBytes);
end;

********************************************************

Возвращаемая размерность - байты.):
var
dirbytes : integer;

function tfilebrowser.dirsize(dir:string):integer;
var
searchrec : tsearchrec;
separator : string;
begin
if copy(dir,length(dir),1)='\' then
separator := ''
else
separator := '\';
if findfirst(dir+separator+'*.*',faanyfile,searchrec) = 0 then begin
if fileexists(dir+separator+searchrec.name) then begin
dirbytes := dirbytes + searchrec.size;
{memo1.lines.add(dir+separator+searchrec.name);}
end else if directoryexists(dir+separator+searchrec.name) then begin
if (searchrec.name<>'.') and (searchrec.name<>'..') then begin
dirsize(dir+separator+searchrec.name);
end;
end;
while findnext(searchrec) = 0 do begin
if fileexists(dir+separator+searchrec.name) then begin
dirbytes := dirbytes + searchrec.size;
{memo1.lines.add(dir+separator+searchrec.name);}
end else if directoryexists(dir+separator+searchrec.name) then
begin
if (searchrec.name<>'.') and (searchrec.name<>'..') then begin
dirsize(dir+separator+searchrec.name);
end;
end;
end;
end;
findclose(searchrec);
end;

[Leo20]

спасибо)

а как на счет первого вопроса????