Stringzerlegung in Schleife

[Sir Rufo]

Ich weiß ja nicht warum du dich mit dem Zerlegen des Strings herumschlägst (Masochist )

ABer ein Datum kann man sehr schön mit den DateUtils in Tag, Monat, Jahr zerlegen.
Einfach den String in ein TDateTime konvertieren StrToDate/StrToDateDef/VarToDateTime und dann damit weiterarbeiten.

DecodeDateDayOfMonthOfYearOf

[frankistreich]

Hab es jetzt anders gelöst. Geht jetzt alles....trotzdem danke für die mühen

Delphi-Quellcode:

procedure Tfmuanzeigen.darstellen;
  var x1,x2,y1,t:integer;
      s,s1,s2,s3:string;
begin
qbefehl.Close;
  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(a)+' order by ma.mid asc');
qbefehl.Open;

qanzahl.Close;
  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(a));
qanzahl.Open;
qbefehl.first;

while not qbefehl.eof do
begin

  S:=qbefehl.Fields.Fields[1].AsString; //Datum
  t:=qbefehl.fields.fields[2].asinteger;//Dauer

s1 := Copy(s, 0, 2);
s2 := Copy(s, 4, 2);
s3 := Copy(s, 7, 4);

 x1:=strtoint(s1);
 x2:=strtoint(s1);

 if s2 = cbmonat.Text then begin
  for x1:=strtoint(s1)  to x1+t-1 do begin
     y1:=qbefehl.fields.fields[0].asinteger;
     sg.Cells[x2,y1]:='XXXXXXXX';
     inc(x2);
   end;
  end;
  qbefehl.next;
 end;
end;