Ich hab ein Delphi buch und ich verstehe da was nicht vielleicht könnt ihr mir helfen:
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:
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?
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.