[bambooshoot]

Сообщение от poli-smen

Правильно кажется. Я тоже не пойму зачем нужен T1 если можно обойтись единственным T.
А ещё я не пойму зачем тут вообще нужны циклы? Они же здесь не делают никакой полезной работы.

Спасибо. Действительно наворотил лишнего. Упростил и переписал, получился следующий рабочий код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  T: TStringList;
  i, j: Integer;
  k, b:string;
begin
  T :=TStringList.Create;
  try
    T.Delimiter := ' ';
    T.DelimitedText := Edit1.Text;
          StringGrid1.Cells[0,0]:= T[0];
        StringGrid1.Cells[1,0]:= T[1];
         StringGrid1.Cells[2,0]:=T[2];
          StringGrid1.Cells[4,0]:= T[4];
           k:=StringGrid1.Cells[2,0];
           i:=Length(k);
            for i:=1 to i do
            begin
               b:= #$00D8;
               j:=pos(b,k);
                Delete(k,j,1);
                 StringGrid1.Cells[2,0]:=k;
            end;
         T.Delimiter := 'x';
    T.DelimitedText :=StringGrid1.Cells[2,0] ;
          StringGrid1.Cells[2,0]:= T[0];
        StringGrid1.Cells[3,0]:= T[1];
  finally
    T.Free;
  end;
end;

Может быть есть еще варианты по упрощению и сокращению. Хорошо, когда есть кто-то, кто посмотрит со стороны "свежим" взглядом