Hab das wie folg:
Delphi-Quellcode:
procedure TForm1.dsInit;
var i: Integer;
lmax: Integer=366;
begin
for i:=lmax downto 1 do with losungen[i] do
begin
losungen[1].ntvers:='Text A';
losungen[1].ntversst:='Text B';
losungen[1].ntverslink:='Text C';
....
losungen[366].ntvers:='';
losungen[366].ntversst:='';
losungen[366].ntverslink:='';
end;
Wenn ich die 320 mit Text fülle kommt die Fehlermeldung...bis 320 nicht.