Hallo,
ich weiß nicht ob ich für mein nächstes Problem einfach einen neuen Thread eröffnen soll
oder nicht da es eigentlich noch mit meinem vorherigen Problem zu tun hat.
Und zwar hat das mit den Klassen auch alles wunderbar funktioniert nur ich habe ein Problem mit
meinem Zugriff und zwar wenn ich jetzt ein neues Objekt in die ObjectList einfüge ist dieses jetzt auch
da drin nur wenn ich das innerhalb einer Schleife tue dann funktioniert das nicht bzw. er überschreibt mir
glaub ich immer wieder den Wert in der Speicheradresse und somit kommt es dann immer dazu das zum Schluss (also
nach der Schleife) in meiner ObjectList nichts drinsteht.
Hier mal der Code:
Delphi-Quellcode:
var objField : TField;
arrBuchStaben : array [1..9] of string;
i,j,k : integer;
objCell : TCell;
begin
writeln('Programm starten mit ENTER');
readln;
objField := TField.create;
for i:=1 to 9 do begin
arrBuchStaben[i] := chr(64+i);
writeln('Buchstabe '+IntToStr(i)+': '+arrBuchStaben[i]);
end;
writeln;
for i:=1 to 9 do begin
//neues Objekt von Cell
objCell := TCell.create;
//objCell den Wert 0 geben
objCell.CellWert.Wert := 0;
//objCell den Key geben
objCell.CellKey.Col := arrBuchStaben[j];
objCell.Cellkey.Row := i;
//ausgeben was nun drin steht
writeln('Punkt '+IntToStr(i)+': ('+objCell.CellKey.Col+'/'+IntToStr(j)+') mit Wert: '+ IntToStr(objCell.CellWert.Wert));
//der ObjectList hinzufügen
objField.Add(objCell);
//objCell zerstören
objCell.Destroy;
end;
writeln;
writeln('Programm beenden mit ENTER');
readln;
end.
Wenn das stimmt was ich oben geschrieben habe das ist das natürlich schon mal toll das ich weiß woran es liegt nur
ich weiß nicht wie ich das beheben kann!!!
Gruß
Muss!0