Неудается найти файл TStringlist

[Stilet]

Я уже сказал - неправильно имя файла к примеру написал. Причин может быть море.
Прикрепляй свой проект с файлом сюда.

[Shouldercannon]

Вот тебе рабочий пример, если и он не будет работать у тебя, то развожу руки.

[true1]

Такое у меня только в 7 Делфи, в 2010 все нормально, я переименовывал этот файл в 1.txt и все равно тоже самое было в 7, просто мне это нужно было сделать именно в 7.

[artemavd]

А зачем создавать переменную TStringList, грузить в него строки, потом в нее дописывать новые строки? Можно проще сделать: создать переменную TStringList, добавлять в нее строки и сохранить содержимое в файл уже.

[true1]

Я же наоборот вывожу из файла строки..

[artemavd]

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

procedure TForm1.FormCreate(Sender: TObject);
var
str:TStringlist;
i:integer;
tmp: string;
begin
  str:=TStringlist.Create;
  str.LoadFromFile('commands.txt');
  if str.Count = 0 then
  begin
   str.Add('...');
   .....
   str.SaveToFile('commands.txt');
   //
  end;
 str.Free; //не забывай переменную освобождать!

[Stilet]

Можно проще сделать: создать переменную TStringList, добавлять в нее строки и сохранить содержимое в файл уже.

Это не дописывание получится а замещение. Все предидущее содержимое файла исчезнет )

[GunSmoker]

Загрузил Opendialog но это не торт..

Напрямую указывает на проблему с текущей папкой.

[artemavd]

Это не дописывание получится а замещение. Все предидущее содержимое файла исчезнет )

Я в свое время такую проблему решил так: работал с двумя переменными TStringList. В одну грузил файл и делал проверку выше. Если > 0, то вставлял сначала текст из этой переменной, а новый текст заносил во вторую переменную TStringList, а потом объединял и сохранял в новый файл (можно в тот же).

[Stilet]

Я в свое время такую проблему решил так

Если это решило проблемы то почему бы нет )
Но я бы пожалуй так не делал. Два списка хранить... Не хоцца как-то.