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

[nataly_ukr]

Есть текстовый файл Данные в строке разделены символом табуляции Нужно Обратиться к третьему полю Написала программу как в литературе Выдает ошибку в строке SL.Delimiter:=tab; // числа в строке рзделены Tab не определен идентификатор Delimiter



procedure TForm3.Button1Click(Sender: TObject);
var
SL: TStrings;
x:integer;
tab : char;
begin
SL := TStringList.Create;
x:=0;
try
while x=0 do
begin
SL.LoadFromFile('Songs.txt'); // грузим строку из файла
tab:=Chr(9);
SL.Delimiter:=tab; // числа в строке рзделены Tab
SL.DelimitedText:=SL.Text; // разбиваем строку на отдельные части
Edit1.Text=SL[3];
Readln; // если достигнут конец строки в файле, то переход на следующую строку}
showMessage('1'):
end;

end;

[dron-s]

и что за ошибка?

[nataly_ukr]

не определен идентификатор Delimiter

[Stilet]

Так не пойдет
Ты должна загружать файл в другой список
Сделай так SL,SStrDelim: TStrings;
В SL грузи файл
а в SStrDelim уже грузи каждую строку из SL, и дели ее CHR(9)

[nataly_ukr]

Так я даже откомпилировать не могу из-за этой ошибки

[Stilet]

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

[mihali4]

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

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

Вернее, вместо
SL := TStringList.Create;
нужно
SL := TStrings.Create;
а то вы объявили одно, а создаете - другое.

[Stilet]

Ну это логично, но TString абстрактен и работать в дальнейшем с ним, ИМХО, неполучится...
Пардон, если ошибаюсь...

[nataly_ukr]

Исправила , но ошибка остается Undeclared identifier "Delimiter"
Undeclared identifier "Delimited Text"

[dron-s]

вот такой код прекрастно компилится

var
  SL: TStringList;
  x:integer;
  tab : char;
begin
SL := TStringList.Create;
x:=0;
while x=0 do
  begin
    SL.LoadFromFile('songs.txt'); // грузим строку из файла
    tab:=Chr(9);
    SL.Delimiter:=tab; // числа в строке рзделены Tab
    SL.DelimitedText:=SL.Text; // разбиваем строку на отдельные части
    Edit1.Text:=SL[3];
    Readln; // если достигнут конец строки в файле, то переход на следующую строку}
  end;