Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Вниз

Структура консольного приложения   Найти похожие ветки 

 
Delphimun   (2002-01-07 22:01) [0]

Пишу я консольную программу, но при вызове второй процедуры у меня возникает ошибка, если же процедура только одна ошибки не происходит. Точно знаю, что ошибся в структуре приложения, а как исправить незнаю. Вот структура моей программы:

program Project2;

uses
...

var
...

procedure SendMail(FromAdress,ToAdress,FromPopHost,MailText,PathToFile: string);
begin
...
...
end;

function FindFiles(PathFilesName: string): boolean;
var
...
begin
...
FindEMailInFiles("C:\windows\"+findedfiles[i]);\\В этой строчке и ошибка [Error] Project1.dpr(43): Undeclared identifier: "FindEMailInFiles", если я удаляю эту срочку, то ошибка перескакивает на следующую аналогичную строчку!
...
FindEMailInFiles("C:\windows\"+findedfiles[i]);
end;
end;
end;


procedure FindEMailInFiles(Path: string);
begin
...
end;

begin
...
findfiles("C:\windows\*.*");
...
end;
end.

Где моя ошибка???

Также в аналогичной структуре программы:


program Project2;



uses
SysUtils,dialogs;

procedure a;
begin
showmessage("a");
sleep(1000);
b; \\Ошибка!!! [Error] Project2.dpr(12): Undeclared identifier: "b"
end;

procedure b;
begin
showmessage("b");
sleep(1000);
a;
end;
begin
a;
end.


Помогите разобратся со структурой консольного приложения.
Заранее благодарен.


 
Adder   (2002-01-07 22:38) [1]


{$APPTYPE CONSOLE}
program Project2;
uses
Windows,SysUtils,dialogs;
procedure b; forward; procedure a;
begin
showmessage("a");
sleep(1000);
b
end;

procedure b;
begin
showmessage("b");
sleep(1000);
a
end;

begin
a
end.


 
Adder   (2002-01-07 22:41) [2]

ps
Ключевое слово Forward предназначено для описания процедур до их использования.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.021 c
1-75556
Cobalt
2002-01-05 11:47
2002.01.24
Создание своих форм


3-75538
Xmen
2001-12-19 07:59
2002.01.24
Слияние таблиц это как? Помогите!


1-75606
ЮРИЙ_К
2002-01-04 10:37
2002.01.24
Правила хорошего тона при работе с INI-файлами ???


1-75571
Light Elf
2002-01-04 20:28
2002.01.24
Добавление элемента в PopUP-меню в run-time.


14-75662
Undertaker
2001-11-28 16:55
2002.01.24
Кто знает JAVA - помогитеееееее !





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский