Всем привет! У меня такой вопрос. Как изменить название папки на то, которое я написал в LabeledEdit1.Text?
Структура программы выглядит так:
/Папка с исполняемым файлом/done/defalt
А нужно сделать, что бы default менялось на указанное имя, которое я написал в LabeledEdit1.Text
Код:
procedure TForm8.BitBtn1Click(Sender: TObject);
var a:string;
begin
a:=LabeledEdit1.Text; // вводим название папки
RenameFile('done/default','done/a'); // изменяем название папки в директории на то, которые мы написали в LabeledEdit1.Text
end;
123.png