Das Problem ist Deine For-Schleife zum Durchgehen der Datensätze. Probiere mal folgendes aus statt der FOR-Schleife: (ungetestet)
Delphi-Quellcode:
while not qbefehl.eof do
begin
ed1.Text:=qbefehl.Fields.Fields[1].AsString;
ed2.Text:=qbefehl.Fields.Fields[2].AsString;
t:=qbefehl.fields.fields[2].asinteger;
i:=1;
s:=ed1.Text ;
while s[i]<>'.' do
begin
s1:=s1+s[i];
inc(i);
end;
inc(i);
while s[i]<>'.' do
begin
s2:=s2+s[i];
inc(i);
end;
inc(i);
while s[i]<>'.' do
begin
s3:=s3+s[i];
inc(i);
end;
eds1.Text:=s1;
x2:=strtoint(s1);
x1:=strtoint(s1);
if s2 = cbmonat.Text then
begin
for x1:=strtoint(s1) to x1+strtoint(ed2.Text)-1 do
begin
y1:=qbefehl.fields.fields[0].asinteger;
sg.Cells[x2,y1]:='XXXXXXXXXX';
inc(x2);
end;
end;
qbefehl.Next;
end;
Und lese bitte nochmal meinen letzten Beitrag genauer durch. Wenn Du Ihn nicht verstehst, dann frage bitte nochmal nach.