Stack Overflow

[Daniel B]

Hallo,

stack overflow - saves your work an restart Delphi.

Ich habe an einer Komponente was geändert, dann neu Kompiliert und installiert.
Wenn ich nun die Komponente aufs Formular setzen will, erhalte ich immer diese Meldung. Ein Neustart bringt nichts.
Was nun?

Grüsse, Daniel

[Christian Seehase]

Moin Daniel,

wie wär's denn, wenn Du mal mindestens den constructor der Komponente vorzeigen würdest.
Vermutlich liegt's daran.

[Daniel B]

Moin Christian,

Delphi-Quellcode:

  protected 
    procedure Change; override;

Delphi-Quellcode:

procedure TRealEdit.Change;
//Tausendertrennzeichen automatisch setzen
var
  iFor: Integer;
begin
  if Length(Text) > 0 then
  begin
    for iFor := 0 to Length(Text) -1 do
    begin
      ;
    end;
  end;
  inherited Change;
end;

Grüsse, Daniel

[Christian Seehase]

Moin Daniel,

das ist allerdings nicht der constructor

[Daniel B]

Moin Christian,

aber das was ich in der Unit eingefügt habe, bevor es kaputt war, den vorher ging es noch und nachdem ich das gepostete eingefügt hatte, bekam ich den Fehler.

Grüsse, Daniel

PS: Im Anhang die ganze Unit.

[Tom]

falsch:
    for iFor := 0 to Length(Text) -1 do richtig:
    for iFor := 1 to Length(Text) do

Delphi-Quellcode:

...    begin
      Text := Text + '.';
    end;
  end;

1) Was soll das bewirken? Für die Anzahl der Zeichen hänge ein Punkt dahinter?
2) Eine Änderung von Text ruft Change auf. Das ganze ist also eine Endlosschleife.

[Daniel B]

Hallo,

hängt Euch jetzt bitte nciht an dem auf was im Change drin steht, ich hab nur irgendwann reingeschrieben. Ich wollte eigentlich nur sehen ob das überhaupt geht da ich zum ersten mal eine Komponente schreibe und einfach nur sehen wollte ob die Prozedur so überhaupt geht.

Ich hab ja auch nciht gefragt ob der Code geht oder nicht!

Grüsse, Daniel

[Tom]

Zitat von Daniel B:

Ich hab ja auch nciht gefragt ob der Code geht oder nicht!

Ich glaube eher das ist der Grund warum Du den Thread eröffnest hast. Du solltest über den zweiten Punkt meiner letzten Antwort nachdenken. Der dürfte die Ursache für Dein Problem sein.

Ansonsten sage ich ja schon nichts mehr zu Deinem Quelltext.

[Daniel B]

Hallo,

Zitat von Tom:

Du solltest über den zweiten Punkt meiner letzten Antwort nachdenken. Der dürfte die Ursache für Dein Problem sein.

Das verstehe ich aber nicht. Diesen Fehler bekomme ich in dem Augenblick wenn ich die Komponente auf Formular setze. Es kommt die Meldung. Und die Komponente lässt sich nicht aufs Formular setzen. Wo passiert denn da bitte ein Change?? Das ist mir Klar.
Oder ist das ein Change wenn ich es aufs Formular setze?

Grüsse, Daniel

[Tom]

Zitat von Daniel B:

Diesen Fehler bekomme ich in dem Augenblick wenn ich die Komponente auf Formular setze.

Wenn ich ein einfaches normales TEdit auf eine Form ziehe wird der Text "Edit1" (etc.) gesetzt. Dieses ist eine Änderung des Textes.