Текстовый файл. Что я делаю не так?

[northener]

Значит в файле менее двух строк.

[Serge_Bliznykov]

Сообщение от Lana21

Текстовый файл у меня лежит в одном каталоге с проектом Delphi, там же, куда сохраняется и .exe при компилировании. Я так уже делала и все работало, так что дело не в этом.

Вы зря спорите.
Добавьте в ваш код получение пути самого .exe файла, вот тогда и доказывайте, что дело в не в этом:

IncludeTrailingBackslash( ExtractFilePath(Application.ExeName))

var
   F : TStringsList;
begin
   IndStr := IndStr + 1;{IndStr и IndKey это глобальные 
                     переменные,   объявленные в разделе public}
   F := TStringList.Create();
   F.LoadFromFile(ExtractFilePath(Application.ExeName)+'Prey.txt');
   if IndStr < F.Count then
       F.Strings[IndStr] := IndKey
   else
       ShowMessage('В файле недостаточно строк для замены!');
   F.Add(IndKey);
   F.SaveToFile(ExtractFilePath(Application.ExeName)+'Prey.txt');
   F.Free;
end;

[Lana21]

Сообщение от Serge_Bliznykov

Вы зря спорите.
Добавьте в ваш код получение пути самого .exe файла, вот тогда и доказывайте, что дело в не в этом:

IncludeTrailingBackslash( ExtractFilePath(Application.ExeName))

var
   F : TStringsList;
begin
   IndStr := IndStr + 1;{IndStr и IndKey это глобальные 
                     переменные,   объявленные в разделе public}
   F := TStringList.Create();
   F.LoadFromFile(ExtractFilePath(Application.ExeName)+'Prey.txt');
   if IndStr < F.Count then
       F.Strings[IndStr] := IndKey
   else
       ShowMessage('В файле недостаточно строк для замены!');
   F.Add(IndKey);
   F.SaveToFile(ExtractFilePath(Application.ExeName)+'Prey.txt');
   F.Free;
end;

Так зачем мне код получения пути .exe файла, я и так знаю где он? Я уже работала с текстовыми файлами и до этого все получалось.

[BDA]

'Prey.txt' - относительный путь
ExtractFilePath(Application.ExeName )+'Prey.txt' - абсолютный путь

Лучше задайте абсолютный путь, чтобы точно "попадать" по нужному файлу.
Мы стараемся отсечь все возможные проблемы, но Вы почему-то упираетесь

Вы привыкли копать лопаткой. Очередное задание состоит в рытье котлована под небоскреб. Вам советуют взять экскаватор, но Вы упорно продолжаете пользоваться лопаткой - "до этого все получалось". Пример сильно утрирован.

[Serge_Bliznykov]

Сообщение от Lana21

Так зачем мне код получения пути .exe файла, я и так знаю где он?

Вы, вероятно, не обратили внимание, там ещё добавлена проверка на количество прочитанных строк:

if IndStr < F.Count then
       F.Strings[IndStr] := IndKey
   else
       ShowMessage('В файле недостаточно строк для замены!');

Сообщение от Lana21

Я уже работала с текстовыми файлами и до этого все получалось.

ну, отлично. значит, и в этот раз всё получится!

Желаю успехов!

[Lana21]

Сообщение от BDA

'Prey.txt' - относительный путь
ExtractFilePath(Application.ExeName )+'Prey.txt' - абсолютный путь

Лучше задайте абсолютный путь, чтобы точно "попадать" по нужному файлу.
Мы стараемся отсечь все возможные проблемы, но Вы почему-то упираетесь

Еще раз: я раз сто подключалась к текстовым файлам по относительному пути и все прекрасно получалось. И да, в любом случае, ваш вариант все равно не работает.

[BDA]

Сообщение от Lana21

И да, в любом случае, ваш вариант все равно не работает.

Ну тогда начинайте осваивать отладчик дельфи. Понаставьте брейков и смотрите, исполняется ли данный участок кода, и чем заполнены переменные.

[Serge_Bliznykov]

И да, в любом случае, ваш вариант все равно не работает.

пройдесь в пошаговой отладке, посмотрите, что происходит.
Может быть, до данных строчек вообще выполнение не доходит!

p.s. выложите исходники проекта(можно тестового), будет повод для конкретного разговора!

[Аватар]

Еще раз: я раз сто подключалась к текстовым файлам по относительному пути и все прекрасно получалось.

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

[Lana21]

Короче я все проверила. Все дело вот в этом:

F.Strings[IndStr] := IndKey;

Программа почему-то упрямо не хочет писать данные в строку обозначенную переменной. Кокретным числом - пожалуйста, сколько угодно. Переменной - низзя!