Слишком много актуальных параметров...

[extrimportal]

Выскакивает ошибка to many actual parameters
на строке close(l); Если файл не закрыть то дальнеешая перезапись невозможна так как выскакивает ошибка Приложение занято другим процесом.


AssignFile(l, 'c:\WINDOWS/lplay.db');
{$I-}
Append(l);
if IOResult<>0 then
begin
{$I-}
Rewrite(l);

{$I+}
end;
Reset(l);
memo2.lines.loadfromfile('c:\WINDOW S/lplay.db');
if memo2.lines[0]='' then
ShowMessage('Запол');
close(l) ;

//provirka najavnosti fajla
//****************************
AssignFile(f, 'c:\WINDOWS/mplay.db');
{$I-}
Append(f);
if IOResult<>0 then
begin
{$I-}
Rewrite(f);
{$I+}
end;
Reset(f);
memo1.lines.loadfromfile('c:\WINDOW S/mplay.db'); .... close(l);
C f все нормально пашет а на l глюк....

[spamer]

А что это у вас за палочка - l ???
Ведь нужно использовать буквы и слова.

[Juffin]

надо не close(f); а closefile(f);

[extrimportal]

Спасибо, заработало, эт я ступил
Кстати spamer в анг. алфавите есть чудо буква L в нижнем регистре она пишется как - l ))

[JTG]

c:\WINDOWS/mplay.db
оО и вот это работает?

[extrimportal]

Да вполне... А что тут такого?

[Хитрец]

да слеш не в ту сторону. "/"

[DeKot]

[CODE]memo2.lines.loadfromfile('c:\WINDOW S\lplay.db');
if memo2.lines[0]=' д.б. переменная string' then ShowMessage('Запол');
close(l) ;