AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Mehrdimensionales dynamisches Array, Element löschen
Thema durchsuchen
Ansicht
Themen-Optionen

Mehrdimensionales dynamisches Array, Element löschen

Ein Thema von schwa226 · begonnen am 17. Feb 2011 · letzter Beitrag vom 17. Feb 2011
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:04
Es gibt schon fertige Listen in Delphi.

1.
Delphi-Quellcode:
uses
  contnrs;

var
  liste: TObjectList; // oder TList für Nicht-Objekte
2.
Delphi-Quellcode:
uses
  Generics.Defaults, Generics.Collections;

var
  liste1: TList<Integer>; // In eckigen Klammern der Typ
  liste2: TObjectList<TButton>; // In eckigen Klammern der Typ (Klasse)
Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#2

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:10
Das TObjectList bringt mir jetzt nur, dass beim Delete auch das Element gleich freigegeben wird.
Zum Hinzufügen muss ich immer noch ein Create meiner TMyArray Class durchführen.
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.660 Beiträge
 
Delphi 12 Athens
 
#3

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:14
Du kannst auch TList nehmen und dort Deine Arrays oder weitere Listen verwalten.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:15
Wofür soll deine TArrayClass überhaupt gut sein?
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#5

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:34
Wofür soll deine TArrayClass überhaupt gut sein?
Ich wüsste nicht wie es anders geht? Vielleicht geht es ja anders?

Mein Wissensstand zu TList:
Ich erzeuge ein Element, hier also TArrayClass.
Dies füge ich per List.Add(TArrayClass.Create) zur Liste hinzu.

Somit habe ich ähnliches zu einem Dynamischen Array mit der Ausnahme von der Möglichkeit von Delete, Move usw.

Ich könnte ja auch ein Record statt der Class machen.
Dann bei jedem neuen Element:
GetMem(MyElemnt, SizeOf(TArrayRecord));
List.Add(MyElemnt);

Wobei mir das mit GetMem weniger gefällt.

@mleyen:
Geht noch nicht so ganz:
http://postimage.org/image/4pod1bwk/
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
Benutzerbild von Deep-Sea
Deep-Sea

Registriert seit: 17. Jan 2007
907 Beiträge
 
Delphi XE2 Professional
 
#6

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:56
Ich könnte ja auch ein Record statt der Class machen.
Dann bei jedem neuen Element:
GetMem(MyElemnt, SizeOf(TArrayRecord));
List.Add(MyElemnt);

Wobei mir das mit GetMem weniger gefällt.
  1. Anstatt GetMem sollte man auch New (und Dispose) verwenden.
  2. Quatsch. Du musst kein Speicher reservieren?! Einfach hinzufügen und Fertig.
Chris
Die Erfahrung ist ein strenger Schulmeister: Sie prüft uns, bevor sie uns lehrt.
  Mit Zitat antworten Zitat
Benutzerbild von mleyen
mleyen

Registriert seit: 10. Aug 2007
609 Beiträge
 
FreePascal / Lazarus
 
#7

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:22
Delphi-Quellcode:
  procedure DeleteArrayElement(var AArray: TIntArray; const AIndex: Integer);
  begin
    SetLength(AArray[AIndex], 0);
    Move(AArray[AIndex + 1], AArray[AIndex], SizeOf(AArray[0]) * (Length(AArray) - AIndex - 1)); //Dahinterliegende Daten aufrücken
    SetLength(AArray, Length(AArray) - 1); // Länge kürzen
  end;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.385 Beiträge
 
Delphi 12 Athens
 
#8

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:39
Achtung, alle nachvollgenden Kodes sind speziell auf diese spezifische Datenstruktur ausgelegt.
(abgesehn von Code 2, welcher da "etwas" flexibler ist)
Delphi-Quellcode:
type
  TIntArray = array of array of Integer;
procedure DeleteArrayElement(var AArray: TIntArray; const AIndex: Integer);
var
  i: Integer;
begin
  AArray[AIndex] := nil; // daten löschen ... bei einem Einfachen Integer war das noch nicht wichtig
  Move(AArray[AIndex + 1], AArray[AIndex], SizeOf(AArray[0]) * (High(AArray) - AIndex));
  Pointer(AArray[High(AArray)]) := nil; // leeres Feld initialisieren, da sonst eine falsche Referens drinnensteht.
  SetLength(AArray, Length(AArray) - 1);
end;
oder
Delphi-Quellcode:
type
  TIntArrayX = array of Integer;
  TIntArray = array of TIntArrayX;
procedure DeleteArrayElement(var AArray: TIntArray; const AIndex: Integer);
var
  i: Integer;
  Temp: TIntArrayX;
begin
  Temp := AArray[AIndex]; // zwischenspeichern
  Move(AArray[AIndex + 1], AArray[AIndex], SizeOf(AArray[0]) * (High(AArray) - AIndex));
  Pointer(AArray[High(AArray)]) := nil; // leeres Feld initialisieren.
  AArray[High(AArray)] := Temp; // zurückspeichern ... SetLength gibt es dann frei
  SetLength(AArray, Length(AArray) - 1);
end;
oder
Delphi-Quellcode:
type
  TIntArray = array of array of Integer;
procedure DeleteArrayElement(var AArray: TIntArray; const AIndex: Integer);
var
  i: Integer;
  Temp: Pointer;
begin
  Temp := Pointer(AArray[AIndex]); // zwischenspeichern
  Move(AArray[AIndex + 1], AArray[AIndex], SizeOf(Pointer) * (High(AArray) - AIndex));
  Pointer(AArray[High(AArray)]) := Temp; // zurückspeichern (quasi mit AArray[AIndex] getauscht)
  SetLength(AArray, Length(AArray) - 1);
end;
Man bedenke, daß array of Integer ein Typ ist, dessen Speicher von Delphi verwaltet wird, außerdem liegen alle Daten außerhalb der Arraystruktur des übergeordneten Arrays, darum muß man sehr gut aufpassen, daß man an der Speicherverwaltung nix kaputt macht, wenn man da rumfummelt und die automatische Speicherverwaltung dermaßen umgeht.

Also, eine TList oder gar TList<...> kann da optimaler/einfacher sein.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#9

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:55


Special THX to himitsu!

Ich habe die erste Methode probiert und sie geht ohne Probleme!
Hätte mir nicht gedacht das, dass so kompliziert werden würde!

Wenn sich aber mein TIntArray nochmal ändern sollte werde ich dann wahrscheinlich doch noch auf TList ausweichen.
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
Benutzerbild von mleyen
mleyen

Registriert seit: 10. Aug 2007
609 Beiträge
 
FreePascal / Lazarus
 
#10

AW: Mehrdimensionales dynamisches Array, Element löschen

  Alt 17. Feb 2011, 09:55
Doh, ja TList wär echt die bessere Wahl.
Bzw:
Delphi-Quellcode:
type
  TIntArray = array of Integer;
  PIntArr = ^TIntArray;
  TIntArrayArray = array of PIntArr;
  
  procedure DeleteArrayElement(var AArray: TIntArrayArray; const AIndex: Integer);
  begin
    Dispose(AArray[AIndex]);
    Move(AArray[AIndex + 1], AArray[AIndex], SizeOf(AArray[0]) * (Length(AArray) - AIndex - 1)); //Dahinterliegende Daten aufrücken
    SetLength(AArray, Length(AArray) - 1); // Länge kürzen
  end;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz