запись массива в файл

[Владимир1988]

Подскажите пожалуйста, почему при записи в файл f, при просмотре его он оказывается пуст?

begin
  t := TMemoryStream.Create;
     for i:= 1 to 10 do
       m[i]:= (i)*(3);
         begin
          AssignFIle(F,'D:\тест\file.txt');
          Rewrite(f);
          n:=1;
            while (file_p[j,1]<>'') do begin
              n:=n+1;
              Writeln(f,file_p[n,1],';',file_p[n,2]);
            end;
          CloseFile(f);
         end;
  t.Free;
end.

[SNUPY]

хммм... на последней итерации цикла FOR срабатывает ли хотя бы один раз while (file_p[j,1]<>'') do??? Либо для прикола попробуйте не Rewrite(f), а Append (f).

[Владимир1988]

ничего не изменилось

[Stilet]

на последней итерации цикла FOR срабатывает ли хотя бы один раз while (file_p[j,1]<>'') do?

В цикле for вообще только один оператор: m[i]:= (i)*(3);
while (file_p[j,1]<>'') do вообще не имеет к нему никакого отношения.
Другое дело что само условие (file_p[j,1]<>'') может на первой же итерации оказаться ложным.
Автору: Отладчиком пройдись по while и посмотри чему равно (file_p[j,1]<>'')