Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];

Вниз

При открытии файла через OpenDialog имя файла не сохраняется   Найти похожие ветки 

 
snake-as ©   (2009-02-05 06:20) [0]

Здравствуйте. Такая проблема: Есть Edit1, OpenDialog1. При нажатии на кнопке эдит получает имя файла
if OpenDialog1.Execute then
  Edit1.Text := OpenDialog1.Filename

Затем после нажатия определенной кнопки, я сохраняю значение в файл структуры, в которой есть свойство типа ShortString

Record1.str := Edit1.Text
WriteToFile

При открытии я читаю это значение
ReadFromFile
Edit1.TExt := Record1.str
Но эдит оказывается пустой. Причем при отладке четко видно, что он читает то, что нужно и записывает тоже. А когда вручную текст вводишь, без Опендиалога, то сохранение проходит успешно. Подскажите, пожалуйста, в чем проблема.


 
snake-as ©   (2009-02-05 06:40) [1]

Через ини файл нормально сохраняется. И все же, в чем проблема, не подскажете? Очень интересно.


 
anonims   (2009-02-05 08:24) [2]

посмотри как будет сохранено каждое поле, сделай выводы
trec=record
 str: string[200];
 strx: string;
end;


 
snake-as ©   (2009-02-05 09:01) [3]

В каком смысле?


 
Медвежонок Пятачок ©   (2009-02-05 09:09) [4]

Ошибка внутри ReadFromFile и WriteToFile


 
snake-as ©   (2009-02-05 10:46) [5]

Нет, ошибки нет, на 200 % уверен. Когда в ReadFromFile смотрю через отладчик, там есть строка
Edit1.Text := Record1.Filename;
Причем FileName здесь равен требуемому значению. А после присваивания все равно пусто.


 
Anatoly Podgoretsky ©   (2009-02-05 10:57) [6]

Значит далее присваивается Edit1.Text := "";
Отладчик у тебя вроде бы есть, почему бы не посмотреть далее, где оно теряется.


 
anonims   (2009-02-05 10:58) [7]

в том смысле что в свой record добавить поле недостающего типа string|string[200] выполнить над каждым полем  одинаковые операции :=Edit1.Text посмотреть отладчиком и т.п. и понять результаты наблюдений


 
Anatoly Podgoretsky ©   (2009-02-05 10:58) [8]

Кстати, а зачем ты смотришь Record1.Filename, а пишешь в Record1.Str?


 
snake-as ©   (2009-02-05 11:23) [9]

Это просто пример. У меня там это свойство как-то по-другому называется. Это у меня второй раз уже такая проблема. Я посмотрел в нете, не у одного меня. Только нормального пояснения никто так и не дал на других сайтах.


 
Anatoly Podgoretsky ©   (2009-02-05 11:28) [10]

> snake-as  (05.02.2009 11:23:09)  [9]

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


 
clickmaker ©   (2009-02-05 11:30) [11]

> Это просто пример. У меня там это свойство как-то по-другому
> называется

то есть даже не помнишь как?
пока не выложишь сюда нормальный код, именно тот, который отлаживаешь, а не по памяти, тебе тут вряд ли помогут


 
Плохиш ©   (2009-02-05 13:46) [12]


> snake-as ©   (05.02.09 11:23) [9]

Тут, как говорят на автомобильных форумах, надо сменить прокладку.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.107 c
15-1230126644
@!!ex
2008-12-24 16:50
2009.03.29
Lua работа с внешними классами как со своими родными


2-1233240872
Fonts
2009-01-29 17:54
2009.03.29
Про фонты дисплея


2-1233905740
Unknown user
2009-02-06 10:35
2009.03.29
В Delphi5 не генерируются исключения в потоках?


2-1233895829
des
2009-02-06 07:50
2009.03.29
Как отловить ошибку 405?


15-1233240162
@!!ex
2009-01-29 17:42
2009.03.29
Самый лучший фильм 2





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский