Fehler: Unkontrollierter Übertrag von Daten in ein Array

[p80286]

Zitat von Ykcim:

Vorher stand in dem Feld eine Information, die mir dadurch verloren geht, aber ich bekomme bei meinem loadinfile (kommt in der nächsten Procedure) keinen Fehler mehr...

Warum wird an dieser Stelle mein Array verändert???

zum Teufel welches Array? oder verbirgt sich hinter Trows und TCols ein Array??????
und wenn sich Variablen gegenseitig überschreiben, dann sind meist Pointer (dyn.arrays) beteiligt, die in die Botanik zeigen.
Jetzt solltest Du z.B. die Bereichsprüfung und Konsorten aktivieren. Ich wette da ist irgendetwas faul.

Gruß
K-H

[blauweiss]

Außerdem wird das übergebene "Cols" innerhalb Deiner Routine gar nicht verwendet....

Gruß
blauweiss

[messie]

Zitat von blauweiss:

Außerdem wird das übergebene "Cols" innerhalb Deiner Routine gar nicht verwendet....

Und ich bin gerade darüber gestolpert, dass Length mit pointerindizierten arrays Späne machen kann. Steht Dir kein Member wie Rows.Count zur Verfügung?

Grüße, Messie

[DeddyH]

So wie ich das verstehe ist Rows ein 2-dimensionales Array in der Art [Zeile, Spalte]. Wenn dem so ist, dann ist die Schleife definitiv falsch, da ja damit "diagonal" gelesen wird. IMO müsste das stattdessen ungefähr so aussehen:

Delphi-Quellcode:

for i := Low(Rows) to High(Rows) do
  begin
    s := '';
    for j := Low(Rows[i]) to High(Rows[i]) do
      //String zusammensetzen
      s := s + Rows[i, j] + ',';
    Stringliste.Add(s);
  end;

[p80286]

noch etwas Spekulatius:
hinter TRows könnte sich eine Tlist verbergen, der man teilweise die Daten geklaut hat???

Gruß
K-H

[yörsch]

Was könnte dir weiterhelfen? (um beim Thema zubleiben)

Du kannst nur verschiedenes Durchprobieren...

- Das Gesamte Objekt in die Procdure rein geben?
- mal das ganze auserhalb der Procdure ausprobieren? (nicht schön, aber wenn es funzt...)
- mal ein Communikations-Objekt fütter und in die Procdure rein geben ...

Puhhh

den fehler in der Anwendung finden oder im Compiler wäre die Lösung, aber beides scheind mir schwirig zu sein...

[Ykcim]

Hallo Zusammen,

vielen Dank für die rege Beteiligung der Fehlersuche!!! Finde ich stark!

Also das Array sieht wie folgt aus (ja, es verbirgt sich hinter den Cols and Rows):

Delphi-Quellcode:

type
    TRows = array of array of string; // [Cols, Rows]
    TCols = array of string;

Das Ganze ist dann wie eine Tabelle anzusehen, mit Daten, die aus einem MySQL Server kommen...

Cols wird tatsächlich nicht verwendet in der Function, aber ich übergebe immer die "ganze" Tabelle, daher immer Cols and Rows...

Cols sind die Spalten (wie in Excel "A", "B", "C";...)
Rows sind die Zeilen (wie in Excel 1, 2, 3, ...)

In der Schleife werden die Daten an das TStringList übergeben, mit jeweils den " um einen Text kenntlich zu machen. Diese Information benötige ich, wenn ich die Daten der *.csv Datei wieder in den MySQL-Server schicke.

Ich habe davon in diesem Programm noch drei weitere Stellen, wo zwei identische (Anzahl der Spalten mit anderen " Informationen) tadellos funktionieren...

Die Suche nach dem Fehler wird durch den Umstand, dass das Array aus ca. 50.000 Datensätzen besteht nicht erleichtert. Der Fehler tritt immer an der selben Stelle auf (Spalte 2, Zeile 223).

Ich hoffe, damit ein paar Informationslöcher gestopft zu haben...


Vielen Dank

Ykcim

[himitsu]

Hab grad kein TDE zur Hand, aber
Menü > Projekt > Optionen > Compilieren > Laufzeitfehler > Bereichsprüfung

Oder über einen Kompilerschalter (welchen ich hier schonmal genannte hatten) im Quellcode, also in der/den Unit(s), wo es benötigt wird.

[DeddyH]

Ich habe mal eine Mini-Demo erstellt, läuft einwandfrei (nur ein Memo und ein Button auf der Form):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  TSpalten = array [1 .. 3] of string;
  TZeilen = array of TSpalten;
var
  Zeilen: TZeilen;
  i: integer;
  s: string;
begin
  (* Dimensionieren *)
  SetLength(Zeilen, 10);
  try
    (* und befüllen *)
    for i := Low(Zeilen) to High(Zeilen) do
      begin
        Zeilen[i, 1] := Format('Feld1 - %d', [i + 1]);
        Zeilen[i, 2] := Format('Feld2 - %d', [i + 1]);
        Zeilen[i, 3] := Format('Feld3 - %d', [i + 1]);
      end;

    (* Nun auslesen und in Memo ausgeben *)
    Memo1.Lines.BeginUpdate;
    try
      Memo1.Lines.Clear;
      for i := Low(Zeilen) to High(Zeilen) do
        begin
          (* Statisches Array -> Direktformatierung ohne Probleme *)
          s := Format('"%s",%s,"%s"', [Zeilen[i, 1], Zeilen[i, 2],
            Zeilen[i, 3]]);
          Memo1.Lines.Add(s);
        end;
    finally
      Memo1.Lines.EndUpdate;
    end;
  finally
    (* Aufräumen *)
    SetLength(Zeilen, 0);
  end;
end;