Fehler: Unkontrollierter Übertrag von Daten in ein Array

[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

[Bummi]

dann müsste der Zugriff folgendermaßen funktionieren ...

Delphi-Quellcode:

var
  col,row:Integer;
  s:String;
begin
  SetLength(Rows,10,10);
  For col := Low(Rows) to High(Rows) do
    For Row := Low(Rows[col]) to High(Rows[col]) do Rows[col,row] := IntToStr(col) + '_'+IntToStr(row);

  For col := Low(Rows) to High(Rows) do
    For Row := Low(Rows[col]) to High(Rows[col]) do
      begin
        if Row=High(Rows[col]) then s := s + Rows[Col,Row] + #13#10 else  s := s + Rows[Col,Row] + ','
      end;
  Showmessage(s);
end;

[DeddyH]

Hatte ich das nicht bereits so ähnlich geschrieben?

[Bummi]

@DeddyH

jepp, sorry, habe die #10 gerade erst gesehen ....

[sx2008]

Zitat von Ykcim:

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

Aha!
Mir scheint dass dein gesamter Ansatz völlig umständlich ist.
Es gibt Komponenten, die eine sogenannte Memory-Table oder auch Memory-Dataset nachbilden.
Das heisst, du kannst selbst Felder mit Namen und Datentyp (string, integer, Boolean,...) definieren
und so viele Datensätze einfügen wie der Hauptspeicher hergibt.
Das Speichern der Daten als CSV-Datei und später erneute Laden aus der CSV-Datei ist sehr einfach zu bewerkstelligen.
Auch das Löschen,Ändern und Anzeigen von Datensätzen ist total einfach (du brauchst dazu nur ein TDataSource und ein TDBGrid bzw. TDBEdits).

Also ich würde an deiner Stelle den Code wegwerfen und die Sache mit Hilfe einer Memory-Table angehen.

PS: du kannst auch nach best. Feldern Sortieren, Filtern und Suchen

[Ykcim]

Hallo Zusammen,

ich habe gerade die Bereichsprüfung aktiviert und keinen Fehler bekommen. Das mag daran liegen, dass der Fehler nicht mehr auftritt. Das habe ich aber erst danach bemerkt...
Gestern ist er jedes Mal zuverlässig aufgetreten.
Ich hatte gestern Abend noch an einem anderen Fehler gearbeitet, der in der vorgelagerten Procedure steckte und dafür sorgte, dass mein Programm nur einmal durchlief und danach immer Fehler machte. Die Ursache war ein falscher Index...

Ich habe da zwar keinen Zusammenhang gesehen, aber auch in der Version von gestern Abend funktioniert es jetzt.

Daher kann / brauche ich jetzt erst einmal nicht weiter zu suchen. Ich möchte mich an dieser Stelle für die tolle Unterstützung bedanken!

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.