Stringzerlegung in Schleife

[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);

[p80286]

Zitat von frankistreich:

mit einzelschritten läuft er ohne probleme jetzt durch.

Schön

Zitat von frankistreich:

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.

Dann funktioniert das auch nicht in Einzelschritten!

Wo tritt dieser Fehler auf (Sourcecode).

@Furtbichler
Ich denke, das kommt darauf an wie Deine kleinen Grauen Zellen ticken. "Mach solange i nicht größer als die Länge und ungleich einem Punkt ist.."
ist etwas anderes als
" hole die Position von Punkt"
"Wenn diese kleiner eins ist kopiere alles, sonst den string von Postion eins bis Position minus 1 "


Gruß
K-H

[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;

[Furtbichler]

Zitat von p80286:

@Furtbichler
Ich denke, das kommt darauf an wie Deine kleinen Grauen Zellen ticken...

Gott-sei-Dank nicht. Es kommt auf Klarheit und Einfachheit an, also wie man auf das Ergebnis kommt. Und das ist in engen Grenzen auch Geschmacksache, aber in ziemlich engen Grenzen.

[HiWieGehts]

frankistreich gefällt mir! Stellt eine Frage, will verm. dass man ihm hilft und ignoriert alle Tipps.