---|Ветка была без названия|---

← →
ossa (2003-08-14 13:30) [0]

...
implementation
function SendDialup(NameDial:TSearchRec):boolean; Forward;
//другая функция, которая обращаеться к SendDialup
...
//затем описание функции
function SendDialup(NameDial:TSearchRec):boolean;
begin
showmessage("OK!");
Result:=true;
end;
...
выводиться ошибка [Error] Statment expected but "Function" found.
хотя при описании все совпадает

← →
HolACost! © (2003-08-14 13:33) [1]

in implementstion needs in implementation of function! its declaration must be in intarface!

← →
ossa (2003-08-14 13:41) [2]

не помогает и в интерфейс вставлял тоже

← →
Palladin © (2003-08-14 13:44) [3]

> и в интерфейс вставлял тоже

а из implementation убирал?

← →
ossa (2003-08-14 13:59) [4]

unit UnitFile;

interface
uses SysUtils,Windows,Dialogs,FileCtrl;
//function SendDialup(NameDial:TSearchRec):boolean;

procedure StrDialMain(StrDial1,StrDialed1,StrBad1:string);
var FileNames:TSearchRec;
vFlag:integer;
implementation
uses Pro;

function CopyAllFileFromFolder(lvFromFolder,lvToFolder:string):boolean;
begin
vFlag:=FindFirst(lvFromFolder,faAnyfile,FileNames);
if vFlag=0
then
begin
CopyFile(PChar(FileNames.Name),PChar(lvToFolder),false);
DeleteFile(PChar(FileNames.Name));
end
else
begin
MessageDlg("Error not files",mtWarning,[mbOk],0);
end;

while FindNext(FileNames)=0 do
begin
try
CopyFile(PChar(FileNames.Name),PChar(lvToFolder),false);
DeleteFile(PChar(FileNames.Name));
except
on E:EInOutError do ShowMessage("Error: "+IntToStr(E.ErrorCode));
end;
end;
FindClose(FileNames.FindHandle);
if RemoveDir(lvFromFolder) then
ShowMessage("Ok");
Result:=true;
end;

function SendDialup(NameDial:TSearchRec):boolean; Forward;

procedure SetLinkDial(StrDial, StrDialed,StrBad:string);
var
flag :integer;
Name:string;
vDialing:Boolean;
StrFlag:TSearchRec;
begin
Name:=StrDial+Maska;
//try

flag:=FindFirst(Name,faAnyfile,StrFlag);
if flag<>0 then
MessageDlg("

← →
HolACost! © (2003-08-14 14:00) [5]

А просто выше написать реализацию нельзя?

← →
Е-Моё имя © (2003-08-14 14:03) [6]

когда уж ты докомпиляешь свою программу.....
;))))))))))
или это уже не та, что вчера была?

← →
ossa (2003-08-14 14:05) [7]

можно, но почему forward не работает,
просто в реализации
function SendDialup(NameDial:TSearchRec):boolean;
будет ссылка на
function CopyAllFileFromFolder(lvFromFolder,lvToFolder:string):boolean;

← →
Bel © (2003-08-14 14:07) [8]

Из раздела Implementation убери объявление function ...;forward;

← →
ossa (2003-08-14 14:28) [9]

если я убираю в Implementation
function SendDialup(NameDial:TSearchRec):boolean; Forward;

то внутри procedure SetLinkDial(StrDial, StrDialed,StrBad:string); выводится ошибка незадекларирована
SendDialup
типа должна работоать так
procedure B(j:integer); forward;
procedure A(i:integer);
begin
...
B(i);
...
end;
procedure B;
begin
...
A(j);
...
end;

← →
Anatoly Podgoretsky © (2003-08-14 15:05) [10]

Ты думаешь кто то будет посчитывать парность закрывающих скобок?

← →
Camus © (2003-08-14 15:17) [11]

> ossa (14.08.03 13:59) [4]

Отструктурируйте код по-человечески и сразу все ствнет видно.

← →
Palladin © (2003-08-14 15:29) [12]

жуть...
такое чувство что это откудато скопировано...

← →
имя (2003-08-14 15:42) [13]

Удалено модератором

← →
имя (2003-08-14 15:42) [14]

Удалено модератором

← →
имя (2003-08-14 15:43) [15]

Удалено модератором

← →
имя (2003-08-14 15:43) [16]

Удалено модератором

← →
имя (2003-08-14 15:43) [17]

Удалено модератором

← →
имя (2003-08-14 15:56) [18]

Удалено модератором

← →
имя (2003-08-14 15:56) [19]

Удалено модератором

← →
имя (2003-08-14 15:57) [20]

Удалено модератором

← →
имя (2003-08-14 15:57) [21]

Удалено модератором

← →
имя (2003-08-14 15:57) [22]

Удалено модератором

---|Ветка была без названия|--- Найти похожие ветки