CD-Datenbank - Array, aus dem man löschen kann..

[Leuselator]

Nein:

Delphi-Quellcode:

implementation {$R *.dfm} 

type tCDname=Record 
interpret, album:string[20]; 
end; //unterrecord 

type tEintrag=Record 
CDname:tCDname; 
genre:string[15]; 
jahr:integer; 
preis:real; 
end; //record 

type 
  tAlleCDs = Array of tEintrag; 
var 
  CDArray:tAlleCDs; 
  i:integer; 


procedure TForm1.FormCreate(Sender: TObject); 
begin 
i:=0; 
end; 

procedure eintrag_loeschen(Index : Integer); 
var i:Integer; 
begin 
if (Index >= 0) and Index < (Length(CDArray)) 
then begin 
for i:=Index+1 to High(CDArray) do 
CDArray[i-1]:=CDArray[i]; // umkopieren 
SetLength(CDArray,Length(CDArray)-1); // anschließend Array verkleinern - fertig. 
end 
else 
raise Exception.Create('Ungültiger Index!'#13#10+ 
                                  'Minimum = 0'#13#10+ 
                                  'Maximum = '+InToStr(High(CDArray))+#13#10+ 
                                  'Fehlerhafter Wert = '+IntToStr(Index)+' !'); 
end;

so!