Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#13

AW: Array mit Recordinhalten löschen

  Alt 2. Dez 2012, 21:56
Schwierig sind am Anfang Ins und Del. Hat man das aber einmal "geschafft", wo ist das Problem?

Delphi-Quellcode:
procedure TIntegerList.Ins(Index, Value: integer);
var
  I: integer;
begin
  SetCount(FCount + 1);
  for I:= FCount - 1 downto Index + 1 do
    FItems[I]:= FItems[I - 1];
  SetItem(Index, Value);
end;

procedure TIntegerList.Del(Index: integer);
var
  I: integer;
begin
  for I:= Index to FCount - 2 do
    FItems[I]:= FItems[I + 1];
  SetCount(FCount - 1);
end;
Dennoch, grundsätzlich gebe ich Dir Recht. Seit ich TList ect. für mich entdeckt habe, leite ich mir zu 80 % was ab, bet TList auch z.B. wegen dem genialen QuickSort (Sort(@MyCompare) und gut ist.

Nur für mathematische Gleichungssysteme ect., da sind m.E. Array's sozusagen unschlagbar.
  Mit Zitat antworten Zitat