Hallo,
ich weiß, dass es schon viele andere Beiträge zu dem Thema gibt, ich habe sie aber leider nicht auf mein Problem anwenden können. Es wurde geschrieben, dass das Problem z.B. dann auftritt, wenn eine Variable benutzt wird, die vorher nicht deklariert wurde oder wenn das Programm eine ihm nicht erlaubte Sache ausführt. Beides trifft meines Wissens nicht auf meine Prozedur zu...
Delphi-Quellcode:
var I, Anzahl,Temp:Integer; MEdit:TEdit;
begin
Anzahl:=0;
for I := 0 to ListboxInhalt.Count - 1 do
begin
if ListBoxInhalt.Selected[I]=true then
begin
Temp:=Anzahl+1;
Anzahl:=Temp;
MEdit:=TEdit.Create(HauptUnit.Form1);
MEdit.Visible:=false;
MEdit.Name:='MarkiertEdit'+InttoStr(Anzahl);
MEdit.Parent:=HauptUnit.Form1;
MEdit.Text:=InttoStr(I);
MEdit.free;
end;
end;
for I := 1 to Anzahl do
begin
Temp:=StrtoInt(TEdit('MarkiertEdit'+InttoStr(I)).text);
ListboxInhalt.Items[Temp]:=HauptUnit.Form1.Inhalt.Text;
ListboxCode.Items[Temp]:=HauptUnit.Form1.Code.Text;
end;
Temp:=StrtoInt(TEdit('MarkiertEdit'+InttoStr(Anzahl)).text);
if ListboxInhalt.Count-1>Temp then ListboxInhalt.selected[Temp+1]:=true else NeueZeile.Click;
for I := 1 to Anzahl do
begin
TEdit('MarkiertEdit'+InttoStr(I)).free;
end;
end;
Vielleicht seht ihr ja den Fehler, danke aber schon fürs Suchen!
Treuergebenst,
Samufi