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

[nataly_ukr]

Я наверное чего-то не понимаю в этой технологии Я думала
SL.LoadFromFile('songs.txt'); считывает только одну запись,
Запуталась совсем

[nataly_ukr]

SL.LoadFromFile('songs.txt');
tab:=Chr(9);
For x:=0 to SL.Count-1 do
begin
SL.Delimiter:=tab;
SL.DelimitedText:=SL.Text;
Readln;
end;

Поменяла программу , выдает ошибку i/o на строке REadln

[nataly_ukr]

procedure TForm1.Button1Click(Sender: TObject);
var
SL:TStringList;
i,x2:integer;
tab: char;
r1,r2,r3 : string;
begin
SL:=TStringList.Create;
SL.LoadFromFile('songs.txt'); // грузим из файла
x2:=SL.Count;
Edit1.Text:=IntToStr(x2); // выдало правильно 10 строк
// хочу к ним обратиться по одной
For i:=0 to x2-1 do
begin
tab:=Chr(9);
SL.Delimiter:=tab; // числа в строке рзделены Tab
SL.DelimitedText:=SL.Text; // разбиваем строку на отдельные части
// ВСЕГО 5 ЧАСТЕЙ

Edit1.Text:=Sl[8]; // ВЫДАЕТ ДАННЫЕ ИЗ СЛЕДУЮЩЕЙ СТРОКИ , ХОТЯ ЕЕ ЕЩЕ НЕ ЧИТАЛИ
Readln; // переход на следующую строку ВЫДАЕТ ОШИБКУ I/O ERROR 6
end;
end;

НАЧАЛО И КОНЕЦ СТРОКИ РАЗДЕЛИТЕЛЬ tab . то есть два подряд TAB между строками Подскажите что не так

[Alter]

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

Правильно вместо SL: TStrings; нужно SL: TStringList;

У меня Delphi 7 Rus.
По поводу SL :TStrings, вот что я пишу(и работает без сбоев).

Var SL :TStrings;
begin
 SL := TStringList.Create;
  Try
 SL.Clear;
 {Что-то делаем}
  Finally
 SL.Free;
  End;
end;

И ещё по поводу включённых в строки символов (#13, #10, #9), то они не
дают переноса(заменяются квадратиками или другими знаками, когда Add(text)). И пишутся в одну строку. Если надо проще, то используйте TMemo. Сделав его невидимым.

По поводу Readln здесь, его пользуйте в консоле.

И уточните как выглядят данные в файле. Визуально легче понять, что надо.