Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> открытие файла .txt, нужна помощь 
:(
    Опции темы
freeaccess
  Дата 26.5.2008, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Всем доброго времени суток!

у меня есть на форме edit 1 , memo 1 и диалоговое окно opendialog и bitbtn1 соответственно. у меня так сделано - когда нажимаю кнопку то выскакивает диалоговое окно для открытия файла(блокнота) я открываю его и содержимое блокнота помещается в memo . теперь вопрос - как мне сделать так чтобы имя того блакнота , который я открываю помещалось в Edit1.Text ?
PM MAIL   Вверх
THandle
Дата 26.5.2008, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Это?

Код

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then
    exit;
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  Edit1.Text := OpenDialog1.FileName;
end;
PM   Вверх
Rodman
Дата 26.5.2008, 18:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122
Код

if(OpenDialog.Execute)then
begin
     Memo.LoadFromFile(OpenDialog.FileName);
     Memo.Add(OpenDialog.FileName);
end;



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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
freeaccess
  Дата 26.5.2008, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(THandle @ 26.5.2008,  18:43)
Это?

Код

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then
    exit;
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  Edit1.Text := OpenDialog1.FileName;
end;




что то не работает
PM MAIL   Вверх
Exai1e
Дата 26.5.2008, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 30
freeaccess, все прекрасно работает smile


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
THandle
Дата 26.5.2008, 22:04 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Цитата(freeaccess @  26.5.2008,  22:01 Найти цитируемый пост)

что то не работает 


И в чем выражается?

Хорошо, может ты обработчик не так создал...

Создай новый проект. Брось на форму свои компоненты(TBitBtn, TEdit, TMemo, TOpenDialog), два раза щелкни по BitBtn, и в открывшемся обработчике OnClick пиши:

Код

  if not OpenDialog1.Execute then
    exit;
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  Edit1.Text := OpenDialog1.FileName;


Запускай программу. Жми кнопку. Выбирай файл. Жми в диалоге открыть(или что там?). Смотри результат.
PM   Вверх
freeaccess
Дата 26.5.2008, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
то я что-то напутал , всё работает. но вот только одна проблемка - в edit кроме имени помещается ещё и путь к файлу который я открываю , а мне нужно чтобы только имя файла и всё

Это сообщение отредактировал(а) freeaccess - 26.5.2008, 23:34
PM MAIL   Вверх
Qu1nt
Дата 26.5.2008, 23:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 22
Всего: 50
Код

  Edit1.Text := ExtractFileName(OpenDialog1.FileName);
PM MAIL   Вверх
freeaccess
Дата 27.5.2008, 00:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
почти , а так ещё чтобы не показывало раширение - .txt , только имя
PM MAIL   Вверх
Данкинг
Дата 27.5.2008, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(freeaccess @ 27.5.2008,  01:10)
почти , а так ещё чтобы не показывало раширение - .txt , только имя

Код

Edit1.Text := stringreplace(ansiuppercase(ExtractFileName(OpenDialog1.FileName)),'.TXT','',[rfReplaceAll]);






--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
mr.Anderson
Дата 27.5.2008, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 3
Всего: 128
Данкинг, более универсально:
Код

Edit1.Text := AnsiLeftStr( ExtractFileName(OpenDialog1.FileName), AnsiPos( '.', ExtractFileName(OpenDialog1.FileName))-1 );



--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
freeaccess
Дата 27.5.2008, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
УРа наконец всё работает. Спасибо большое всем!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1344 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.