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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2011, 12:20   #1
city32
Пользователь
 
Регистрация: 14.10.2011
Сообщений: 48
По умолчанию Значения для Copyfail из текстового документа

Здравствуйте. Ситуация такая.
Есть программа в которой путь к файлу базы данных Access сохраняется в текстовом файле.
Надо чтобы значение первого копируемого файла бралось из этого текстового файла

Код:
procedure TForm1.BackUp2Click(Sender: TObject);
var
sDir : string;
st:TStrings;
begin
st:=TstringList.Create;
st.LoadfromFile('c:\Program Files\******\bd.txt');
edit1.Text:=st.Text;
sDir := 'd:\------\BackUp';
if NOT DirectoryExists(sDir) then ForceDirectories(sDir);
if not CopyFile(Pchar(edit1.Text),'d:\000000\BackUp\voenkomat.MDB_',true)
then ShowMessage('Ошибка копирования !');
  end;
При таком коде все время выдается "Ошибка копирования"
При этом в edit отображается нормальный путь из файла, только на конце почему то две палки ||. Где искать ошибку
city32 вне форума Ответить с цитированием
Старый 30.11.2011, 12:27   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

У вас в edit1.Text символы перевода каретки и строки попали
Попробуйте
Код:
edit1.Text:=st.Strings[0];
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 30.11.2011, 12:30   #3
city32
Пользователь
 
Регистрация: 14.10.2011
Сообщений: 48
По умолчанию

Огромное спасибо,заработало, а то я уже 2 день голову ломаю
city32 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Значения для Copyfail из текстового документа city32 Помощь студентам 0 29.11.2011 17:06
как из любого текстового документа вывести данные в Memo1 elf01 C++ Builder 1 18.11.2011 16:39
изменить формат текстового документа SLelya Помощь студентам 1 25.08.2011 17:40
Delphi. Какой компонент лучше использовать для создания текстового документа из элементов. Makroon Помощь студентам 3 14.07.2011 12:10
Как копировать код программы из текстового документа в паскаль? stasig Помощь студентам 4 24.12.2008 00:52