Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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 предназначено для описания процедур до их использования.




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




Наверх





Память: 0.72 MB
Время: 0.018 c
3-75488           NLO                   2001-12-20 14:23  2002.01.24  
Системные таблицы IB 6


14-75684          Dup                   2001-11-27 10:25  2002.01.24  
?


1-75559           Vygantas              2001-12-29 00:22  2002.01.24  
Как впихать форму в DLL и как потом ее от туда взять ??


1-75554           Анатолий              2002-01-06 06:20  2002.01.24  
Цвет ячейки StringGrid


3-75513           Kouzmine              2001-12-18 16:27  2002.01.24  
Сообщение Table is full Кто поможет?