Stack Überlauf fehler

[himitsu]

Zitat:

Zitat von Perlsau (Beitrag 1238203)

Ich weiß ja nicht, wie du das siehst, aber ich denke, daß Programme, die auf Hoffnung basieren, nicht wirklich gelungen sind :twisted:

Wurden nicht letztes Jahr von einigen älteren Raketen die Quellcodes veröffentlicht?
Ich glaub da waren auch gewisse Kommentare enhalten, so ala "Ich hoffe das funktioniert so". (zum Glück wussten die Astronauten nichts davon)

[p80286]

Naja meine Hoffnung bezog sich auf die Verbindung Client<->DB. da steckt man ja nicht so richtig drin. GGf. könnte man die NSA ja um ein Verbundungsprotokoll bitten.;-)

Gruß
K-H

[Perlsau]

Zitat:

Zitat von himitsu (Beitrag 1238218)

Wurden nicht letztes Jahr von einigen älteren Raketen die Quellcodes veröffentlicht?

... und ich dachte immer, Raketen seien Hardware ... man lernt doch nie aus ...

[himitsu]

Zitat:

Zitat von Perlsau (Beitrag 1238228)

... und ich dachte immer, Raketen seien Hardware ... man lernt doch nie aus ...

Ich meinte natürlich die Software in der Hardware. :angle2:

Wo kann mich mir eigentlich gratis bissl RAM downloaden?
Meiner wird langsam voll.

[p80286]

Zitat:

Zitat von himitsu (Beitrag 1238240)

Zitat:

Zitat von Perlsau (Beitrag 1238228)

... und ich dachte immer, Raketen seien Hardware ... man lernt doch nie aus ...

Ich meinte natürlich die Software in der Hardware. :angle2:

Heißt das jetzt nich Firmware:?:

Gruß
K-H

[Drumbo]

Danke für die vielen Hinweise. Hab mal nen Tag Abstand von dem Problem genommen ( neue Baustellen aufgemacht ;-) ) und jetzt klappt es.
Wünsche noch einen schönen Tag
Grüße

Für die Interessierten hier noch der Code:
Aufruf durch folgende Procedure

Delphi-Quellcode:

procedure TAuftrag_form.Ersatzteil_sourceDataChange(Sender: TObject;
  Field: TField);
begin
if Auftrag_form.Active then
  begin
  if not busy  then

    begin
      BestellbtnCreate();
    end;

  end;

end;

und die Bearbeitung des Grids

Delphi-Quellcode:

procedure TAuftrag_form.BestellbtnCreate();
var
i:integer;
SavePlace: TBookmark;
begin
  busy :=true;
  SavePlace:=dbadvgrid4.DataSource.DataSet.GetBookmark;

    DBAdvGrid4.DataSource.DataSet.First;
     if  DBAdvGrid4.DataSource.DataSet.Eof then
  begin
    DBAdvGrid4.RemoveButton(7,1);
  end else
  begin
    while not DBAdvGrid4.DataSource.DataSet.Eof do
      begin

        if Ersatzteil_DatasetBestellt.Value then
      begin
        DBAdvGrid4.RemoveButton(7,DBAdvGrid4.Row);
      end else
      begin
        DBAdvGrid4.AddButton(7,DBAdvGrid4.Row,50,15,'Bestellen',TCellHAlign(2),TCellVAlign(2));
      end;
      DBAdvGrid4.DataSource.DataSet.Next;
  end;
  end;

  DBAdvGrid4.DataSource.DataSet.GotoBookmark(SavePlace);
  busy:=false;


end;

[himitsu]

Ein Ressourcenschutzblock (Try-Finally) kann nie schaden.
> Wenn es in der Funktion knallt, dann wird dein busy nicht zurückgesetzt.

Und das

Delphi-Quellcode:

if busy then Exit;

hätte ich an den Anfang von BestellbtnCreate und nicht in Ersatzteil_sourceDataChange gemcht.