Ich erhalte bei der unten notierten Stelle meines Quelltextes, immer einen Stacküberlauf. Ich habe das mal mit nem Breakpoint (rote Linie) versehen. Es wird immer wieder ausgeführt, wie in einer Schleife ohne Ende, !!!ABER DA IST KEINE SCHLEIFE!!!
Das ist ein Ausschnitt aus meinem Quelltext, das ist die Procedure des OnClick von zwei RadioButtons (verweisen also beide darauf) Da es aber manchmal vom Prog selbst (also ohne Klick) ausgeführt werden muss und der Checkedpunkt auch übernommen werden soll, habe ich die ersten drei Zeilen bis zu der mit -> gekennzeichneten reingeschrieben. Bei der Zeile mit dem Pfeil hängt er sich dann auf! Warum? Wenn ich die Zeile wegnehme klappt's!
Delphi-Quellcode:
{$R *.dfm}
procedure TWSForm.WasserCheckClick(Sender: TObject);
var
Einheit: String;
begin
WasserCheck.Checked := false;
StromCheck.Checked := False;
-> TRadioButton(Sender).Checked := True;
Einheit := TRadioButton(Sender).Hint;
Bin schonwieder ratlos? *Sowas ähnliches hatte ich schonmal, ich habs rausgelöscht und Zeichen für Zeichen abgetippt, dann gings, sowas macht mich rasend
Bitte helfen!