Axolot Data

[quote="larsa"]Hello I can't find any problem with your code.[/quote] which IDE version? In delphi XE, the followinf code always says: "Zlib decompress error" procedure TForm1.btn1Click(Sender: TObject); begin xls1.Version := xvExcel2007; xls1.Sheet[0].AsInteger[1,1] := 90; xls1....

when add:
xls1.Sheets[0].SheetProtection := DefaultSheetProtections;
it work fine now.

I want to remove Protection of a xls file,

My Code:


xls1.Filename := 'c:\aa.xls';
xls1.Read;
xls1.Sheets[0].SheetProtection := [];
xls1.Write;

it seems not work.

why?

delphi xe & xlsreadwrite II 4.0053

my ide: delphi xe xlsreadwriteII 4.00.52 procedure TForm1.btn1Click(Sender: TObject); begin xls1.Version := xvExcel2007; xls1.Sheet[0].AsInteger[1,1] := 90; xls1.Filename := 'c:\aa.xlsx'; xls1.Write; xls1.read; end; it did create 'c:\aa.xlsx' file, but when run to: xls1.Read; error occur: "Zlib...

with the new version 4.0049 I could not create a good .XLSX file too. procedure TForm1.btn1Click(Sender: TObject); begin xls1.Version := xvExcel2007; xls1.Sheet[0].AsInteger[1,1] := 90; xls1.Filename := 'c:\aa.xlsx'; xls1.Write; end; it did create 'c:\aa.xlsx' file, but xls1.Read; can not work.

How to create a Excel 2007 File?

procedure TForm1.btn1Click(Sender: TObject);
begin
xls1.Version := xvExcel2007;
xls1.Sheet[0].AsInteger[1,1] := 90;
xls1.Filename := 'c:\aa.xlsx';
xls1.Write;
end;

'c:\aa.xlsx'; could not open by Excel 2007 , why?

hello: My code: uses BIFFRecsII4,XLSFonts4, XLSReadWriteII4; procedure TForm1.btn1Click(Sender: TObject); begin xls1.Version := xvExcel2007; xls1.Sheet[0].AsInteger[1,1] := 90; xls1.Filename := 'c:\aa.xlsx'; xls1.Write; xls1.Read; end; xlsreadwrite version 4.0.0.X Error Info: "Zlib decompress e...

procedure TForm1.btn1Click(Sender: TObject); var i: Integer; begin xls.Filename := 'c:\aa.xls'; xls.Sheets[0].AsString [0, 0] := 'Counter'; for i := 1 to 65535 do begin xls.sheets[0].AsString [0, i] := IntToStr (i); xls.sheets[0].AsString [1, i] := 'Knappensee-Gro? S?rchen'; end; xls.Write; end;

I 've got it!

I rewrite Function IsUnicode .

procedure TForm1.btn1Click(Sender: TObject);
begin
XLSR.Read;
XLSR.Sheets[0].AsString[2, 2] := XLSR.Sheets[0].AsString[1, 1];
XLSR.Write;
end;


XLSR.Sheets[0].AsString[1, 1] : Kißlegg

then

XLSR.Sheets[0].AsString[2, 2] : Ki?legg

My OS: windows XP sp3 (chinese)

I use xlsreadwriteII 3.

I write a unicode string to a xls file.

when open xls file, the char of unicode string change to '?'



Thank you very much.

Regards

delphi 7.0 & delphi 2007 do not work well before rewrite isunicode function

xlrReadWrite.Sheet[0].AsString[0, 0] := tntedit.text; // ÜB This result in EXCEL is failed. The one-byte character "?"appear instead of U with accent mark AsString[1,1] := WideChar($03C0); work well. "When I test this, I get the correct characters. The problem is probably the font you...