Цитата:
|
Сообщение от fofka
Доброго дня.
Есть функция сохранения в текстовый файл. Все работает, сохраняет. Но если у меня уже есть текстовый документ, допустим "Документ1.txt" и я сохраняю опять как Документ1, то получаю "Документ1.txt.txt".То есть получаю двойное расширение. Как мне этого избежать?
Заранее благодарю.
|
Все из-за того что какое бы небыло имя файла Вы все равно добавляете в него расширение... Как-то так попробуй:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
SaveDialog1.Filter:='Текстовый документ (*.txt)|*.txt';
if not SaveDialog1.Execute then
Exit
else
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;