Registriert seit: 5. Apr 2013
7 Beiträge
|
AW: Stringzerlegung in Schleife
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;
|
|
Zitat
|