Item aus einem dynamischen String-Array löschen

[DieDolly]

Zitat von Uwe Raabe:

Zitat von DieDolly:

Delete(array, 1, 1) funktioniert leider nicht, da mein Array ein property eines Records ist und der Compiler meckert, dass es ein Konstantenobjekt sei.

Delete funktioniert mit einem TArray<string> schon. Dein Problem ist hier ein anderes. Wenn du mal etwas Code zeigst, kann man auch einen passenden Vorschlag machen.

Das Array was ich bearbeiten möchte steht in einem Record einer anderen Unit. Etwa so

Delphi-Quellcode:

type
 TFilterOptions = record
 
 private
  FFilterList: TArray<string>;
 public
  property FilterList: TArray<string> read FFilterList write FilterList;

  procedure LoadFilterList; // Prozedur die die Liste aus einer Datei lädt und in FilterList schreibt

  // NEU
  procedure FilterListDeleteFromArray(const Index: Integer);
 end;

implementation

uses ...

procedure TFilterOptions.FilterListDeleteFromArray(const Index: Integer);
begin
 TArrayHelper.Delete<string>(FFilterList, Index);
end;

Aus einer anderen Unit rufe ich dann auf
TFilterOptions.FilterListDeleteFromArray(1); Ich habe gerade ein paar Tests durchgeführt und alles funktioniert. Ein netter Nebeneffekt ist, dass ich circa 100 Zeilen Code einsparen konnte (alter, schlechter Code wo ich ständig eine Ini-Datei lade).

[Uwe Raabe]

Ich kann leider deine Delphi-Version nicht erkennen. Funktioniert dies bei dir nicht?

Delphi-Quellcode:

procedure TFilterOptions.FilterListDeleteFromArray(const Index: Integer);
begin
  Delete(FFilterList, Index, 1); // alternativ System.Delete(FFilterList, Index, 1)
end;

[himitsu]

Die "string-like"-Array-Funktionen ala Insert/Delete/+ wurden erst vor Kurzem eingebaut.

[DieDolly]

Zitat von Uwe Raabe:

Ich kann leider deine Delphi-Version nicht erkennen. Funktioniert dies bei dir nicht?

Delphi-Quellcode:

procedure TFilterOptions.FilterListDeleteFromArray(const Index: Integer);
begin
  Delete(FFilterList, Index, 1); // alternativ System.Delete(FFilterList, Index, 1)
end;

Doch das funktioniert. Ich benutze die Community Edition.

Sollte ich hier nun besser Delete() verwenden oder meinen eigenen Wrapper TArrayHelper.Delete<T>()?
Ich bin bisher so verfahren, dass ich meist meine eigenen Wrapper nutze, da ich dort den Aufruf manipulieren kann und so nur eine Änderung vornehmen muss statt an 100 Stellen.

Zitat von himitsu:

Die "string-like"-Array-Funktionen ala Insert/Delete/+ wurden erst vor Kurzem eingebaut.

Meinst du damit TFilterOptions.FilterList.Delete() ?

[himitsu]

Neee, System.Delete

Delphi-Quellcode:

ArrayOrString := ArrayOrString1 + ArrayOrString2;
Insert(Value, ArrayOrString, X);
Delete(ArrayOrString, X, Y);

Früher ging das nur mit Strings, weswegen dieses supercoole neue Feature in der What's New auch als "string-like" betitelt wurde.
http://docwiki.embarcadero.com/RADSt...Dynamic_Arrays

[DieDolly]

Gäbe es denn eine Möglichkeit aus meinem obigen Record-Beispiel etwas zu machen, dass ich die properties (die ja Konstantenobjekte sind) Prozeduren mit var-Parameter übergebe kann? Vielleicht sogar ohne einschneidende Änderungen vorzunehmen.