пояснить код

[Алексей0001]

Здравствуйте, можете пояснить код? с комментариями

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
  f: TextFile;                 
  iTmp, i, k, p: Integer;
  strTemp: String;
begin
  AssignFile(f, FileName);    
  Reset(f);                  
  with StringGrid do   
  begin
    i := 0;                     
    While Not Eof(f) do      
    begin
      Readln(f, strTemp);      
      Inc(i);                   
      RowCount := i;          

      strTemp := strTemp + #9;  
      p := 1;
      k := 0;
      While True do
      begin
        iTmp := PosEx(#9, strTemp, p);
        if iTmp = 0 then
          Break;
        Inc(k);
        If (i = 1) Or (ColCount < k) Then
          ColCount := k;

        Cells[k - 1, i - 1] := Copy(strTemp, p, iTmp - p);
        p := iTmp + 1;
        While (p <= Length(strTemp)) And (strTemp[p] = #9) Do
          Inc(p);
      end;
    end;
  end;
  CloseFile(f);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  SlSort, SlRow: TStringList;
  i, j, aCol: Integer;
begin
  begin
    OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
    If OpenDialog1.Execute Then
      LoadStringGrid(StringGrid1, OpenDialog1.FileName);
  end;
  begin
    aCol := StringGrid1.FixedCols;

    SlSort := TStringList.Create;
    for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
    begin
      SlRow := TStringList.Create;
      SlRow.Assign(StringGrid1.Rows[i]);
      SlSort.AddObject(StringGrid1.Cells[aCol, i], SlRow);
    end;
    SlSort.Sort;
    j := 0;
    for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
    begin
      SlRow := Pointer(SlSort.Objects[j]);
      StringGrid1.Rows[i].Assign(SlRow);
      SlRow.Free;
      Inc(j);
    end;
    SlSort.Free;
  end;
end;



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;

[Алексей0001]

iTmp := PosEx(#9, strTemp, p);
 Cells[k - 1, i - 1] := Copy(strTemp, p, iTmp - p);
        p := iTmp + 1;
        While (p <= Length(strTemp)) And (strTemp[p] = #9) Do
  SlSort.AddObject(StringGrid1.Cells[aCol, i], SlRow);
 SlRow := Pointer(SlSort.Objects[j]);
    StringGrid1.Rows[i].Assign(SlRow);

7 строчек кода не понятны, с остальным разобрался, подскажите

[p51x]

Ну если справка для вас непосильный труд, то хоть строчки читать начните, а то выглядите идиотом.

iTmp := PosEx(#9, strTemp, p);

iTmp присвоить то, что вернула функция поиска символ с кодом 9 в строке strTemp с позиции p. Что тут непонятно? А я всего лишь прочитал строку.

[kropotkina-alice]

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

7 строчек кода не понятны, с остальным разобрался, подскажите

Ставите курсор на непонятное слово и нажимаете F1.
Открывается окошко помощи, где сама дельфи вам расскажет что это и с чем его едят...