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

[Girl]

У меня на форме 3 таблицы, одного размера. мне надо чтоб они менялись по времени примерно через 2 минуты. сначала одна, потом другая и т.д. Как это сделать. Таблицы находятся на Panel. Таблицы в stringgrid

[S@fer]

Поставте на форму таймер, в таймере интервал 20000
в процедуре таймера надо написать

if StringGrid1.Visible=True then
begin
StringGrid1.Visible:=False;
StringGrid2.Visible:=True;
StringGrid3.Visible:=False;
end else
if StringGrid2.Visible=True then
begin
StringGrid1.Visible:=False;
StringGrid2.Visible:=False;
StringGrid3.Visible:=True;
end else
if StringGrid3.Visible=True then
begin
StringGrid1.Visible:=True;
StringGrid2.Visible:=False;
StringGrid3.Visible:=False;
end;

[Stilet]

S@fer

Автор просит смену (видать обновление) данных, а не визуальную смену, или я не прав? (а-а, автор?)

[S@fer]

Stilet, я так понял, что надо визуально менять их.
Подождем автора.

[Girl]

Правильно S@fer) они должны меняться визуально))))

Скажите пожалуйста, по этому когду таблицы будут меняться постоянно, без остановки?????

Подскажите еще пожалуйста: как в стринг грид загрузить данные из таблицы excel? Очень надо.

[S@fer]

Скажите пожалуйста, по этому когду таблицы будут меняться постоянно, без остановки?????

Будет выполнятся пока Timer1.Enabled:=True

как в стринг грид загрузить данные из таблицы excel?

Пользуйтесь поиском
http://www.programmersforum.ru/showthread.php?t=45861 пост #7

[Girl]

Я набрала этот код. он мне ошибку выдает (****). Объясните пожалуйста в чем причина

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls, Buttons, Grids;

type
  TForm1 = class(TForm)
    SG: TStringGrid;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
e : variant;
rc, fc : integer;
begin
e := CreateOleObject('Excel.Application');
e.workBooks.Open('очники.xls');
for rc = 0 to 5 (*****)
begin
inc(sg.RowCount);
for fc = 0 to 5 do
begin
sg.Cells[fc,rc] : = e.Cells[rc+1,fc+1];
end;
end;
e.Close;
end;

[S@fer]

Что такое (*****) ?

for rc = 0 to 5 do
begin
inc(sg.RowCount);
for fc = 0 to 5 do

Если таблица 4x4 то цикл надо от 0 до 3

[Girl]

он мне выделяет эту строку for rc = 0 to 4
таблица 5 на 5.
теперь прикапывается к to

[S@fer]

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