Форум: "Основная";
Поиск по всему сайту: 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.022 c
1-75583           Victor                2002-01-07 08:26  2002.01.24  
Margins


1-75546           Dim2001               2002-01-05 20:34  2002.01.24  
подскажите


1-75563           Lakokr                2002-01-06 12:33  2002.01.24  
как сделать ЕХЕ


1-75599           Velocity              2002-01-07 07:28  2002.01.24  
IntToStr и конечно StrToInt


4-75712           maxi                  2001-11-24 12:04  2002.01.24  
как узнать список дочерних окон процесса ?