Проблемы с разбиением файла

[Алексей0001]

Добрый день, суть такая есть код

function DigitSort(L: TStringList; index1, index2: Integer): Integer;
var
  i1, i2: Integer;
begin
  i1 := StrToInt(Copy(L.Strings[index1], 1, Pos(#9, L.Strings[index1]) - 1));
  i2 := StrToInt(Copy(L.Strings[index2], 1, Pos(#9, L.Strings[index2]) - 1));
  result := CompareValue(i1, i2);
end;
 
procedure TForm2.Button_ProcessClick(Sender: TObject);
var
  fName: String; // переменная, куда записываем имя файла
  dL, sL: TStringList; // объявляем стринглисты
  i, tmp: Integer;
begin
    if not OpenDialog1.Execute then // если никакой файл не выбран - прерываем выполнение
    Exit;
  slFile.LoadFromFile(OpenDialog1.FileName); // загружаем файл в стринглист
  StringGrid1.RowCount := slFile.Count; // количество строк в таблице = количеству строк в файле
  dL := TStringList.Create;
  for i := 0 to slFile.Count - 1 do // проходим по строкам стринглиста
  begin
    dL.Delimiter := #9; // устанавливаем разделить строк, рязделяемый символом табуляции(#9)
    dL.DelimitedText := slFile.Strings[i]; // разделяем строку на слова и заполняем стринглист
    if dL.Count > StringGrid1.ColCount then // если количество строк в  больше, чем количество столбцов таблицы
      StringGrid1.ColCount := dL.Count; // тогда количество столбцов таблицы = количеству строк
    StringGrid1.Rows[i].DelimitedText := slFile.Strings[i]; // заполняем очередную строку таблицы очередной строкой, разбив ее на слова
  end;
  dL.Clear; // очищаем стринглист
  fName := ChangeFileExt(OpenDialog1.FileName, '.result');
  // задаем файлу новое расширение
  sL := TStringList.Create; // создем стринглист
  for i := 0 to StringGrid1.RowCount - 1 do
  // циклом проходим по строкам таблицы
  begin
    StringGrid1.Rows[i].Delimiter := #9; // устанавливаем разделитель строк равный символу табуляции
    if TryStrToInt(StringGrid1.Cells[0, i], tmp) then // если данные из первой ячейки текущей строки являются целым числом
      dL.Add(StringGrid1.Rows[i].DelimitedText)
      // тогда записываем эту строку таблицу дл
    else
      sL.Add(StringGrid1.Rows[i].DelimitedText); // иначе записывем в сл
  end;
  if sL.Count > 1 then // если в сл больше одной строки тогда сортируем её по правилам сортировки строк
    sL.Sort;
  if dL.Count > 1 then // если в дл больше одной строки тогда сортируем по правилам сортировки чисел
    dL.CustomSort(DigitSort);
  slFile.Text := dL.Text; // текст slFile=dL
  for i := 0 to sL.Count - 1 do // циклам проходим по сл
    slFile.Add(sL.Strings[i]); // добовляем строку в  slFile
  if not FileExists(fName) then // если нет файла, имя которого определено переменной fName
    slFile.SaveToFile(fName) // тогда сохраняем в файл с именем fName
  else if (MessageBox(Handle, // иначе открывается диалоговое окно с предложение записть под другим именем
      'Обработанный файл с таким именем уже существует.'#13'Вы хотите сохранить файл под другим именем?', 'Запрос.', mb_YesNo or mb_IconQuestion) = idNo) or (not SaveDialog1.Execute) then
  begin
    ShowMessage('Операция отменена. Файл не сохранен!'); // в случаем не согласия сохранить файл с другим именем выводим сообщение на экран
    dL.Free;//уничтожаем  и освобождаем память
    sL.Free;//уничтожаем  и освобождаем память
    Exit; // прерываем выполнение
  end
  else
    slFile.SaveToFile(SaveDialog1.FileName);
  // иначе сохраняем файл с новым именем
  ShowMessage('Сохранение выполнено успешно!');
  dL.Free; //уничтожаем  и освобождаем память
  sL.Free; //уничтожаем  и освобождаем память
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  slFile := TStringList.Create; // создаем стринг лист
end;
 
procedure TForm2.FormDestroy(Sender: TObject);
begin
  slFile.Free; // уничтожаем slFile и освобождаем память
end;
 
end.

В котором идет разбиение файла через символ табуляции(#9).
Программа не стабильно работает, при процедуре

procedure TForm2.Button_ProcessClick(Sender: TObject);

Если использовать символ табуляции, запятой или пробел то работает нормально, при других все лепит в один столбец.
в чем может быть проблема?

[min@y™]

Файл-то, бть, где?!
--------
Как ты эту писанину читаешь ваще? У меня глаза кровоточат.
Отделяй блоки-то хотя бы.

[Black Fregat]

Сообщение от Алексей0001

StringGrid1.Rows[i].DelimitedText := slFile.Strings[i];

Это что вообще?

[evg_m]

1.

Если использовать символ табуляции, запятой или пробел то работает нормально, при других все лепит в один столбец.
в чем может быть проблема?

  dL.Delimiter := #9; // устанавливаем разделить строк, рязделяемый символом табуляции(#9)
  dL.DelimitedText := slFile.Strings[i]; // разделяем строку на слова и заполняем стринглист
  ....
  StringGrid1.Rows[i].DelimitedText := slFile.Strings[i]; // заполняем очередную строку таблицы очередной строкой, разбив ее на слова

разделитель(delemiter) у Row[i] совсем не такой как у dl соответственно совсем не такое (в теории) разбиение по строкам

все лепит в один столбец.

  StringGrid1.Row[i].Text:=dl.Text;

2. сортировать можно и пустой список

  if sL.Count > 1 then // если в сл больше одной строки тогда сортируем её по правилам сортировки строк
    sL.Sort;

2. добавлять можно СРАЗУ список

  slFile.Text := dL.Text; // текст slFile=dL
  for i := 0 to sL.Count - 1 do // циклам проходим по сл
    slFile.Add(sL.Strings[i]); // добовляем строку в  slFile
  slFile.Clear;
  slFile.AddStrings(dl);
  slFile.AddStrings(sl);

[Алексей0001]

Сообщение от Black Fregat

Это что вообще?

без этой строки данные не будут отображаться StringGrid

[Алексей0001]

Заменил

 StringGrid1.Rows[i].DelimitedText := slFile.Strings[i];

на

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

StringGrid1.Row[i].Text:=dl.Text;

какой массив для [i] нужно объявлять? компилятор ругается

[evg_m]

какой массив для [i] нужно объявлять? компилятор ругается

А здесь (см.ниже) не ругался?

  for i := 0 to slFile.Count - 1 do // проходим по строкам стринглиста
  begin
    dL.Delimiter := #9; // устанавливаем разделить строк, рязделяемый символом табуляции(#9)
    dL.DelimitedText := slFile.Strings[i]; // разделяем строку на слова и заполняем стринглист
    if dL.Count > StringGrid1.ColCount then // если количество строк в  больше, чем количество столбцов таблицы
      StringGrid1.ColCount := dL.Count; // тогда количество столбцов таблицы = количеству строк
    StringGrid1.Rows[i].DelimitedText := slFile.Strings[i]; // заполняем очередную строку таблицы очередной строкой, разбив ее на слова
  end;

[Алексей0001]

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

А здесь (см.ниже) не ругался?

нет, этот код полностью рабочий. вот проект, можете сами посмотреть Задание 1.rar

[evg_m]

нет, этот код полностью рабочий. вот проект

так и надо заменить ОЧЕНЬ похожую строчку. там где имеющийся [i] не вводит компилятор в ступор.

[Алексей0001]

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

так и надо заменить ОЧЕНЬ похожую строчку. там где имеющийся [i] не вводит компилятор в ступор.

StringGrid1.Rows[i].DelimitedText := slFile.Strings[i];

заменил это на

 StringGrid1.Rows[i].DelimitedText := dL.Text;

и если в коде программы прописать нужное мне значение(#9-табуляция, #46-точка, #44-запятая) программа работает.
Потом в коде

#9

заменил на переменную v значение которой присваивал через Edit. И программа так перестала работать