Einzelnen Beitrag anzeigen

Vader

Registriert seit: 6. Mai 2003
804 Beiträge
 
Delphi 6 Enterprise
 
#8

Re: Richedittext nach Excel exportieren ?

  Alt 4. Mär 2006, 21:48
hallo,

das ich mich mit einer exceltabelle verbinden habe ich, ich hab auche einen code
der was aus einer zelle einer exceldatei ausliest und in ein editfeld in der form einliest.

Delphi-Quellcode:
private
    { Private-Deklarationen }
FLCID : Integer;
    procedure CloseExcel;
    function OpenExcel : Boolean;
    function ReadCell(Row,Col : Integer) : String;




function TForm1.ReadCell(Row, Col: Integer): String;
var
  CellRange : Range;
begin
  CellRange:=ExcelWorksheet1.Cells;
  Result:=CellRange.Item[Row,Col].Value;
end;


procedure TForm1.Ein4Click(Sender: TObject);
begin
spinedit1.text:= '1';
end;


procedure TForm1.Werteauslesen1Click(Sender: TObject);
begin
Edit1.Text:=ReadCell(SpinEdit1.Value,SpinEdit2.Value);
end;

ich würde das umgekehrt brauchen, das der text vom richedit in die zelle der exceltabelle
schreibt ?

mfg vader
  Mit Zitat antworten Zitat