Forum: FreePascal
FreePascal
by Moombas,
30. Sep 2019
Naja, ich habe in Lazarus nun schon an seeehr vielen Stellen das Problem mit "WideString" lösen können, aber die Idee das hier einzusetzen kam mir leider erst heute -.-
Forum: FreePascal
FreePascal
by Moombas,
30. Sep 2019
Wie gesagt, das ist ja 1:1 das was ich in Delphi auch verwendet habe und funktionierte, erst ab Lazarus tritt das Problem auf.
Ich habe mir die Werte mal per showmessage(); ausgeben lassen und die Werte passen.
...hab es "gefunden"...
function RefToCell( ACol, ARow: Integer): string; geändert auf function RefToCell( ACol, ARow: Integer): widestring;,
R1, R2 : string; geändert auf R1, R2...
Forum: FreePascal
FreePascal
by Moombas,
30. Sep 2019
In R1 bzw. R2 steht der Zellverweis also: R1 ist immer "A1" und R2 ist die höchste Zelle (z.B.) K4285
Hmm, danke an die "echte" Excel Schematic habe ich gar nicht gedacht, da dies bisher in Delphi ja so funktioniert hat und ich dachte das Excel es dann auch so erwartet, aber ich teste das mal aus.
...
Nein, das war es leider nicht, dann Stürzt das Programm auch ab, jedoch mit einer...
Forum: FreePascal
FreePascal
by Moombas,
27. Sep 2019
Moin zusammen,
ein wenig weiter bin ich nun gekommen, jedoch scheitere ich an folgender Hürde, da ich leider keine Fehlermeldung erhalte, nur einen "halben" Absturz:
function StringGridToXLS(AXLApp : OleVariant; AGrid : TStringGrid; Sheetname : widestring):Boolean;
var
Sheet: OLEVariant;
MaxCol : Integer;
MaxRow : Integer;
Range : OleVariant;
Data : OleVariant;