Перемещение файла с сохранением пути

[mitiay]

Возникла такая проблема.Нужно сделать две кнопки одна "перемещаем" вторая "восстанавливаем".Но нужно сделать это так допустим в папке С:\1 лежит 1.тхт 2.тхт 3.тхт при перемещении в C:\2 меняем имя и расширение допустим a.jpg b.jpg c.jpg(это кнопка "перемещаем") Теперь востанавливаем в обратном порядке чтоб из C:\2 файлы a.jpg b.jpg c.jpg в папку С:\1 с именами 1.тхт 2.тхт 3.тхт.
Пути до файлов находятся в мемо.
Буду очень благодарен вам уважаемые форумчане!

[Stilet]

допустим a.jpg b.jpg c.jpg

Сменить - сменил. По каким критериям восстановление делать?

[mitiay]

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

Сменить - сменил. По каким критериям восстановление делать?

Обратно в теже директории с таким же именем восстановить

[FaTaL]

Вы не знаете функцию перемещения файлов? Вот например MoveFile

[mitiay]

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

Вы не знаете функцию перемещения файлов? Вот например MoveFile

Это я знаю!Как сделать чтоб программа сохраняла пути и имена файлов,потом перемещала и переименовывала.И при востановлении брала пути и переименовывала файлы в те же имена что были и прежде

[Аватар]

Как сделать чтоб программа сохраняла пути и имена файлов

Ну разумеется сохранять старые и новые имена, например в текстовом файле

[mitiay]

Как сделать чтоб путь брался с memo перемещался в папку с именем 1 2 3 4 5 (цифрами)

var
i:integer;
oSL : TStringList;
begin
MoveFile(string(memo1.Lines)) , PChar('C:\'+oSL[i]),False);
end;

Не работает(

[SLAUR]

MoveFile(string(memo1.Lines[i])) , PChar('C:\'+oSL[i]),False);

[mitiay]

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

MoveFile(string(memo1.Lines[i])) , PChar('C:\'+oSL[i]),False);

[Error] Unit1.pas(127): Incompatible types: 'String' and 'PAnsiChar'

[Stilet]

MoveFile(PChar(memo1.Lines[i])) , PChar('C:\'+oSL[i]),False);