Извините, что не понятно написала!Ниже код, для открытия! Он открывает только i-ый столбец, j-ую не могу открыть((((
Код:
procedure TForm1.N2Click(Sender: TObject);
var
i: integer;
InFile: TextFile; //текстовый файл для идентификации файла
fname, InString: String; //строковые перменные , fname- текст для имени файла
begin
If OpenDialog1.Execute then
begin
fname:=OpenDialog1.FileName;
AssignFile(InFile,fname); //имя файла его определяет из OpenDialog1
Reset(InFile); //открывает существующий файл
i:=0;
While not Eof(InFile) do
Begin
Readln(InFile,InString);
a[i]:= StrToInt(InString);
stringGrid1.Cells[0,i]:=IntToStr(a[i]);
i:=i+1;
end;
Admin: Пользуемся тегами!