![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Нужна помощь . Помогите переписать эту программу с паскаля на Делфи, с формой кнопками и т.д. Pas файл находится на диске. Эта программа подсчитывает какие ключевые слова и в каком количестве использованы в pas файле. Составляет перечень имен простых переменных, используемых в левой части оператора присваивания. Представляет перечень меток программы в алфавитном порядке.
Код:
Последний раз редактировалось Admin, 15.05.2016 в 21:30. |
#2
|
||||||||
|
||||||||
![]() 1)
Создаём новае приложение Дельфи. 2) На форму кладём Edit1,Button1,Memo1 3) Переключиться из формы на редактирование юнита Menu->View->Togle Form/Unit [F12] 4) Весь код со строк 2-33 копируем сразу после Implementation 5) Прокручиваем вверх после строки с текстом private пишем Код:
среда перейдёт к редактированию процедуры Work; строки 33-65 делаем телом этой функции объявления k,nm,lb - выносим из функции: var k: array [1..39] of integer; nm,lb: string; 6) некоторые типы и функции в дельфи называбются по-другому, поэтому в строке 33 f:TextFile; в строке 40 AssignFile(f, Text1.Text); в строке 65 CloseFile(f); 7) Прокручиваем вверх после строки с текстом private пишем Код:
среда перейдёт к редактированию процедуры ShowResult; Код:
Переключаемся на Форму [F12] Дважды кликаем на Button1 Редактируем: Код:
После запуска в Edit1 пишем имя файла Жмём на кнопку |
#3
|
|||
|
|||
![]() Спасибо огромное, все понятно объяснили, даже не ожидал такого ответа. Ах да нашел ошибку у вас вместо AssignFile(f, Text1.Text); нужно было прописать AssignFile(f, Edit1.Text);
|