Sollte eigentlich nur ein Beispiel sein
. Na dann:
Delphi-Quellcode:
Function TFireBird.DoRelationExists(IN_Table: String; IN_Data: WideString; Var OUT_Index: Integer):Boolean;
Begin
[...]
// Wenn ich hier das StringFeld durch ein IntegerFeld ersetze und die Werte anpasse funktioniert es
// einwandfrei. Nur der Sinn kommt dann abhanden ...
SendSQlSelect('SELECT * FROM ' + IN_Table + ' WHERE ' + IN_Table + 'Name = ''' + IN_Data + '''';
[...]
End;
Procedure TFireBird.SendSQLSelect(IN_Command: String);
Begin
FdbquerySelect.SQL.Clear;
FdbquerySelect.SQL.Add(IN_Command);
FdbquerySelect.Open; // Debugger gibt hier den Fehler aus!!!
FdbquerySelect.First;
End;
Ich gehe davon aus das die
Exception vom Open ausgeht, weil beim durchgehen der Prozedur mit dem Debugger bleibt der dort hängen!
Das Objekt wird während des constructors instanziiert und bleibt bis zum destructor vorhanden.