Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#6

AW: Stringzerlegung in Schleife

  Alt 5. Apr 2013, 16:37
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.
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat