Stringzerlegung in Schleife

[frankistreich]

Hier ist mein Problem

es geht darum, dass das erste urlaubsdatum aus qbefehl in ed1 und dann in s gespeicher wird.
danach wird s in s1(tag), s2(monat) und s3(jahr) zerlegt und s1 in eds1 angezeigt.

danach wird geprüft ob s2 gleich dem vorher gewählten monat ist, wenn ja dann macht er
von s1(z.b.:5) bis s1+ urlaubsdauer(z.b. 3) dass:
y wert von stringgrid ist die mitarbeiterid
sg.cells[x2,y]:='xxxxxxxxxxxx'
dann x2 hochzählen.


soweit funktioniert das auch ohne großer schleife von count bis count2.

mein problem dabei ist nur, dass er sofort alle urlaubsdaten holt und alle tage hintereinander in s1 speichert.

wie kann man das lösen, dass er nach und nach die daten aus dem querry holt und einzeln zerlegt und speichert?
und somit jede schleifenrunde ein neues datum gezogen wird???


danke.

Delphi-Quellcode:

procedure Tfmuanzeigen.darstellen;
var x1,x2,y1,y,x,count,count2,i,t,e,f:integer;
    a,b,c,s,s1,s2,s3:string;

begin
qbefehl.Close;  //querry
qbefehl.SQL.Clear;
qbefehl.SQL.Add('select ma.mid,urlaub.beginn,rtrim(urlaub.dauer),urlaub.unr from ma '+
                'inner join urlaub on ma.mid = urlaub.mid '+
                'where ma.aid = '+quotedstr(dbcbabteilung.KeyValue)+' order by ma.mid asc');
qbefehl.Open;

 qanzahl.Close;   //querry
 qanzahl.SQL.Clear;
 qanzahl.SQL.Add('select count(Urlaub.UNr) as anzahl from Urlaub '+
                'inner join ma on Urlaub.MId = ma.MId '+
                'where AId = '+quotedstr(dbcbabteilung.KeyValue));
 qanzahl.Open;

count:=1;
count2:=qanzahl.Fields.Fields[0].AsInteger+1; //anzahl der einträge der Spalte 0
f:= qbefehl.Fields.Fields[3].AsInteger;


//schleife zur eintragung im stringgrid

for count:=1 to count2 do begin

qbefehl.Next;
  ed1.Text:=qbefehl.Fields.Fields[1].AsString; //spalte1 in editfeld1
  ed2.Text:=qbefehl.Fields.Fields[2].AsString; //spalte2 in editfeld2
  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;
 end;