Thanks for the code. What example were you trying to compile? Didn't you create a package file for the component? Just give me a startingpoint

No, I didn't do that far (create a package). Just to make sure first the component will be compiled by FPC 2.0.4. Sorry, I forgot to give you the example. :-D

please, it saves me from searching too long.

For first test, simply...

program TestFlexCel;

{$APPTYPE CONSOLE}

uses
  UFlexCelImport,
  XLSAdapter;

var
  FlexCelImport1: TFlexCelImport;
  XLSAdapter1: TXLSAdapter;
  i,j: Integer;
  s,v: string;

begin
  XLSAdapter1 := TXLSAdapter.Create(nil);
  FlexCelImport1 := TFlexCelImport.Create(nil);

  FlexCelImport1.Adapter := XLSAdapter1;
  FlexCelImport1.OpenFile('your_excel_file_here');

  for i := 1 to 5 do
  begin
    s := '';
    for j := 1 to 5 do
    begin
      v := FlexCelImport1.CellValue[i,j];
      s := s + v + ';';
    end;
    Writeln(s);
  end;

  FlexCelImport1.Free;
  XLSAdapter1.Free;
end.

The above example should print out 5 first columns and 5 first rows of the excel file. Tested using Delphi on winXP.

HTH.

-Bee-

has Bee.ography at:
http://beeography.wordpress.com

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to