смена данных по времени на форме

[Stilet]

Girl

Внимательно читаем предидущий пост: НУЖНО ДОПИСАТЬ СЛОВО "DO"

[Girl]

выделяет карсным

for rc = 0 to 3 do

не могу ниче понять((((

[S@fer]

procedure TForm1.Button1Click(Sender: TObject);
var
e : variant;
rc, fc : integer;
begin
e := CreateOleObject('Excel.Application');
e.workBooks.Open('Очники.xls');
for rc:= 0 to 3 do
  for fc:= 0 to 3 do
    StringGrid1.Cells[fc,rc]:=e.Cells[rc+1,fc+1];
e.Close;
end;

[Girl]

Сообщение от S@fer

procedure TForm1.Button1Click(Sender: TObject);
var
e : variant;
rc, fc : integer;
begin
e := CreateOleObject('Excel.Application');
e.workBooks.Open('Очники.xls');
for rc:= 0 to 3 do
  for fc:= 0 to 3 do
    StringGrid1.Cells[fc,rc]:=e.Cells[rc+1,fc+1];
e.Close;
end;

ПИШЕТ:
[Error] Unit1.pas(34): For loop control variable must be simple local variable

[Girl]

Сообщение от S@fer

procedure TForm1.Button1Click(Sender: TObject);
var
e : variant;
rc, fc : integer;
begin
e := CreateOleObject('Excel.Application');
e.workBooks.Open('Очники.xls');
for rc:= 0 to 3 do
  for fc:= 0 to 3 do
    StringGrid1.Cells[fc,rc]:=e.Cells[rc+1,fc+1];
e.Close;
end;

Теперь не выдает ошибо по коду. но когда жмеш кнопку выдает сообщение что нужный файл не найден. хотя он лежит в этой же папке что и проект

[Stilet]

выдает сообщение что нужный файл не найден

e.workBooks.Open(ExtractFilePath(ParamStr(0))+'Очники.xls');

[Girl]

СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!!!!!!!

а как сделать чтоб stringgrid полностью поддержал тот формат надписей, который содержит Excel&

[S@fer]

а как сделать чтоб Stringgrid полностью поддержал тот формат надписей, который содержит Excel&

что Вы имеете в виду?

[Girl]

Сдесь моя таблица. мне надо чтоб она была один к одному в stringgrid/ Это можно сделать и как?

сейчас в коде выдает ошибку, когда прописываю e.close; а
ведь он нужен


сейчас в коде выдает ошибку, когда прописываю e.close; а
ведь он нужен

[Stilet]

Можно, но это нужно формат Экзеля разбирать, или ручками прописать отрисовки поячеечно разными шрифтами.

выдает ошибку

Видать ошибка секретная...