Ошибка при считывании из файла

[JustSay]

При считывании файла (есть в архиве, outfile.txt) в 1 строке StringGrid'a (после фиксированной) должны выводиться данные 1 строки. А оно считывает только первые 5 элементов а 6 элемент закидывает в следующую строчку StringGrid'a, и так идёт дальше (6 из 2 кидает в качестве 1 в 3тью и т.д.) Без понятия как это исправить, подскажите пожалуйста.

[Serge_Bliznykov]

во-первых, объясните, почему у Вас в начале второй и третье строк находятся пробелы?! Они Вам нужны?

во-вторых, попробуйте так (выделил изменения):

begin
  if dlgOpen1.Execute then
    begin
      FName:=dlgOpen1.FileName;
      StringGrid1.Visible:=true;
      List:=TStringList.Create;
      List.LoadFromFile('outfile.txt');
      StringGrid1.RowCount:=List.Count;
      StringGrid1.ColCount:=7;
      StringGrid1.FixedRows:=1;
      pole := '';
      for i:=1 to List.Count do
      begin
      k:=0;
      s:=List[i-1];
      if (Length(s)>0) then s := trim(s) + ' ';

      for j:=1 to length(s) do
      begin
      if s[j]<>' ' then
        pole:=pole+s[j]
      else
      begin
        StringGrid1.Cells[k,i]:=pole;
        pole:='';
        k:=k+1;
      end;
      end;
    end;
  end;

end;

p.s. я бы ещё для dlgOpen1 заполнил свойство Filter - чтобы отображались только текстовые файлы...

[JustSay]

Пробелы не нужны. Они появляются при выводе в файл и я не знаю как от них избавиться.

И, кстати, не помогло.

Просто на некоторых форумах сообщение дописывается автоматически.

Всё. Выкрутился сам.


_________________
Не используйте форум как чат - не пишите несколько коротких сообщений подряд!
Есть что добавить - нажимайте кнопку "Правка/Редактировать" на своём крайнем сообщении
и изменяйте, добавляйте....

Прошу учесть на будущее...

Модератор.

[Serge_Bliznykov]

Всё. Выкрутился сам.

ок. закрываю тему.