Сохранение в файл

procedure TMainForm.FileSaveClick(Sender: TObject);
var
  f:TextFile;  //файл со значениями
  n:integer;  //размерность матрицы
  buf:double;  //буферная переменная
  i,j:integer;  //счетчики цикла
  Vector:TVector;  //одномерный массив, который надо записать в файл
begin
  if SaveFileDialog.Execute and FileExists(SaveFileDialog.FileName) then
    try
      AssignFile(f,SaveFileDialog.Filename);
      rewrite(f);
      n:=StrToInt(SpinEditNumberOfEquals.Text);
      write(f,n);
      for i:=Low(Vector) to High(Vector) do
        begin
           write(f,Vector[i]);
         end;
     CloseFile(f);
    except
      MessageDlg('Ошибка сохранения данных в файл!',mtError,[mbOk],0);
    end;
end;

if SaveFileDialog.Execute and FileExists(SaveFileDialog.FileName) then

procedure TMainForm.FileSaveClick(Sender: TObject);
var
  f:TextFile;  //файл со значениями
  n:integer;  //размерность матрицы
  buf:double;  //буферная переменная
  i,j:integer;  //счетчики цикла
  Vector:TVector;  //одномерный массив, который надо записать в файл
begin
  if not SaveFileDialog.Execute then begin
    Exit;
  end;
 
  if not FileExists(SaveFileDialog.FileName) then begin
    MessageDlg('Файл с заданным именем не существует. Действие отменено.',mtWarning,[mbOk],0);
    Exit;
  end;
 
  try
    AssignFile(f,SaveFileDialog.Filename);
    rewrite(f);
    n:=StrToInt(SpinEditNumberOfEquals.Text);
    write(f,n);
    for i:=Low(Vector) to High(Vector) do
    begin
      write(f,Vector[i]);
    end;
    CloseFile(f);
  except
    MessageDlg('Ошибка сохранения данных в файл!',mtError,[mbOk],0);
  end;
end;

FileExists(SaveFileDialog.FileName)

for i:=Low(Vector) to High(Vector) do
    begin
      MemoResult.Lines.Add('X[' + IntToStr(i + 1) + ']=' + FloatToStrF(Vector[i],ffGeneral,5,5));
      StringGridEquals.Cells[1,i]:=FloatToStrF(Vector[i],fffixed,5,3);
    end;

procedure TMainForm.FileSaveClick(Sender: TObject);
var
  f:TextFile;  //файл со значениями
  n:integer;  //размерность матрицы
  buf:double;  //буферная переменная
  i,j:integer;  //счетчики цикла
  
  //Внимание! Эта переменная перекрывает одноимённую глобальную переменную (если она есть)
  Vector:TVector;  //одномерный массив, который надо записать в файл
begin
  ...
  //В коде переменная (массив) Vector не инициализируется, значит массив Vector является пустым.

procedure TForm1.Button6Click(Sender: TObject);
begin
 
if MySaveDlg.Execute then
begin
Assignfile(MyTextF,MySaveDlg.FileName);
rewrite(MyTextF);
closefile(MyTextF);
Memo2.Lines.SaveToFile(MySaveDlg.FileName);
end;

.....
 
var
  Form1: TForm1;
  MyTextF:TextFile;
implementation
 
{$R *.dfm}
.......
 
procedure TForm1.Button1Click(Sender: TObject);
Var
i:integer;
begin
//записываем наш масив в memo1
//конвертируем масив, допустим масив типа integer
for i:=1 to High(Vector) do
memo1.Text:=memo1.Text+inttostr(Vector[i]);
 
if MySaveDlg.Execute then 
begin
Assignfile(MyTextF,MySaveDlg.FileName);
rewrite(MyTextF);
closefile(MyTextF);
Memo1.Lines.SaveToFile(MySaveDlg.FileName); //из memo1 в текст.файл
end;

Assignfile(MyTextF,MySaveDlg.FileName);
rewrite(MyTextF);
closefile(MyTextF);

procedure TMainForm.FileSaveClick(Sender: TObject; Vector:TVector);

for i:=Low(Vector) to High(Vector) do
    begin
      MemoResult.Lines.Add('X[' + IntToStr(i + 1) + ']=' + FloatToStrF(Vector[i],ffGeneral,5,5));
      StringGridEquals.Cells[1,i]:=FloatToStrF(Vector[i],fffixed,5,3);
    end;