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

[mihali4]

И такой тоже:
var SL: Tsrtings;
begin
SL:=TStrings.Create;
SL.Delimiter:=Chr(9);
и так далее...
SL.Free;
...
Откуда там ошибка может быть?

[nataly_ukr]

ВСе та же ошибка, у меня Delphi 5 Может там нет Delimited

[Stilet]

StringList пробовала?
Какие модули у тебя подключены? Может у тебя денить переопределены такие типы.

[dron-s]

ВСе та же ошибка, у меня Delphi 5 Может там нет Delimited

обновись хотя бы до семёрки
жить станет легче

[nataly_ukr]

Полностью вставила программу Dron_s - ошибка та же
Stilet : "Какие модули у тебя подключены? Может у тебя денить переопределены такие типы."
Форма совершенно пустая, одна кнопка для обработки массива и все.
Прийдется писать все ручками , а жаль. Поищу еще в инете , может где-то найду подобное Попозже напишу о результатах своей борьбы с Delimiter

[dron-s]

delimiter - это свойства класса TStringList
если тебя в свойствах класса нет такого то значит пора обновить Delphi
да, и ещё проверь, подключен ли у тебя модуль Classes в Uses?

[nataly_ukr]

А этот класс должен появляться в тексте программы типа TStringList = class(TStrings) А то у меня нет

[dron-s]

просто подключи модель Classes и пробуй заново компилировать

[nataly_ukr]

Установила Делфи 7 Теперь новая проблема
При подсчете количества строк получаю 0 Файл TXT . Числа в строке разделены значком табуляции, он стоит так же в начале и конце строки Подскажите , что делать

procedure TForm1.Button1Click(Sender: TObject);
  var
 SL:TStringList;
 x,x2:integer;
 tab : char;
begin
    SL:=TStringList.Create;
    x2:=SL.Count;
    if x2=0 then  ShowMessage('0');

  For x:=0 to  SL.Count-1 do
 begin
      ShowMessage('1');
    SL.LoadFromFile('songs.txt'); // ?????? ?????? ?? ?????
    tab:=Chr(9);
    SL.Delimiter:=tab; // ????? ? ?????? ???????? Tab
    SL.DelimitedText:=SL.Text; // ????????? ?????? ?? ????????? ?????
    ShowMessage(SL[1]);
    Edit1.Text:=SL[3];
     Readln; // ???? ????????? ????? ?????? ? ?????, ?? ??????? ?? ????????? ??????}
 end;
end;

[dron-s]

SL:=TStringList.Create;
x2:=SL.Count;
if x2=0 then ShowMessage('0');

дык у тебя явный болт тут
где ты загрузаешь файл?