Hallo,

ich verwende folgende Prozedur unter D5 Pro.

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tfrm_main.Vergleichstarten1Click(Sender: TObject);
const xlCellTypeLastCell = $0000000B;
var XlApp1, XlSheet1: OLEVariant;
    iLastRow1, iLastCol1: integer;
    iLastRow2, iLastCol2: integer;
    iAnzahlBlaetter1 : integer;
    iAnzahlBlaetter2 : integer;
    iSheetIndex, iColIndex, iRowIndex : integer;
    iAktRow3 : integer;
    workBook1 : array [1..50, 1..50, 0..100] of string[50]; // Sheet, Col, Row.
    workBook2 : array [1..50, 1..50, 0..100] of string[50]; // Sheet, Col, Row.
    sStrValue1, sStrValue2 : string;
begin
  if ((sBaseFile1 = '') or (sBaseFile2 = '') or (sBaseFile3 = '')) then
    begin
      MessageDlg('Ein oder mehrere Tabellen wurden nicht angegeben.', mtError, [mbOk], 0);
      exit;
    end;
 ...

Sobald in die Prozedur gesprungen wird bleibt die IDE auf der ersten Zeile hängen und meldet Stack-Überlauf.
Ich habe das CPU Fenste mal angehangen.

Hat jemand eine Idee für mich?

Bedenke, dass alle lokalen Variablen auf dem Stack liegen. Jedes deiner Arrays verbraucht 50 * 50 * 101 * 51 Byte speicher, und das ist sehr viel Insgesamt wären das etwa 25MB Stackspeicher.. Der Standard ist glaub ich 4MB.

Danke für den Tipp.
Als globale Variable klappt es.

Mit dynamischen Arrays würde es auch funktionieren.

Mit dynamischen Arrays würde es mir auch besser gefallen.
Aber ich bekomme die Größe von mehrdimensionalen Array nicht gesetzt.

markieren

Delphi-Quellcode:

SetLength(workBook1, 50, 50, 101);
SetLength(workBook2, 50, 50, 101);

Einziger Unterschied: dynamische Arrays fangen immer bei 0 an, somit müssten Zugriffe auf deine ersten beiden Dimensionen nun ein -1 bekommen, da es dort nur noch von 0 bis 49 geht.