Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.24;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
7-75699
BigFoot
2001-10-12 12:24
2002.01.24
Опять сервисы !!!


1-75612
Dmitriy_R
2002-01-06 10:55
2002.01.24
Прозьба помогите разобратся где я сделал ошибку с ListView


3-75483
Марина
2001-12-20 13:02
2002.01.24
База данных


6-75637
amamed_3071
2001-11-03 15:15
2002.01.24
TCP /IP


1-75591
Dmitriy_R
2002-01-07 17:39
2002.01.24
Ну неужели никто не знает как брать данные из ListView и класть их куда надо.