В dll делаю функцию
| Код |
function newuser(name,pass,prav:string):boolean;
begin
result:=true;
try
datamodule1.ADOTable1.Append;
datamodule1.ADOTable1.FieldByName('name').AsString:=name;
datamodule1.ADOTable1.FieldByName('prav').AsInteger:=strtoint(prav);
datamodule1.ADOTable1.FieldByName('pass').AsString:=pass;
datamodule1.ADOTable1.Post;
except
result:=false;
end;
end;
|
При компиляции получаю
| Код |
[Ошибка] Unit1.pas(23): Statements not allowed in interface part
[Ошибка] Unit1.pas(24): Undeclared identifier: 'result'
[Ошибка] Unit1.pas(27): Undeclared identifier: 'name'
[Ошибка] Unit1.pas(28): Undeclared identifier: 'prav'
[Ошибка] Unit1.pas(29): Undeclared identifier: 'pass'
[Фатальная ошибка] Unit1.pas(41): Program or unit 'Unit1' recursively uses itself
|
ЧТо это??? Я уже измучился. |
)))))