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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2009, 16:08   #11
TriCERATOP
Пользователь
 
Аватар для TriCERATOP
 
Регистрация: 17.11.2008
Сообщений: 30
По умолчанию

нет.
указываю полный путь - все равно в ЛистБокс ничего не загружается.
а просто без иф все грузится
Если есть проблемы -значит мы живем...
TriCERATOP вне форума Ответить с цитированием
Старый 28.05.2009, 16:10   #12
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Это значит что:
Код:
label2.caption <> 'русский'

И mihali4 правильно сказал, надо полный путь использовать:
Код:
if label2.caption='русский' then ListBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0)) + '01rus. txt');
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Старый 28.05.2009, 16:18   #13
TriCERATOP
Пользователь
 
Аватар для TriCERATOP
 
Регистрация: 17.11.2008
Сообщений: 30
По умолчанию

тоже нет.
Суть в том, что оператор иф не "видит" условия
if label2.caption='русский'...
Если есть проблемы -значит мы живем...
TriCERATOP вне форума Ответить с цитированием
Старый 28.05.2009, 16:27   #14
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Весь обработчик события покажите.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Старый 28.05.2009, 16:31   #15
TriCERATOP
Пользователь
 
Аватар для TriCERATOP
 
Регистрация: 17.11.2008
Сообщений: 30
По умолчанию

Код:
procedure TForm2.FormCreate(Sender: TObject);
begin
if label2.caption='Пиветствие' then ListBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data/01/rus.txt');

end;

end.
А значение на label2 передается о нажатию кнопки на форме1 caption - выбранная строка в Комбобоксе
Если есть проблемы -значит мы живем...
TriCERATOP вне форума Ответить с цитированием
Старый 28.05.2009, 16:35   #16
TriCERATOP
Пользователь
 
Аватар для TriCERATOP
 
Регистрация: 17.11.2008
Сообщений: 30
По умолчанию

Цитата:
'Пиветствие'
это тут опечатка в программе все правильно)
Если есть проблемы -значит мы живем...
TriCERATOP вне форума Ответить с цитированием
Старый 28.05.2009, 16:38   #17
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Попробуйте посмотреть, вообще правильно работает if .. then
Код:
procedure TForm2.FormCreate(Sender: TObject);
begin
if label2.caption='Пиветствие' then 
begin
 ShowMessage(''); //Если покажется сообщение, то работать должно правильно
 ListBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'data/01/rus.txt');
end;
end;
или брекпойнтами, как хотите.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Старый 28.05.2009, 16:41   #18
TriCERATOP
Пользователь
 
Аватар для TriCERATOP
 
Регистрация: 17.11.2008
Сообщений: 30
По умолчанию

сообщение не показывается.
а можно осуществить передачу данных из стринг-переменной на форме1 в стринг-переменную на форме2 ?
Если есть проблемы -значит мы живем...
TriCERATOP вне форума Ответить с цитированием
Старый 28.05.2009, 16:41   #19
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Поставьте точку останова (брэкпойнт) на вашу строку
if label2.caption=...
и посмотрите значение label2.caption.
Такие вещи не ставятся в событие СОЗДАНИЯ ФОРМЫ. У вас, наверное, еще лэйблу не присвоен капшен, а вы уже с чем-то его сравниваете...
Перенесите-ка ваш обработчик на событие Form.Activate...
mihali4 вне форума Ответить с цитированием
Старый 28.05.2009, 16:44   #20
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Цитата:
сообщение не показывается.
Значит точно label2.caption<>'Пиветствие'
Код:
а можно осуществить передачу данных из стринг-переменной на форме1 в стринг-переменную на форме2 ?
Надо во второй форме переменную разместить в секции public:
Код:
  private
    { Private declarations }
  public
    { Public declarations }
    str: string;
  end;
И в первой форме писать так:
Код:
...
 var
  StrInFormOne: string;
...
 Form2.str := StrInFormOne;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как текстовый файл в формате word 2007 переделать в файл в формате ZAY JULIA Microsoft Office Word 13 09.06.2010 19:43
Текстовый файл ponchikpk Помощь студентам 4 29.03.2009 19:35
Текстовый файл BuT@JL Помощь студентам 5 03.03.2009 21:32
текстовый файл werser Общие вопросы Delphi 3 06.06.2008 08:42
Текстовый файл в текстовый массив Kimimaru Общие вопросы C/C++ 1 02.12.2007 11:55