Путь к файлу(Delphi)

[CAMOBAP]

Надо сохранить/считать файл в папке с проектом , но в/из отдельной под папке/и.

[alex_fcsm]

И что вас смущает? Если имя папки не меняется то getcurrentdir+'\'+ИМЯ_ПАПКИ
Если меняется то создайте ini файл и туда прописывайте путь

[CAMOBAP]

fName := Form1.Edit1.Text;
getcurrentdir+'\'+'Название папки'
AssignFile(f,fName+'.txt');
Rewrite(f);
writeln(f,OC);
CloseFile(f);

примерно так?


Код оформляйте правильно!

[alex_fcsm]

Да, но учтите вы так затрете(или создадите) файл

fName :=getcurrentdir+'\'+'Название папки'+'\'+ Form1.Edit1.Text;

[CAMOBAP]

все так но выскакивает ошибка
missing operator or semicolon

[alex_fcsm]

Точку с запятой пропустили.Ваш код выложите

[CAMOBAP]

Ошибку поправил, но теперь файл сохраняется в папку с проектом под именем папки

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
fName := Form1.Edit1.Text;
AssignFile(f,fName+'.Txt');
Rewrite(f);
writeln(f,OC);
CloseFile(f);
Application.Terminate;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
fName :=getcurrentdir+'\'+'имя папки'+'\' Form1.Edit1.Text;
AssignFile(f,fName+'.txt');
Rewrite(f);
writeln(f,OC);
CloseFile(f);
Form3.Hide;
Form1.Show;
c:=false;
OC:=0;
end;

end.

[alex_fcsm]

fName :=getcurrentdir+'\'+'имя папки'+'\' +Form1.Edit1.Text;

[CAMOBAP]

я попробовал через open dialog, но ругается 105 ошибкой

fName := OpenDialog1.FileName;
AssignFile(f,fName);
Rewrite(f);
writeln(f,OC);
CloseFile(f);
Application.Terminate;