[fofka]

Доброго дня.
Есть функция сохранения в текстовый файл. Все работает, сохраняет. Но если у меня уже есть текстовый документ, допустим "Документ1.txt" и я сохраняю опять как Документ1, то получаю "Документ1.txt.txt".То есть получаю двойное расширение. Как мне этого избежать?
Заранее благодарю.

procedure TForm2.Button8Click(Sender: TObject);
 begin
  if not SaveDialog1.Execute then
   Exit
   else
  Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
 end;

[Assistant]

Код:

procedure TForm2.Button8Click(Sender: TObject);
begin
  if not SaveDialog1.Execute then
    Exit
  else
    Memo1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'')+'.txt');
end;

[Janom]

Сообщение от 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;

[M.A.D.M.A.N.]

Код:

if SameStr(LowerCase(ExtractFileExt(FileName)), 'txt' {не помню, с точкой или без нее}) then
  FileName := FileName + '.txt';

[NumLock]

в инспекторе у SaveDialog1 присвой DefaultExt = "txt" (без кавычек, просто txt), ну и код изменить на:

Код:

procedure TForm2.Button8Click(Sender: TObject);
 begin
  if not SaveDialog1.Execute then
   Exit
   else
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);
 end;

[fofka]

Благодарю ВСЕХ за оперативную помощь! Сделал как предложил Assistant все прекрасно работает.