Änderung einer Variablen bewirkt Änderung des Feldinhalts

[baumina]

Kannst du die relevanten Codeschnipsel posten, vielleicht fällt mir ja was auf, denn wenn Du an irgendeine Speichergrenze stoßen solltest, müsste das eher einen "out of memory"-Fehler verursachen und keine falschen Inhalte liefern.

[roadrunner-S51]

Also der Fehler tritt an der folgenden Stelle auf:

Delphi-Quellcode:

for i := 0 to Zaehlung - 1 do
  begin
    AusFeld[i].iSchrank := FeldPlatz[i].SchrankNr;
    AusFeld[i].iAusschub := FeldPlatz[i].AusschubNr;
    AusFeld[i].iFach := FeldPlatz[i].FachNr;
    AusFeld[i].iTuete := FeldPlatz[i].PackNr;
    AusFeld[i].iStueckTuete := FeldPlatz[i].Stueck;
    AusFeld[i].Datum := FeldPlatz[i].Datum;

    // In diesem Abschnitt tritt der Fehler auf   14.05.2013
    if (AusFeld[i].iFach >= 0) and (AusFeld[i].iFach < 10) then
      sHelp1 := '000' + IntToStr(AusFeld[i].iFach);
    if (AusFeld[i].iFach > 9) and (AusFeld[i].iFach < 100) then
      sHelp1 := '00' + IntToStr(AusFeld[i].iFach);
    if (AusFeld[i].iFach > 99) and (AusFeld[i].iFach < 1000) then
      sHelp1 := '0' + IntToStr(AusFeld[i].iFach);
    if AusFeld[i].iFach > 999 then
      sHelp1 := IntToStr(AusFeld[i].iFach);

    if (AusFeld[i].iTuete >= 0) and (AusFeld[i].iTuete < 10) then
      sHelp2 := '0000' + IntToStr(AusFeld[i].iTuete);
    if (AusFeld[i].iTuete > 9) and (AusFeld[i].iTuete < 100) then
      sHelp2 := '000' + IntToStr(AusFeld[i].iTuete);
    if (AusFeld[i].iTuete > 99) and (AusFeld[i].iTuete < 1000) then
      sHelp2 := '00' + IntToStr(AusFeld[i].iTuete);
    if AusFeld[i].iTuete > 9999 then
      sHelp2 := IntToStr(AusFeld[i].iTuete);
    AusFeld[i].Barcode := sHelp1 + sHelp2;
  end;

Dabei ist "Zählung" die Größe des Feldes "AusFeld", mit welchem hier gearbeitet wird. Die Strings sind lokale Variablen. Das große Feld, welches ich in einem vorherigen Post erwähnte, Name "Speicher", wird hier nicht verwendet, aber dennoch verändert.

[nahpets]

Aus diesem Block solltest Du eigentlich

Zitat von roadrunner-S51:

Delphi-Quellcode:

    if (AusFeld[i].iFach >= 0) and (AusFeld[i].iFach < 10) then
      sHelp1 := '000' + IntToStr(AusFeld[i].iFach);
    if (AusFeld[i].iFach > 9) and (AusFeld[i].iFach < 100) then
      sHelp1 := '00' + IntToStr(AusFeld[i].iFach);
    if (AusFeld[i].iFach > 99) and (AusFeld[i].iFach < 1000) then
      sHelp1 := '0' + IntToStr(AusFeld[i].iFach);
    if AusFeld[i].iFach > 999 then
      sHelp1 := IntToStr(AusFeld[i].iFach);

    if (AusFeld[i].iTuete >= 0) and (AusFeld[i].iTuete < 10) then
      sHelp2 := '0000' + IntToStr(AusFeld[i].iTuete);
    if (AusFeld[i].iTuete > 9) and (AusFeld[i].iTuete < 100) then
      sHelp2 := '000' + IntToStr(AusFeld[i].iTuete);
    if (AusFeld[i].iTuete > 99) and (AusFeld[i].iTuete < 1000) then
      sHelp2 := '00' + IntToStr(AusFeld[i].iTuete);
    if AusFeld[i].iTuete > 9999 then
      sHelp2 := IntToStr(AusFeld[i].iTuete);
    AusFeld[i].Barcode := sHelp1 + sHelp2;

AusFeld[i].Barcode := Format('%0.5d%0.5d',[AusFeld[i].iFach,AusFeld[i].iTuete]); machen können.
Ein String der Länge 10 sollte damit ausreichen.

Mit Strings nicht fester Länge habe ich in Arrays schon häufiger Schwierigkeiten gehabt. Das funktioniert nicht immer sauber, da im Array fester Größe ja dann letztlich irgendwo ein Feld ist, dessen Größe nicht fest ist.

[roadrunner-S51]

So, habe das mal schnell ausprobiert. An besagter Stelle 156 ist das Problem nun weg, dafür tritt es in Element 152 auf. Ich werde nun erstmal die Strings auf die minimal erforderliche Länge kürzen.

[roadrunner-S51]

So, ich habe nun alle Strings die ich verwende auf eine definierte Anzahl beschränkt. Damit ist das Problem behoben.

Vielen Dank an alle für die hilfreichen Tipps!

[nahpets]

Zitat von roadrunner-S51:

So, habe das mal schnell ausprobiert. An besagter Stelle 156 ist das Problem nun weg, dafür tritt es in Element 152 auf. Ich werde nun erstmal die Strings auf die minimal erforderliche Länge kürzen.

Jaja, dass kenne ich doch irgendwo her, geänderte Daten, geänderte Fehlerposition. Im Quelltext was geändert, Fehler ein bisserl früher oder später... Da sucht man sich 'nen Wolf.

Eventuell könntest Du den String für den Barcode ja auch erst dann aus den beiden Integervariablen per Format zusammenbauen, wenn Du ihn tatsächlich benötigst. Strenggenommen hast Du hier im Array ja eine Redundanz, die nur Speicherplatz belegt.

Will meinen:

Dort, wo Du (in welcher Form auch immer) lesend auf AusFeld[i].Barcode zugreifst, könntest Du ja auch das Format('%0.5d%0.5d',[AusFeld[i].iFach,AusFeld[i].iTuete]) verwenden. Spart Dir im Array den String, egal wie Du ihn auch definieren magst.

[roadrunner-S51]

@ nahpets: Ist keine schlechte Idee. Allerdings brauch ich den Barcode an mehrenen Stellen und den jedesmal zu basteln birgt die Gefahr ihn dann irgendwo doch zu vergessen und dann ist wieder Fehlersuche angesagt.

[nahpets]

Dann ist speichern sinnvoller.

[Der schöne Günther]

Hast du einmal Bereichsüberprüfung zur Laufzeit eingeschaltet (ist zumindest in meinem RAD Studio XE2 in der Debug-Konfiguration komischerweise standardmäßig aus)? Vielleicht geht ja da etwas über den Index hinaus und verändert Daten in Strukturen, die zufälligerweise im Speicher direkt daneben liegen...

[DeddyH]

Ändert sich hiermit etwas?
for i := Low(AusFeld) to High(AusFeld) do