Удаление пусток строки, TStringList, как???

[FleXik]

AssignFile(f, Form1.sDirectoryEdit1.Text + '\' + UpperCase(sPass) + '.txt');
ReWrite(f);
WriteLn(f, sl.Strings[i-1]);
CloseFile(f);
end;

при записи текста в файла создаеться дополнительная пустая строка, ее нужна удалять, не знаю прокатит ли Trim, если да то как его в данном случае использовать, никогда ранее не сталкивался.

[Serge_Bliznykov]

то, что Вы написали, очевидно, глупость (уж, как минимум, цикл нужен).
Поясните, что Вас не устраивает, чего Вы хотите добиться своим кодом?

рискну предположить, что Вы хотели написать так:

var 
  s : string;
.......

  AssignFile(f, Form1.sDirectoryEdit1.Text + '\' + UpperCase(sPass) + '.txt');
  ReWrite(f);
  s := sl.Text;
  if Length(s)>2 then
     Delete(s, Length(s)-1,2);
  Write(f, s);
  CloseFile(f);

[Stilet]

ее нужна удалять

Ее нужно просто не записывать:

if trim(sl.Strings[i-1])='' then begin
 AssignFile(f, Form1.sDirectoryEdit1.Text + '\' + UpperCase(sPass) + '.txt');
 ReWrite(f); 
 WriteLn(f, sl.Strings[i-1]);
 CloseFile(f);
end;

Но вообще-то у TStringList есть метод сохранения в текстовый файл, почему бы им не воспользоваться?