zeilen werden ignoriert...

[Sulustaner2004]

morgen zusammen...
habe (mal wieder) ein problem !!! an und für sich nichts neues...aber diesmal irgnoriert delphi einfach zeilen in meinem quelltext ohne das ich weiß warum...er überließt sie einfach...ohne das diese zeilen auskommentiert sind...
und das andere problem was ich habe ist das er nicht in die datenbank schreibt !!!!

Delphi-Quellcode:

procedure TForm1.cb_takeClick(Sender: TObject);
Var
  versflid, SetStr                      : String;
  ProcessedRecs, i, SetCount            : Integer;
  SetVals                               : Array Of String;
Begin
  {If (tb_Bearbeiter.Text = '') Then
    ShowMessage('Bitte was eintragen.');}

  // Wenn SetStr beschrieben wurde -> baue UPDATE-Statement... 
  If SetStr <> '' Then 
  Begin 
    With ADOQuery1 Do 
    Begin 
      SQL.Text := 
        'Update dbo_VFL_VERZ_TEMP t' + #10 + 
        'Set   ' + SetStr + #10 + 
        'WHERE  t.Bearbeiter = :i_Versuch'; 
      Prepared := True; 
      // Werte der Paramter :i_F(1 - ...) 
      For i := 0 To pred(SetCount) Do 
        Parameters.ParamByName('i_F' + IntToStr(i)).Value := SetVals[i]; 
        // Hier
        Parameters.ParamByName('i_Versuch').Value := TB_Bearbeiter.Text;
      // Ausführen 
      ExecSQL; 

    End; 

    ///////diese kommenden zeilen ignoriert delphi einfach///////////

      label27.Caption := tb_Bearbeiter.Text;
      label28.Caption:=tb_nr_dez.Text;
      label29.Caption:=tb_nr_abt.Text;
      label30.Caption:=tb_x_coord.Text;
      label31.Caption:=tb_y_coord.Text;
      label32.Caption:=tb_struktur.Text;
      label33.Caption:=tb_id.Text;
      label34.Caption:=tb_begr.Text;
      label35.Caption:=tb_partner.Text;
      label36.Caption:=tb_beginn.Text;
      label37.Caption:=tb_end.Text;
      label38.Caption:=tb_status.Text;
      label39.Caption:=tb_ziel.Text;
      label40.Caption:=tb_meth.Text;
      label41.Caption:=tb_beschr.Text;
      label42.Caption:=tb_param.Text;
      label43.Caption:=tb_flbz.Text;
      label44.Caption:=tb_baumart.Text;
      label45.Caption:=tb_standort.Text;
      label46.Caption:=tb_humus.Text;
      label47.Caption:=tb_fl.Text;
      label48.Caption:=tb_bestgr.Text;
      label49.Caption:=tb_lfn.Text;
      label50.Caption:=tb_land.Text;
      label51.Caption:=tb_ea.Text;

      tb_Bearbeiter.Clear;
      tb_nr_dez.Clear;
      tb_nr_abt.Clear;
      tb_x_coord.Clear;
      tb_y_coord.Clear;
      tb_struktur.Clear;
      tb_id.Clear;
      tb_begr.Clear;
      tb_partner.Clear;
      tb_beginn.Clear;
      tb_end.Clear;
      tb_ea.Clear;
      tb_status.Clear;
      tb_ziel.Clear;
      tb_meth.Clear;
      tb_beschr.Clear;
      tb_param.Clear;
      tb_flbz.Clear;
      tb_baumart.Clear;
      tb_standort.Clear;
      tb_humus.Clear;
      tb_fl.Clear;
      tb_bestgr.Clear;
      tb_lfn.Clear;
      tb_land.Clear;

    End;
  End;

ich hoffe ihr könnt mir wieder helfen...

[Cuchulainn]

So etwas ähnliches hatte ich auch schon einmal. Da wollte ich einer Integer-Variable einen Wert zuweisen, etwa so:

[delpih]
Zahl := 4;
[/delphi]

Eine ganz normale und richtige Anweisung. Wollte Delphi nicht. Wurde einfach übersprungen. Später habe ich es dann so versucht:

Delphi-Quellcode:

var StrZahl: String;
    IntZahl: Integer;

...

StrZahl := '4';
IntZahl := StrToInt(StrZahl);

So hat er's gemacht. Aber dann bin ich beruhigt, dass so etwas auch anderen Leuten passiert.

[Sulustaner2004]

hat leider auch nicht so funktioniert...
er ignoriert es immernoch....
und in die datenbank schreibt er es auch nicht !!! *heul*

[Robert_G]

setze einen Break-point an die erste "ignorierte" Zeile und schaue mal ob dort reingesprungen wird und was danach passiert.
Vielleicht wird das Ganze zum bleistift durch einen Event handler wieder geändert.

[Sulustaner2004]

also irgendwie ist es wie verhext...er läuft garnicht rein in die komplette anweisung nicht !!!! habe den haltepunkt auch am anfang gesetzt und er kommt garnicht rein...

[Jens Schumann]

Hallo,
schau Dir mal dir mal Deinen Source ganz genau an und sage wann und wo SetStr einen Wert zugewiesen bekommt.

Delphi-Quellcode:

procedure TForm1.cb_takeClick(Sender: TObject); 
Var 
  versflid, SetStr                      : String; 
  ProcessedRecs, i, SetCount            : Integer; 
  SetVals                               : Array Of String; 
Begin 
  {If (tb_Bearbeiter.Text = '') Then 
    ShowMessage('Bitte was eintragen.');} 

  // Wenn SetStr beschrieben wurde -> baue UPDATE-Statement... 
  If SetStr <> '' Then

Wenn Du diese Frage beantwortet hast, hast ganz bestimmt Dein Problem gelöst.

[Robert_G]

da hatte ich wohl Tomaten auf den augen

[Sulustaner2004]

ok...alles schön und gut...aberwenn ich das mache bekomm ich eine fehlermeldung !!! und zwar diese...
[i]Im Projekt daten.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 00404117C in Modul 'Daten.exe' Schreiben von Adresse 00000000'.
prozess angehalten.

[r_kerber]

Hallo Sulustaner2004,

bist Du Dir sicher, dass diese Abfrage so gewollt ist:If SetStr <> '' Then SetStr ist doch eine lokale Variable, die nur innerhalb der Methode cb_takeClick bekannt ist. Und ich sehe nicht, dass Du irgendwo in deiser Methode StStr einen Wert zuweist. Das heißt, alles was nch dem if kommt, wird nie abgearbeitet!

[Sulustaner2004]

also ich habe jetzt auch dieser variablen einen wert zugewiesen...
deswegen habe ich ja die fehlermeldung !!! in einer anderen form funktioniert es ja auch !!!!