[Nautilus]

Добрый день! Подскажите, пожалуйста, почему не выполняется код (в выделенном месте пишет I/O error 105). При этом файл в указанном месте находится (чистый). Вот код:

Код:

procedure CSV_File (FileName: String; separator: char);

var f: TextFile;
   s1: string;

begin

 s1 := Form1.Label3.Caption ;
 AssignFile (f, FileName);
 if FileExists('D:\Тест.csv')  then
 begin
    Reset(f);
    writeln (f, s1);
    CloseFile(f);
 end;
 end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 CSV_File ('D:\Тест.csv', #32);
end;

Админ: Пользуемся тегами для оформления кода!

[YVitaliy]

Rewrite(f);
А если файл существует, и нужно добавить строку - Append(f);

[Nautilus]

YVitaliy, спасибо тебе- респект и уважуха !!!