Работа с текстовыми файлами

[Саня_]

Мне нужно проверить, существует ли в определенной папке (на рабочем столе к примеру) текстовый файл с названием "Результаты.txt". Если существует, то добавить в него несколько строк. Если не существует - создать и добавить несколько строк.

Помогите пожалуйста реализовать)

[Человек_Борща]

TSearchRec,FindFirst,FindNext,FindC lose,TStringList,рекурсия - все что тебе надо. Гоголь в помощь.

[FaTaL]

Если имя файла заранее определено то

var
 sl : TStringList;
begin
sl :=TStringList.Create;
If FileExists ('Путь к файлу\Имя файла.txt') then
  sl.LoadFromFile ('Путь к файлу\Имя файла.txt');
//Дальше добавляешь в файл всё что нужно
sl.Add ('Бу-га-га');
sl.SaveToFile ('Путь к файлу\Имя файла.txt');
sl.free;
end;

[Serge_Bliznykov]

если папка и имя файла известны, тогда достаточно проверить его наличие функцией FileExists(ИмяФайла)

а в остальном - согласен с Человеком_Борща:

const
   fName = 'ПолныйПутьКФайлу.txt';
var TS : TStringList;
begin
   TS := TSrtingList.Create;
   try
     If FileExists(fName) then TS.LoadFromFile(fName);
     TS.Append('-- добавлена строка 1');
     TS.Append('-- добавлена строка 2');
     TS.SaveToFile(fName); 
   finally
      FreeAndNil(TS);
   end;

[Саня_]

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

Если имя файла заранее определено то

var
 sl : TStringList;
begin
sl :=TStringList.Create;
If FileExists ('Путь к файлу\Имя файла.txt') then
  sl.LoadFromFile ('Путь к файлу\Имя файла.txt');
//Дальше добавляешь в файл всё что нужно
sl.Add ('Бу-га-га');
sl.SaveToFile ('Путь к файлу\Имя файла.txt');
sl.free;
end;

большое спасибо)))))