Ich hab ein Delphi buch und ich verstehe da was nicht vielleicht könnt ihr mir helfen:

markieren

Code:

type TPersDat = record
     name:string[20];
     geburt:TDateTime;
     student:boolean;
     tel:Longint
end;

var personen: array of TPersDat;
    pm,             // Anzahl Datensätze
    index:Word      // aktuelle Datensatznummer(1,2,3...pm)

Datensatz an aktueller Position(index) einfügen:

markieren

Code:

procedure TPerson.dsneu;
var i:Word;
begin
  Inc(pm);
  Setlength(personen,pm);
  for i:=pm downto index+2 do Personen[i-1]:=Personen[i-2];
  inc(index)
end;

Also Ich verstehe das irgendwie null die procedure Tperson.dsneu
woher weiss ich welcher wert pm hatt oder index ??? kann mir mal vielleicht jemand die procedure erklären das vorallem die for Anweisung
kommt mir chinesisch for

bzw da noch eine prozedur wo ich nicht verstehe ich kann mich das irgendwie nicht reindenken kann mir vielleicht jemand erklären wie man das sehen muss?

markieren

Code:

procedure Tperson.dsLoesch;
var i:word;
for i:=index to pm-1 do personen[i-1]:=personen[i];
dec(pm);
setlength(personen,pm)   //dimension verkürzen
end;

zur beschreibung steht "Datensatz an aktueller Position (index) löschen. Wäre dankbar für eure hilfe.

das sieht mir schwer nach globalen Variablen aus.

naja das hilft mir nicht weiter

ok die procedure löschen hab ich gerade geschnallt glaub ich hatte vergessen das wenn man 0-1 macht man wieder beim höhchsten zeichen rauskommt.
Die prozedure tut immer den höhchsten wert in den index sozusagen null reinschreiben dann den datensatzt um eins verkürzen richtig? und das macht es bis nur noch ein datensatzt übrig ist.

Lass es mich so erklären:
erstens ist das ein dynamisches Array welches nichts weiter ist, als eine Kette von zeigern; in deinem Falle auf Records des typs x.

Wer das Delphi Buch geschrieben hat, war blutiger Anfänger . Seit wann benutzt man globale Variablen für die Index und Größenermittlung von Arrays ? Dazu gibts die Funktion High(). Sei's drum.
Die Funktion DSNEU macht nichs weiter, als

markieren

Code:

  Inc(pm);
  Setlength(personen,pm);

erhöht die globale Variable pm um 1 und anschließend auch das Array.
geht einfacher mit:

markieren

Code:

SetLength(personen, high(personen)+1);

markieren

Code:

  for i:=pm downto index+2 do Personen[i-1]:=Personen[i-2];

hier verschiebt er das gesamte Array vom Ende zum Anfang
was die var index für einen einfluß hab mag ich nicht deuten, das Oracle ist im Urlaub .
Wenn index = 0 dann krachts zumindest, weil Index out of Range

Wenn ich mir die nächste Funktion anschaue, soll index wohl die aktuelle Position sein. grübel; dann ist der Sinn der Schleife darin,
**keine Ahnung***, weil weiterhin Grütze. Nehmen wir an Index ist 0 und die Arraygröße ist 1 , dann heist die Schleife:
for 0:=1 downto 2 , oje oje.

markieren

Code:

var i:word;
for i:=index to pm-1 do personen[i-1]:=personen[i];
dec(pm);
setlength(personen,pm)   //dimension verkürzen
end;

hier löscht er einen Eintrag indem er alles ab dem Eintrag um eins nach vorn schiebt und den Letzen löscht, sprich das Array wieder verkleinert.

grez
msch

kennst du vielleicht ein gutes buch mit vielen praktischen beispielen was nicht 1000 seiten lang ist? Ich bin kein vollanfänger aber auch nicht gerade "fortgeschritten" also etwas ahnung habe ich ich wollte son buch mal durcharbeiten damit ich etwas mehr übung kriege naja vielleicht kannst du mir ein sehr gutes empfehlen? Am besten wäre so 500 seiten rum

und was bedeutet index out of range ?

Ich bräuchte ein buch mit ganz vielen praktischen beispiel prorgammen wo man machen muss und testen weil wen man etwas macht lernt man am besten ich zumindestens aber ich hab mir einfach mal eins gekauft naja 1200 seiten bin rgad bei 108 und manchmal sind echt komische sachen drin

maybe kann ja wer hier ein buch empfehlen mit viel praxisanwendung