|
Вопрос # 2 974/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Я начинающий, так что вопрос абсолютно банален.
Программа взята как пример с высокопопулярного сайта. Что неправильно?Почему ошибки?
Приложение: Переключить в обычный режим- type
- THandle = LongWord;
- TFileName = type string;
- TSearchRec = record
- Time: Integer;
- Size: Integer;
- Attr: Integer;
- Name: TFileName;
- ExcludeAttr: Integer;
- FindHandle: THandle;
- FindData: TWin32FindData;
- end;
- ...
- procedure TForm1.Button1Click(Sender: TObject);
- var
- searchResult : TSearchRec;
-
- begin
- // Ïûòàåìñÿ
íàéòè
ïðàâèëüíûå
ôàéëû,
ñîîòâåòñòâóþùèå
Unit1.d* â òåêóùåì
êàòàëîãå
- if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
- begin
- repeat
- ShowMessage(Èìÿ ôàéëà
= '+searchResult.Name);
- ShowMessage('Ðàçìåð
ôàéëà = '+IntToStr(searchResult.Size));
- until FindNext(searchResult) <> 0;
-
- // Äîëæåí
îñâîáîäèòü
ðåñóðñû,
èñïîëüçóåìûå
ýòèìè
óñïåøíûìè,
ïîèñêàìè
- FindClose(searchResult);
- end;
- end;
-
- end.
-
- [Error] Unit1.pas(36): Types of actual and formal var parameters must be identical
-
- [Error] Unit1.pas(39): Unterminated string
- [Error] Unit1.pas(40): ')' expected but identifier 'ShowMessage' found
- [Error] Unit1.pas(41): Types of actual and formal var parameters must be identical
- [Error] Unit1.pas(44): Types of actual and formal var parameters must be identical
- [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
 |
Вопрос задал: Mav3rick (статус: Посетитель)
Вопрос отправлен: 7 июля 2009, 21:19
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 7 июля 2009, 21:59; участников в обсуждении: 3.
|
Мережников Андрей (статус: Абитуриент), 7 июля 2009, 21:26 [#1]:
Сообщения о каких конкретно ошибках выдаются?
Можно без "крякозябров" написать?
Хотя можно сделать предположение, что неправильно переписали пример - сравните еще раз с оригиналом
|
|
Dron (статус: Студент), 7 июля 2009, 21:27 [#2]:
ShowMessage(??? ????? = '+searchResult.Name);
Ну вот тут явно открывающей кавычки нет - неужели сложно понять?
Цитата:
[Error] Unit1.pas(39): Illegal character in input file: 'И' ($C8)
Это по той же причине.
С уважением.
|
|
|
Mav3rick (статус: Посетитель), 7 июля 2009, 21:29 [#3]:
имхо дело как раз таки в том, что ошибки выдаются какие-то уж совсем фантастические. Могу лишь предложить запустить программу у себя.
|
|
|
Dron (статус: Студент), 7 июля 2009, 21:31 [#4]:
Исправьте сначала строки, а потом разберёмся с остальными.
С уважением.
|
|
|
Mav3rick (статус: Посетитель), 7 июля 2009, 21:32 [#5]:
прошу прощения... забыл поставить, но дело то не в ней...
[Error] Unit1.pas(36): Types of actual and formal var parameters must be identical
[Error] Unit1.pas(41): Types of actual and formal var parameters must be identical
[Error] Unit1.pas(44): Types of actual and formal var parameters must be identical
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
|
|
|
Dron (статус: Студент), 7 июля 2009, 21:37 [#6]:
А зачем TSearchRec объявлять вручную? Это ведь встроенный тип.
С уважением.
|
|
|
Mav3rick (статус: Посетитель), 7 июля 2009, 21:38 [#7]:
СПАСИБО! Дурак есть дурак.
|
|
|
Мережников Андрей (статус: Абитуриент), 7 июля 2009, 21:59 [#8]:
Что фантастического в приведенных сообщениях об ошибке? Компилятор сообщает, что типы переменных,передаваемых в качестве параметров в функции (процедуры) должны соответствовать типам параметров, которые прописаны при объявлении функции (процедуры)
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
