Советы по Delphi. Версия 1.4.3 от 1.1.2001

 List.Free;

end;

Мы читаем в память весь текст, и кроме подсчета строк этот код ничего не делает. Другая идея заключается в использовании не счетчика строк, а счетчика байт. В самом начале вы запрашиваете размер файла (используя функцию Delphi FileSize), и в цикле проходите все байты, как вы делали это со строками. Цикл может выглядеть примерно так (предположим, вы используете стандартный паскалевский тип TEXT):

Gauge.MaxValue := FileSize(TextFile);

Reset(TextFile);

while not eof(TextFile) do begin

 Readln(TextFile, Line);

 { Обработка строки }

 with Gauge do begin

  Progress := Progress + Length(Line) + 2; { 2 для CR/LF }

  Refresh;

 end;

end; 

Копирование файлов IV

Igor Nikolaev aKa The Sprite советует:

Copyfile('C:\1.txt', 'C:\files\2.txt', 0);

где первый параметр – путь и имя нужного файла, а второй путь и имя нового(скопированого) файла

Если же необходимо задавать имена файлов через Edit, то:

Copyfile(PChar(edit1.text), PChar(edit2.text), 0);

Сеть

Как узнать доступные сетевые pесуpсы?

Nomadic советует:

Вот пример:

type

 PNetResourceArray = ^TNetResourceArray;

 TNetResourceArray = array[0..MaxInt div SizeOf(TNetResource) - 1] of TNetResource;

Procedure EnumResources(LpNR:PNetResource);

Var

 NetHandle: THandle;

 BufSize: Integer;

 Size: Integer;

 NetResources: PNetResourceArray;

 Count: Integer;

 NetResult:Integer;

 I: Integer;

 NewItem:TListItem;

Begin

 If WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,

  // RESOURCETYPE_ANY - все ресурсы

  // RESOURCETYPE_DISK - диски

  // RESOURCETYPE_PRINT - принтеры

  0, LpNR, NetHandle) <> NO_ERROR then Exit;

 Try

  BufSize := 50 * SizeOf(TNetResource);

  GetMem(NetResources, BufSize);

  Try

   while True do begin

    Count := -1;

    Size := BufSize;

    NetResult := WNetEnumResource(NetHandle, Count, NetResources, Size);

    If NetResult = ERROR_MORE_DATA then begin

     BufSize := Size;

     ReallocMem(NetResources, BufSize);

     Continue;

    end;

    if NetResult <> NO_ERROR then Exit;

    For I := 0 to Count-1 do Begin

     With NetResources^[I] do Begin

      If RESOURCEUSAGE_CONTAINER = (DwUsage and RESOURCEUSAGE_CONTAINER) then

       EnumResources(@NetResources^[I]);

      If dwDisplayType = RESOURCEDISPLAYTYPE_SHARE Then

       // ^^^^^^^^^^^^^^^^^^^^^^^^^ - ресурс

       // RESOURCEDISPLAYTYPE_SERVER - компьютер

       // RESOURCEDISPLAYTYPE_DOMAIN - рабочая группа

       // RESOURCEDISPLAYTYPE_GENERIC - сеть

      Begin

       NewItem:= Form1.ListView1.Items.Add;

       NewItem.Caption:=LpRemoteName;

      End;

     End;

    End;

   End;

  finally

   FreeMem(NetResources, BufSize);

  end;

 finally

  WNetCloseEnum(NetHandle);

 end;

End;

procedure TForm1.Button1Click(Sender: TObject);

Var OldCursor: TCursor;

begin

 OldCursor:= Screen.Cursor;

 Screen.Cursor:= crHourGlass;

 With ListView1.Items do Begin

BeginUpdate;

  Clear;

  EnumResource(nil);

  EndUpdate;

 End;

 Screen.Cursor:= OldCursor;

end; 

Реестр

Как из программы выявить версию Windows, на кого зарегистрирована и т.п.?

Nomadic пишет:

Вот тебе кyсочек Windows Registry, pазбиpайся:

=== Cut here! [a.reg] === REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion]