Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.10.2010, 21:51   #1
misher
Участник клуба
 
Аватар для misher
 
Регистрация: 26.05.2010
Сообщений: 1,648
По умолчанию OpenDialog и Edit

При открытии файла .txt прописывает в Memo только первую строку...Как сделать так чтобы октрывалась все?
Код:
procedure TForm1.sButton3Click(Sender: TObject);
var

  F: TextFile;
  S:  string;

begin
  if sOpenDialog1.Execute then
  begin
    AssignFile(F, sOpenDialog1.FileName);
    Reset(F);
    Readln(F, S);
    sMemo1.Text := S;
    CloseFile(F);
  end;


end;
Простите, в названии темы перепутал Edit с Memo
This world will never be What I expected (c)

Последний раз редактировалось misher; 14.10.2010 в 21:57.
misher вне форума
Старый 14.10.2010, 21:53   #2
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Код:
While not Eof(F)
И как Вы собираетесь написать в edit многострочный текст? Юзайте Memo. А у него есть LoadFromFile.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума
Старый 14.10.2010, 22:00   #3
misher
Участник клуба
 
Аватар для misher
 
Регистрация: 26.05.2010
Сообщений: 1,648
По умолчанию

я перепутал с Memo
This world will never be What I expected (c)
misher вне форума
Старый 14.10.2010, 22:08   #4
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Достаточно грамотный код:
Код:
OpenDialog1.FileName := '';
OpenDialog1.Execute;
If OpenDialog1.FileName <> '' Then
Begin
 If FileExists(OpenDialog1.FileName) Then
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
End
 Else
//Ничего не выбрано, диалог был завершен жмаканьем по CANCEL
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума
Старый 14.10.2010, 22:16   #5
misher
Участник клуба
 
Аватар для misher
 
Регистрация: 26.05.2010
Сообщений: 1,648
По умолчанию

Цитата:
Достаточно грамотный код:
Код:

OpenDialog1.FileName := '';
OpenDialog1.Execute;
If OpenDialog1.FileName <> '' Then
Begin
If FileExists(OpenDialog1.FileName) Then
Memo1.Lines.LoadFromFile(OpenDialog 1.FileName);
End
Else
//Ничего не выбрано, диалог был завершен жмаканьем по CANCEL
Спасибо, ещё вопросик: я писал похожий даже сильно похожий на этот код и когда запускал прогу почему-то вот эта строка
Цитата:
Memo1.Lines.LoadFromFile(OpenDialog 1.FileName);
не срабатовала(она такае же была)...К сожалению код представить не могу, но вдруг похожие вопросы были и вы знаете из-за чего это могло случиться?
This world will never be What I expected (c)
misher вне форума
Старый 15.10.2010, 21:53   #6
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Как вариант - вы не вызвали OpenDialog перед этим.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума
Старый 15.10.2010, 23:00   #7
misher
Участник клуба
 
Аватар для misher
 
Регистрация: 26.05.2010
Сообщений: 1,648
По умолчанию

Цитата:
вы не вызвали OpenDialog перед этим
если я правильно понял, то я его добавил на форму. Или вы что-то другое имели ввиду?
This world will never be What I expected (c)
misher вне форума
Старый 16.10.2010, 00:40   #8
dmitriegorovih
Ещё не
Форумчанин
 
Аватар для dmitriegorovih
 
Регистрация: 04.01.2010
Сообщений: 517
По умолчанию

Можно и так
Код:
OpenDialog1.FileName:='';
if OpenDialog1.Execute then begin
memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
Цитата:
если я правильно понял, то я его добавил на форму
нет имелось в веду имхо OpenDialog1.Execute;
Воображение важнее, чем знания. (Albert Einstein)
dmitriegorovih вне форума
Старый 16.10.2010, 10:09   #9
misher
Участник клуба
 
Аватар для misher
 
Регистрация: 26.05.2010
Сообщений: 1,648
По умолчанию

Цитата:
нет имелось в веду имхо OpenDialog1.Execute;
Вроде тоже было...
This world will never be What I expected (c)
misher вне форума
Старый 16.10.2010, 10:13   #10
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Строчка
Цитата:
Код:
if OpenDialog1.Execute then
по-русски означает: "Если диалог открыт(или вызван), то...". А эта строчка
Цитата:
Код:
OpenDialog1.Execute;
не делает то, что надо
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
OpenDialog Smerch66 Общие вопросы Delphi 11 27.03.2010 10:08
БД и OpenDialog alexeybest БД в Delphi 3 17.02.2010 09:34
OpenDialog Cabyrc БД в Delphi 4 05.04.2009 11:56
OpenDialog Андрей= Компоненты Delphi 6 03.05.2008 15:06
OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect]; necky Компоненты Delphi 2 11.08.2007 12:53