1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
procedure TForm1.btnConnectClick(Sender: TObject);
begin
ConnectOpenOffice; // établir la connexion, si pas déjà fait
// New Calc
Document := StarDesktop.LoadComponentFromURL( 'private:factory/scalc', '_blank', 0, DummyArray);
MonClasseur := Document.getSheets;
end;
procedure TForm1.btnWriteClick(Sender: TObject);
begin
MaFeuille := MonClasseur.GetByName('Feuille1');
Cellule := Mafeuille.getCellByPosition(0, 0);
Cellule.SetValue(123);
end;
procedure TForm1.btnReadClick(Sender: TObject);
begin
MaFeuille := MonClasseur.GetByName('Feuille1');
Cellule := Mafeuille.getCellByPosition(0, 0);
edValue.Text := Cellule.GetValue;
end; |
Partager