Hallo,
langsam klappt gar nix mehr
vielleicht kann ich mein Problem ja jetzt etwas besser vormulieren.
Ich habe in einer Tabelle Werte auf 1 oder 0 gesetzt indem ich auf Radiobuttons klicke. Der Befehl lautet beim klicken auf den Radiobutton:

table3.Edit;
table3.FieldByName('Ausbauvariante2').AsInteger := 0;
table3.Post;

Das klappt wunderbar.
Sobald ich aber einen zweiten Eintrag in der Datenbank eröffne und dann auf den ersten Eintrag zurückklicke ist der Wert für dieses Bsp 'Ausbauvariante2' zwar immer noch 0 aber der Radiobutton ist nich mehr "checked".
Wenn ich das jetzt mit dem Befehl OnDatachange der DataSource ändern will z.B. mit einer If-abfrage ala :

procedure TForm1.DataSource5DataChange(Sender: TObject; Field: TField);

var x : Real;

begin
x := table3.FieldByName('Ausbauvariante2').AsInteger;
If x = 1 Then
Begin
Radiobuttonxyz.checked := true;
End
Else
Begin
Radiobuttonxyz.checked := false;
End;
end;

Dann mekert Delphi noch bevor das Programm läuft, das kein zulässiger Wert für x in der Tabelle steht.
Das kann natürlich auch nicht der Fall sein, weil ich ja unter umständen noch gar keine Werte gewählt habe (also einen Radiobutton gedrückt habe). Was mache ich da falsch???? So schwer kann das doch gar nicht sein, oder ?!
Danke Cosmic

------------------------------------------------------------------------
Let´s Fetz Heute beginnt Dein Leben.

Versuch mal Folgendes:

Hi,
habe das mit Deinem Code versucht, klappt aber nicht Delphi gibt denselben Error-Code aus ?
Hmm es muß doch möglich sein sowas hinzubekommen?
Trozdem Danke
Ciao Cosmic

Hi,

erstmal würde ich in Deinem Posting die Code-Tags hinzufügen, damit das ganze etwas übersichtlicher wird und Deinen Quelltext formtieren.



Probiere es mal so, ist natürlich nicht getestet. Aber wenn es funktioniert, dann war Deine Variablen-Deklaration verkehrt.

Hi
Danke erst mal für den Tip. (wie bekommt man es denn hin das code hier im Forum in einem extra Kasten ausgibt?)
Dann habe ich das mal eingefügt, aber die Fehlermeldung lautet immer noch:

Projekt Projekt1.exe raised exception class EConvertError with message " 'is not a valid integer value' Process stopped......

aber der Befehl der den Wert setzt lautet :
table3.FieldByName('ausbauvariante2').AsInteger := 1; und wenn ich damit rechne bzw. den wert auslese klappt das immer als integer?!
Der mekert hier regelmäßig!
Grrrr
Gruß cosmic

Hi Cosmic,

um den Code in einen extra Kasten auszugeben, drücke einfach die Tasten ALT+C, dann schreibst Du Deinen Code und danach drückst Du wieder die Tasten ALT+C.

Hi
Das Problem bei OnDataChange ist, dass es auch schon beim Öffnen der Tabelle ausgelöst wird. An dieser Stelle hast du aber noch gar keine gültigen Datensatz und damit auch keinen gültigen Wert den du konvertieren kannst. Folgende Variante sollte funktionieren:

Solange das Projekt innerhalb der IDE läuft, wirst du an dieser Stelle trotzdem eine Exception bekommen, wenn die Tabelle geöffnet wird (Eventuell unter Debugoptionen abstellen).

Gruss Lothar

Hi,
vielen Dank für diese Lösung
Ich habe ja sicher 3 Stunden versucht das hinzukriegen, bin aber nicht damit zurechtgekommen das Delphi (wie du schon sagtest) die Tabelle sofort aufmacht ! Danke !
Ciao Cosmic