с помощью этого кода в колонку загружаются имена файлов
var
F: TSearchRec;
Path: String;
Attr: Integer;
begin
Path:='*.txt'; {Искать все файлы в заданной директории с расширение txt,}
FindFirst(Path,Attr,F);
If F.Name<>'' then begin {Если хотя бы один файл найден, то продолжить поиск}
StringGrid1.Cols[1].Add(F.Name ); {Добавление в StringGrid имени найденного файла}
While FindNext(F)=0 do Stringgrid1.cols[1].Add(F.Name);
end;
FindClose(F);
end;
а теперь вопрос: Как осуществить загрузку содержимиго файла в Cols[2]
Заранее благодарен

http://forum.vingrad.ru/index.php?act=ST&f=32&t=1924

спасибо за ссылку но та я не нашол то что мне бы помогло
я делал так StringGrid1.Cols[2].loadfromfile(f.name);
так загружается содержимое только одного файла а мне надо чтобы все файлы загрузились

Я правильно понял - тебе надо, чтобы правее каждой ячейки с именем файла выводилось содержимое этого файла ? И надо, чтобы весь файл сидел в одной ячейке ?
Если да, то тебе придется делать типа этого:

Код

var  sr : TSearchRec;  i, p, h, h1 : integer;  s : string;  f : file; begin  if FindFirst('*.txt', faAnyFile-faDirectory, sr) = 0 then  begin    i := 0;    repeat      StringGrid1.Cells[1, i] := sr.Name;      AssignFile (f, sr.Name);      Reset (f, 1);      SetLength (s, FileSize(f));      BlockRead (f, s[1], FileSize(f));      CloseFile (f);      stringgrid1.Cells[2, i] := s;      inc(i);    until FindNext(sr) <> 0;    FindClose(sr);  end;

И еще придется изменить OnDrawCell так, чтобы вместо символов #0D, #0A происходил перевод на
новую строку, типа такого:

Код

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState); var  s, s1 : string;  y, p : integer; begin  s := StringGrid1.Cells[ACol, ARow];  y := rect.Top;  with StringGrid1.Canvas do  begin    Brush.Style := bsSolid;    Pen.Style := psSolid;    Brush.Color := clWhite;    Pen.Color := clWhite;    Rectangle(rect);    Brush.Style := bsClear;    repeat      p := pos(#13, s);      if p = 0 then p := Length(s)+1;      s1 := copy(s, 1, p-1);      if p < Length(s) then if s[p+1] = #10 then inc(p);      Delete(s, 1, p);      TextRect (rect, rect.Left, y, s1);      if s = '' then break;      inc(y, TextHeight(s1));    until y >= rect.Bottom;  end; end;