Главная страница
    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.02 c
3-75485
Dick Gonsales
2001-12-14 05:47
2002.01.24
Хранение временных данных


1-75580
Анатолий
2002-01-02 04:30
2002.01.24
Формулы в тексте


3-75529
Сашка
2001-12-19 13:26
2002.01.24
Подскажите плз.


14-75685
lel
2001-11-28 10:54
2002.01.24
Никто не знает ресурсов, где выложены, спрайты, текстуры к разным и грам и не только????


7-75693
BoBaH
2001-10-11 13:20
2002.01.24
TRegistry





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский