Einzelnen Beitrag anzeigen

frankistreich

Registriert seit: 5. Apr 2013
7 Beiträge
 
#17

AW: Stringzerlegung in Schleife

  Alt 5. Apr 2013, 20:50
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;
  Mit Zitat antworten Zitat