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

[LLIALLIJIbIK]

Скажите пожалуйста, как сделать, чтобы при сохранении можно было своё имя писать, любое.

var
vibro:TextFile;
i:integer;
begin
SaveDialog1.Filter := 'Файлы данных о вибрации|*.vib';
if SaveDialog1.Execute then begin
AssignFile(vibro,'C:\Program Files (x86)\Borland\Delphi7\Projects\values.vib');
ReWrite(vibro);
for i:=1 to 34 do
WriteLn(vibro,StringGrid1.Cells[1,i]);
CloseFile(vibro);
end;
end;

Хочу вместо values писать любое имя.

[BDA]

По идее:
AssignFile(vibro, SaveDialog1.filename);

[Yurk@]

procedure TForm1.Button1Click(Sender: TObject);
var
  vibro : TextFile;
  i : integer;
begin
  SaveDialog1.Filter := 'Файлы данных о вибрации|*.vib';
  if SaveDialog1.Execute then
  begin
    AssignFile(vibro,'C:\Program Files (x86)\Borland\Delphi7\Projects\'+ExtractFileName(SaveDialog1.FileName)+'.vib');
    ReWrite(vibro);
    for i:=1 to 34 do
      WriteLn(vibro,StringGrid1.Cells[1,i]);
    CloseFile(vibro);
  end;
end;

[LLIALLIJIbIK]

Благодарствую.

[Аватар]

А что это за прикол - запрашивать путь и имя файла, а писать в другой каталог?

[LLIALLIJIbIK]

А вот еще подскажите плз.

for i:=0 to 33 do begin
if StrToFloat(Vibrations[i])>max then
max:=StrToFloat(Vibrations[i]);
end;
min:=StrToFloat(Vibrations[0]);
for i:=1 to 33 do begin
if StrToFloat(Vibrations[i])<min then
min:=StrToFloat(Vibrations[i]);
end;
for i:=0 to 33 do begin
for j:=0 to count-1 do begin
Chart1.AddSeries(TLineSeries.Create(self));
Chart1.Series[j].MaxYValue:=max+10;          //ругается Left side cannot be assigned to
Chart1.Series[j].MinYValue:=min-10;           //ругается Left side cannot be assigned to
Chart1.Series[j].AddXY(Frequency[i],StrToFloat(vibrations[i]));
end;
end;

То есть я хочу, сделать отступы вниз и вверх на графике, чтобы получше видно было.
Нашел, что можно так делать

 Chart1.LeftAxis.SetMinMax(Chart1.Series[0].MinYValue-100,Chart1.Series[0].MaxYValue+100);

Но у меня ругается на LeftAxis Undeclared identifier

[Yurk@]

Сообщение от Аватар

А что это за прикол - запрашивать путь и имя файла, а писать в другой каталог?

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

Хочу вместо values писать любое имя.

каков вопрос - таков и ответ

[alextrof94]

Сообщение от Yurk@

каков вопрос - таков и ответ

можно просто всплывающее сообщение с едитом вывести, вместо сейвдиалога.

filename:=InputBox('Ввод','ввод имени','values');
AssignFile(vibro,'C:\Program Files (x86)\Borland\Delphi7\Projects\'+filename+'.vib');

чтото типа этого

[Yurk@]

можно просто всплывающее сообщение с едитом вывести, вместо сейвдиалога.

мсье знает толк в извращениях

[alextrof94]

Сообщение от Yurk@

мсье знает толк в извращениях

вообщето если директорию менять не надо, то мой вариант и компактнее и быстрее и правильней.