Кто знает StringGrid в Delphi?

[Esgard]

Народ, нужна очень консультация. Нашел код как к таблице тесктовый файл привязать. У меня вопрос - а если у меня есть файл ТХТ, то как мне к нему путь указать?

Procedure LoadGrid(Const S: String; Const Grid: TStringGrid);
Var ff: TextFile;
    St: String;
Begin
 AssignFile(ff, S);
 Reset(ff);
 try
  ClearGrid(Grid); // очистка грида, если нужно
  While not Eof(ff) Do
   Begin
    ReadLn(ff, St);
    With Grid Do
     Begin
      RowCount:=RowCount + 1;
      Rows[RowCount - 1].Text:=StringReplace(St, #9, #13#10, [rfReplaceAll]);
     End; {With}
   End; {While}
 finally
  CloseFile(ff);
 end;
 With Grid Do IF RowCount > 1 then FixedRows:=1;
End;

[OlegVE]

Здравствуйте

а если у меня есть файл ТХТ, то как мне к нему путь указать

Любым известным способом получения имени файла, которое никакого отношения к StringGrid не имеет. Далее передать его в процедуру, сюда:

Procedure LoadGrid(Const S: String; Const Grid: TStringGrid);

До свидания

[Esgard]

а через getdir осуществимо?