Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 974

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Я начинающий, так что вопрос абсолютно банален.
Программа взята как пример с высокопопулярного сайта. Что неправильно?Почему ошибки?

Приложение:
  1. type
  2. THandle = LongWord;
  3. TFileName = type string;
  4. TSearchRec = record
  5. Time: Integer;
  6. Size: Integer;
  7. Attr: Integer;
  8. Name: TFileName;
  9. ExcludeAttr: Integer;
  10. FindHandle: THandle;
  11. FindData: TWin32FindData;
  12. end;
  13. ...
  14. procedure TForm1.Button1Click(Sender: TObject);
  15. var
  16. searchResult : TSearchRec;
  17.  
  18. begin
  19. // Ïûòàåìñÿ íàéòè ïðàâèëüíûå ôàéëû, ñîîòâåòñòâóþùèå Unit1.d* â òåêóùåì êàòàëîãå
  20. if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
  21. begin
  22. repeat
  23. ShowMessage(Èìÿ ôàéëà = '+searchResult.Name);
  24. ShowMessage('Ðàçìåð ôàéëà = '+IntToStr(searchResult.Size));
  25. until FindNext(searchResult) <> 0;
  26.  
  27. // &#196;&#238;&#235;&#230;&#229;&#237; &#238;&#241;&#226;&#238;&#225;&#238;&#228;&#232;&#242;&#252; &#240;&#229;&#241;&#243;&#240;&#241;&#251;, &#232;&#241;&#239;&#238;&#235;&#252;&#231;&#243;&#229;&#236;&#251;&#229; &#253;&#242;&#232;&#236;&#232; &#243;&#241;&#239;&#229;&#248;&#237;&#251;&#236;&#232;, &#239;&#238;&#232;&#241;&#234;&#224;&#236;&#232;
  28. FindClose(searchResult);
  29. end;
  30. end;
  31.  
  32. end.
  33.  
  34. [Error] Unit1.pas(36): Types of actual and formal var parameters must be identical
  35.  
  36. [Error] Unit1.pas(39): Unterminated string
  37. [Error] Unit1.pas(40): ')' expected but identifier 'ShowMessage' found
  38. [Error] Unit1.pas(41): Types of actual and formal var parameters must be identical
  39. [Error] Unit1.pas(44): Types of actual and formal var parameters must be identical
  40. [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


Mav3rick Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Mav3rick (статус: Посетитель)
Вопрос отправлен: 7 июля 2009, 21:19
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 8; последнее сообщение — 7 июля 2009, 21:59; участников в обсуждении: 3.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 7 июля 2009, 21:26 [#1]:

Сообщения о каких конкретно ошибках выдаются?
Можно без "крякозябров" написать?
Хотя можно сделать предположение, что неправильно переписали пример - сравните еще раз с оригиналом
Dron

Dron (статус: Студент), 7 июля 2009, 21:27 [#2]:

ShowMessage(??? ????? = '+searchResult.Name);
Ну вот тут явно открывающей кавычки нет - неужели сложно понять?

Цитата:

[Error] Unit1.pas(39): Illegal character in input file: 'И' ($C8)

Это по той же причине.
С уважением.
Mav3rick

Mav3rick (статус: Посетитель), 7 июля 2009, 21:29 [#3]:

имхо дело как раз таки в том, что ошибки выдаются какие-то уж совсем фантастические. Могу лишь предложить запустить программу у себя.
Dron

Dron (статус: Студент), 7 июля 2009, 21:31 [#4]:

Исправьте сначала строки, а потом разберёмся с остальными.
С уважением.
Mav3rick

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

Dron (статус: Студент), 7 июля 2009, 21:37 [#6]:

А зачем TSearchRec объявлять вручную? Это ведь встроенный тип.
С уважением.
Mav3rick

Mav3rick (статус: Посетитель), 7 июля 2009, 21:38 [#7]:

СПАСИБО! Дурак есть дурак.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 7 июля 2009, 21:59 [#8]:

Что фантастического в приведенных сообщениях об ошибке? Компилятор сообщает, что типы переменных,передаваемых в качестве параметров в функции (процедуры) должны соответствовать типам параметров, которые прописаны при объявлении функции (процедуры)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 3 декабря 2021, 12:54
Выполнено за 0.02 сек.
Рейтинг@Mail.ru