Stringzerlegung in Schleife

[frankistreich]

das Problem liegt ja wie gesagt nicht bei den querrys.
es leigt einfach dadran, dass es bereits im ersten schleifendurchgang alle daten aus der db holt und verarbeitet, obwohl pro durch lauf eine zeile geplant ist.

trotzdem schon mal danke

[RWarnecke]

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.

[frankistreich]

Fehlermeldung:
Im Projekt xxxx ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung:
'Zugriffsverletzung bei Adresse 004A05CB im Modul 'XXXX.exe'. Lesen von Adresse 004F8000'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start
fortsetzen.


soweit war ich leider schon..
trotzdem danke

[RWarnecke]

Zitat von frankistreich:

Fehlermeldung:
Im Projekt xxxx ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung:
'Zugriffsverletzung bei Adresse 004A05CB im Modul 'XXXX.exe'. Lesen von Adresse 004F8000'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start
fortsetzen.


soweit war ich leider schon..
trotzdem danke

Wo tritt der Fehler auf ? Welche Zeile ist davon betroffen ? Bist Du die ganze Funktion mal mit der Einzel Anweisung (F7) durchgegangen und hast geschaut, wo Deine Exception auftritt ?

[frankistreich]

Delphi-Quellcode:

  
while s[i]<>'.' do
  begin
    s3:=s3+s[i];
    inc(i);

bei diesen zeilen bleibt er hängen und macht dort endlos weiter

[RWarnecke]

Von welchem Typ ist Field[1] und Field[2]? Dann haste Doch schon den Fehler bei der Übergabe an ed1.text;

Edit:
Um eine Datum zu zerlegen in Tag, Monat und Jahr, würde ich mir den Befehl DecodeDate anschauen. Dann kannste Dir die ganzen while-Schleifen sparen.

[p80286]

Zitat von frankistreich:

Delphi-Quellcode:

  
while s[i]<>'.' do
  begin
    s3:=s3+s[i];
    inc(i);

bei diesen zeilen bleibt er hängen und macht dort endlos weiter

Und was steht in s ? wenn da als Datum '' oder '20120103' oder '03-03-88' steht, ist es klar das es rummst.

egal welcher Inhalt vorhanden ist, so wäre es besser:
]

Delphi-Quellcode:

  
while (i<=length(s)) and (s[i]<>'.') do
  begin
    s3:=s3+s[i];
    inc(i);

Gruß
K-H

[frankistreich]

mit einzelschritten läuft er ohne probleme jetzt durch.
jedoch kommt beim koplettdurchlauf die fehlermeldung: 030403040404 ist kein gültiger integerwert
-> d.h. er zerlegt immernoch alle daten aus der datenbank, bevor er den ersten eintrag im stringgrid macht.


danke tritzdem schon mal

[Furtbichler]

Zitat von p80286:

egal welcher Inhalt vorhanden ist, so wäre es besser:

Jupp, aber dann lieber (Geschmackssache) so:

Delphi-Quellcode:

  
for i:=1 to length(s) do
  if s[i]='.' then 
    break
  else 
    s3:=s3+s[i];

Oder so:

Delphi-Quellcode:

i := pos('.',s);
if i<1 then 
  i := length(s)+1;
s3 := Copy(s,1,i-1);