Проблема с сохранением данных

[KLOP]

помогите плиз я непойму вылазит ошибка что инвалид filename я уже всё перепробовал вечно стрелка показуеться на rewrite

procedure TForm1.Button6Click(Sender: TObject);
var
a:textfile;
b:byte;
begin
Assignfile(a,'\Data\'+l+'.txt');
rewrite(a);
writeln(a,g);
writeln(a,t);
for b:=1 to g do writeln(a,d[b]);
writeln(a,sd);
for b:=1 to t do writeln(a,z[b]);
writeln(a,zd);
closefile(a);
end;

код переменной L

procedure TForm1.FormCreate(Sender: TObject);
var
p:integer;
begin
ComboBox1.Text:=DateToStr(now);
p:=pos('.',combobox1.Text);
if p=0 then p:=length(combobox1.text)else dec(p);
l:=l+copy(combobox1.Text,1,p);
l:=l+copy(combobox1.Text,4,p);
l:=l+copy(combobox1.Text,7,p);
l:=l+copy(combobox1.Text,9,p);
end;

[uberchel]

А если так:

procedure TForm1.Button6Click(Sender: TObject);
var
a:textfile;
b:byte;
begin
rewrite(a);
Assignfile(a,'\Data\'+''+'.txt');
writeln(a,g);
writeln(a,t);
for b:=1 to g do writeln(a,d[b]);
writeln(a,sd);
for b:=1 to t do writeln(a,z[b]);
writeln(a,zd);
closefile(a);
end;

[KLOP]

кхм rewrite открывает фаил для до записи и если такого нету он его создаёт как это может находиться перед AssignFile?

[uberchel]

Ты напиши код со всеми перемеными.
полный код- етого твоего проекта!

[KLOP]

делов том что когда я убераю папку дата всё работаеть(

[uberchel]

Сообщение от KLOP

делов том что когда я убераю папку дата всё работаеть(

дело в том, что когда я убираю папку, тогда всё работает !- так я понял?

<< Правильно заданный вопрос, даст тебе больше ответов!>>

ХМ, ты напиши код.

[KLOP]

Assignfile(a,'\Data\'+l+'.txt');

так не работает

Assignfile(a,l+'.txt');

а так работает

зачем нужен остальной код???

[uberchel]

НУ, если код не даешь, то я исходя из твоего кода могу толко пофонтазировать!
может так:

Assignfile(a,'\Data\'l+'.txt');

[Kotofff]

папка Data в каталоге самой программы ?
если да , то первый слеш впереди не нужен Assignfile(a,'Data\'+l+'.txt');

[KLOP]

ооо теперь работаеть спасибо