Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > глюк с Opendialog


Автор: mvdr 20.5.2005, 01:25
вобщем проблемка...
Код

if OpenDialog1.Execute then Memo2.Lines.LoadFromFile(OpenDialog1.FileName);

 for p:=1 to 8 do
  str:=copy(memo2.Lines[0],1,p);
  Edit1.Text:=edit1.Text+str;
 end;


как сделать, чтобы при загрузке файла через OpenDialog он сначала открывал его в Memo2, а потом отттуда уже в Edit и прочее. У меня он делает, но только первый символ.

Автор: ДЫМ 20.5.2005, 01:44
А у меня этот код работает. В Edit1 появляются первые 8 символов.

Автор: mvdr 20.5.2005, 01:52
а что у меня тогда не так?!

Автор: ДЫМ 20.5.2005, 01:58
Ну не знаю. Я твой код скопировал со странички и не модифицировал никак. Наверное ошибка в другом месте.

Автор: mvdr 20.5.2005, 02:03
поробовал просто без OpenDialog'a - не работает, т.е. он копирует только 1 первый символ.

Автор: ДЫМ 20.5.2005, 02:07
Мистика какая-то, у меня в Edit1 копирует 8 символов.
Ну какая ошибка может быть в строке
Код

 for p:=1 to 8 do
  str:=copy(memo2.Lines[0],1,p);
?

Ищи в другом месте.

Автор: mvdr 20.5.2005, 02:12
Беда в том, что без этой кнопочки открыть работает все нормально, а с ней - глюк.

Автор: ДЫМ 20.5.2005, 02:17
Так ты только что написал, что
Цитата
поробовал просто без OpenDialog'a - не работает, т.е. он копирует только 1 первый символ.

Автор: mvdr 20.5.2005, 02:22
нет, т.е. он копирует 1 символ, но до этого ошибки быть не моглп, т.к. работал (без кнопки сохранения)

Автор: ДЫМ 20.5.2005, 02:25
Ну тогда не знаю, получается разговор глухого со слепым. Выкладывай проект целиком или юнит отдельно - посмотрим.

Автор: Rouse_ 20.5.2005, 09:12
Что за глубокая мысль заложена вот в этом коде?

Код

 for p:=1 to 8 do
  str:=copy(memo2.Lines[0],1,p);


Переменная str 8 раз подряд переписывается заново, что аналогично коду
Код

p := 8;
str:=copy(memo2.Lines[0],1,p);

Автор: Snowy 20.5.2005, 09:19
А файл другой не пробовал? smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)