FreePascal.ru

procedure TForm1.Button2Click(Sender: TObject);
var S: String;
begin
if OpenDialog1.Execute then
S := ExtractFileDir(OpenDialog1.FileName);
end;

Файл остаётся без изменений. Var
F: TextFile;
Begin
AssignFile(F, OpenDialog1.FileName);
Append(F);
WriteLn(F, 'Какая ...

Не хочет он дописывать.
В 1 случае компилятору чем-то не нравится write, а во втором - нет такого типа "stringlist", а у "StrinGrid" нет функции "add"

Компонентом разумеется) Файлнейм содержит абсолютное, а я хочу получить адрес директории. Но ладно, это можно сделать простым обрезанием строки filename с конца до символа "/".
Более сложный вопрос в том, чтобы взять определённый файл из полученного каталога и дописать в его конец определённую ...

В общем делаю твикер для одной игрушки. Создал диалог сохранения файла.
Но ещё мне необходимо его активировать, прописав в главном конфиге игрушки строку вроде "exec filename.cfg" в конце.
Вопрос в том, как получить адрес каталога(можно-ли использовать диалог сохранения файла) и дописать ...