[Vikulichka]

Здравствуйте!!!
Мне необходимо прописать на кнопку Buttion код, при нажатии кнопки в объект StringGrid загружается файл формата txt.
Вот код который я прописала на кнопку:

Код:

procedure TForm6.Button1Click(Sender: TObject);
var i, N: Integer;
begin
if OpenDialog1.Execute then
with TStringList.Create do
try LoadFromFile(OpenDialog1.FileName);
stringgrid1.RowCount:=Count;
for i:=0 to Count-1 do begin
stringgrid1.Rows[i].CommaText:=Strings[i];
end
finally
end;
end; 

Админ: Пользуемся тегами!

Он работает, данные из файла загружаются, но проблема в том, что я мне нужно чтобы данные загружались с пятой строки, а не с начала документа. А вот как это указать я не могу сообразить.

[Assistant]

вот так измените цикл:

Код:

for i:=4 to Count-1 do begin

[Assistant]

и тут тоже:

Код:

StringGrid1.RowCount := Count-4;
........
StringGrid1.Rows[i-4].CommaText := Strings[i];

[Assistant]

Код:

var
  i, N: Integer;
  list: TStringList;
begin
  n := 5;
  if OpenDialog1.Execute then
  begin
    list := TStringList.Create;
    try
      list.LoadFromFile(OpenDialog1.FileName);
      StrinGgrid1.RowCount := list.Count-N;
      for i:=N to list.Count-1 do
      begin
        StringGrid1.Rows[i-N].CommaText := list.Strings[i];
      end;
      list.Free;
    finally
    end;
  end;
end;