Hallo miteinander,
Habe folgende Prozedur programmiert:
Delphi-Quellcode:
procedure TForm1.verschiebeTeilnehmer(tempzahl:String);
var
name: TNamenArray;
x: Integer;
temp: String;
begin
ShowMessage('Verschiebe T.');
//erniedrige Tempzahl um 1 (neuer Wert)
temp:=InttoStr(Strtoint(tempzahl)-1);
//Einlesen des Arrays mit den Editfeldnamen
name:=setArrays();
for x := 0 to 12 do
begin
TEdit(FindComponent(name[x] + tempzahl)).Top:=TEdit(FindComponent(name[x] + tempzahl)).Top-20;
TEdit(FindComponent(name[x] + tempzahl)).Name:=name[x] + temp;
end;
//Positionsänderung der Checkboxen, Comboboxen und des Löschbuttons
TCheckBox(FindComponent('mitglied' + tempzahl)).Top:=TCheckBox(FindComponent('mitglied' + tempzahl)).Top-20;
TComboBox(FindComponent('kurs' + tempzahl)).Top:=TComboBox(FindComponent('kurs' + tempzahl)).Top-20;
TComboBox(FindComponent('sportart' + tempzahl)).Top:=TComboBox(FindComponent('sportart' + tempzahl)).Top-20;
TButton(FindComponent('loeschen' + tempzahl)).Top:=TButton(FindComponent('loeschen' + tempzahl)).Top-20;
//Umbennen der Checkboxen, Comboboxen und des Löschbuttons
TCheckBox(FindComponent('mitglied' + tempzahl)).Name:='mitglied' + temp;
TComboBox(FindComponent('kurs' + tempzahl)).Name:='kurs' + temp;
TComboBox(FindComponent('sportart' + tempzahl)).Name:='sportart' + temp;
TButton(FindComponent('loeschen' + tempzahl)).Name:='loeschen' + temp;
Diese Funktion soll nichts anderes machen, als eine Reihe bei einer Reihe von zuvor definierter Elemente die Position und den Namen zu ändern, jedoch tritt immer mal wieder, (Mir kommt es zufällig vor) eine Warnung mit einem Zugriffsfehler auf.
Woran kann dies liegen. Wäre euch echt sehr dankbar, wenn ihr mir dambei weiterhelfen könnte.
Gruß Michael