Hallo liebe Delphi-Gemeinde,
mich plangt gerade ein Problem wo ich nicht so recht hintersteige
Ich habe zwei Datenstrukturen: Zum einen habe einen Array of Record und zum anderen eine Matrix.
Diese Fülle ich mit Daten. Das läuft soweit alles glatt.
Jetzt gehe ich die Matrix durch und schaue in jeder Zeile ob da ein String 'geld' vorkommt. Falls dies zutrifft, soll diese Zeile gelöscht werden. D.h. die folgenden Zeilen/Daten in beiden Datenstrukturen aufrücken und die betroffene Zeile somit löschen/überschreiben und zuguter letzt die Länge der Strukturen kürzen:
Delphi-Quellcode:
type
TRecord = record
id: Integer;
timestamp: String;
nr: Integer;
end;
var
meinRecord: array of TRecord;
matrix: array of array of String;
In meinem Programm gehe ich so vor
Delphi-Quellcode:
SetLength(meinRecord, x); // beide Datenstrukturen haben die gleiche anzahl von Zeilen (Länge x)
SetLength(matrix, x);
for i := 0 to x-1 do
begin
meinRecord[i] := ...; // fülle mit daten
SetLength(matrix[i], y); // unbekannte Länge y
for k := 0 to y-1 do
begin
matrix[i][k] := ...; // fülle mit daten
end;
end;
...
n := 0;
count := 0;
for i := 0 to length(meinRecord)-1 do
begin
m := true;
for k := 0 to length(matrix[n])-1 do
begin
if (matrix[n][k] = 'geld') then
begin
Move(meinRecord[n+1], meinRecord[n], SizeOf(meinRecord[0])*(Length(meinRecord)-n-1));
SetLength(meinRecord, Length(meinRecord)-1);
Move(matrix[n+1], matrix[n], SizeOf(matrix[0])*(Length(matrix)-n-1));
SetLength(matrix, Length(matrix)-1);
n := i - count;
m := false;
count := count + 1;
break;
end;
end;
if m = true then
n := i + 1 - count;
end;
Bei meinem Record funktioniert auch alles glatt, nur die Matrix spinnt rum. Scheinbar überschreibt er die betroffene Zeile korrekt, aber sobald die letzte Zeile gelöscht wird um die Matrix zu verkürzen, ist die überschriebene Zeile wieder leer.
Meine Vermutung: call by reference -> sobald die letzte Zeile gelöscht wird, werden auch die daten der neu überschriebenen Zeile gelöscht.
Liege ich mit meiner Vermutung richtig? Wie kann ich diesen Fehler beheben?
Viele Grüße
Saul