VPF::Забрать имя и расширение - Форум программистов

LAGOX

Дата 29.4.2009, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 14.2.2009

Репутация: нет
Всего: нет

Здравствуйте. Как можно забрать имя файла(ну это понятно что с помощью-ExtractFileName(SaveDialog1.FileName)), а как расширение? Мне нужно чтобы при сохранеии нового файла, в кепшене формы вылезло имя и расширение файла.

Keeper89

Дата 29.4.2009, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Вообще, функция ExtractFileName уже возвращает имя файла с расширением.

Код


function ExtractFileName(const FileName: string): string;
//Extracts the name and extension parts of a file name.

Но если вам нужно только расширение файла - функция

Код


function ExtractFileExt(const FileName: string): string;

Пример:

Код


var
  fileName, extOnly: String;
begin
  fileName := ExtractFileName(SaveDialog1.FileName);
  extOnly  := ExtractFileExt(SaveDialog1.FileName);
end.

Это сообщение отредактировал(а) Keeper89 - 29.4.2009, 20:04

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

LAGOX

Дата 29.4.2009, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 14.2.2009

Репутация: нет
Всего: нет

Когда открываю, т.е. если:

Код


vvod.Lines.LoadFromFile(OpenDialog1.FileName);

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

Код


vvod.Lines.SaveFromFile(SaveDialog1.FileName);

не проходит

Keeper89

Дата 29.4.2009, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(LAGOX @ 29.4.2009, 20:18

)

SaveFromFile

Наверное ошиблись - SaveToFile.

Цитата(LAGOX @ 29.4.2009, 20:18

)

А я хочу, когда создал новый файл, внес изменения, сохраняю его под новым именем, и как только сохранил, чтобы в кепшене было имя с расширением

Сохраните файл, а потом его загрузите (Вам нужна операция Save As как я понимаю):

Код


procedure TForm1.SaveAsClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
    RichEdit1.Lines.LoadFromFile(SaveDialog1.FileName);
    Caption := ExtractFileName(SaveDialog1.FileName);
  end;
end;

P.S. Можно хранить имя текущего файла в переменной, тогда это будет выглядеть так:

Код


procedure TForm1.SaveAsClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    curFile := SaveDialog1.FileName;
    RichEdit1.Lines.SaveToFile(curFile );
    Caption := ExtractFileName(curFile);
  end;
end;

Это сообщение отредактировал(а) Keeper89 - 29.4.2009, 20:42

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »