Forum: Algorithmen, Datenstrukturen und Klassendesign
by Crocotronic,
27. Feb 2015
Stimmt, da sind mir wohl einige Fehler unterlaufen.
Ich versuche als meinen Code zu abstrahieren und exemplarisch anschaulich zu gestalten und ändere ihn deshalb direkt hier im Editor,
deshalb fallen mir solche Fehler nicht auf. Ich werde in Zukunft darauf achten, dass ich den Code kompiliere und fehlerfrei hier poste.
Vielen Dank für den Hinweis.
Was die Thematik betrifft: ich habe...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Crocotronic,
27. Feb 2015
SetLength(Elements^, Length(Elements^)+1);
Stimmt, so geht's einfacher.
Aber das Problem bleibt. Direkt nach dem Aufruf von ForEach ist die Länge von MyElements = 0, obwohl ich sie ja definitiv erhöhe :|
An der ForEach-Methode kann es nicht liegen, da
procedure IncDynRec(ADataPtr: Pointer);
var Elements: TElements;
begin
Elements:= PElements(ADataPtr)^;
...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Crocotronic,
27. Feb 2015
Hallo zusammen,
bei der lkJSON-Klasse gibt es eine ForEach-Methode um eine Array eines JSON-Objekts auszulesen. Als Argument muss man die CallBack-Funktion angeben und irgendeine Datenstruktur (in meinem Fall ein dynamisches Array). Folgender Code:
type
TElement = record
Value: String;
end;
TElements = array of TElement;
PElements = ^TElements;
procedure...