Ik heb op mijn formulier een TDBChecBox geplaatst.
Wanneer ik dit aanvink (true) zou dit moeten vertaald worden in getal 1 in mijn tabel.
Kan iemand mij een voorbeeldje tonen want ik geraakt er niet uit.
Bedankt
Ik heb op mijn formulier een TDBChecBox geplaatst.
Wanneer ik dit aanvink (true) zou dit moeten vertaald worden in getal 1 in mijn tabel.
Kan iemand mij een voorbeeldje tonen want ik geraakt er niet uit.
Bedankt
Hoi
hier simpel voorbeeldje ,
function BoolToInteger(bool:Boolean):Integer;
begin
if bool then result := 1 else result := 0;
end;
function IntegerToBool(Int:Integer):Boolean;
begin
if int = 1 then result := true else result := false;
end;
Dit levert ook het gewenste resultaat :
Integer(BooleanVariabele) of
Boolean(IntegerVariabele)
Dvdyck,
Het ligt er denk ik een beetje aan hoe jij je DataBase 'vult' maar indien je het
allemaal zelf regelt dan zou dit mischien een zetje op weg kunnen zijn.
Maar goed het is maar een suggestie en nog uit mijn hoofd ook, dus excuse me alsCode:procedure TForm1.CheckBox1Click(Sender: TObject); var value : Byte; begin try if Checkbox1.Checked then value :=1 else value := 0; if not Dm.Tabel.State in [dsEdit, dsInsert] then Dm.Tabel.Edit; Dm.Tabel.FieldByName('Veldnaam').AsInteger := value; Dm.Tabel.Post; execept Showmessage('fout'); end;
het niet goed is
Richard
RLD
Wat moet er in [dsEdit, dsInsert] komen ?
Wanneer krijg je een foutmelding ?
Code:
-----
Code:procedure TFormNamen.DBCheckBox_ZichtbaarClick(Sender: TObject); var value: Byte; begin try if DBCheckBox_Zichtbaar.Checked then value := 1 else value := 0; if not Datamodule1.IBTable_Namen.State in [dsEdit, dsInsert] then Datamodule1.IBTable_Namen.Edit; Datamodule1.IBTable_Namen.FieldByName('ZichtbaarVinkje').AsInteger := value; Datamodule1.IBTable_Namen.PostAppMessage; execept showmessage('fout'); end;
FOUTMELDINGEN:
--------------
[Error] Form_Namen.pas(180): Operator not applicable to this operand type
[Error] Form_Namen.pas(182): Undeclared identifier: 'PostAppMessage'
[Error] Form_Namen.pas(183): Undeclared identifier: 'execept'
[Error] Form_Namen.pas(184): Missing operator or semicolon
[Error] Form_Namen.pas(185): EXCEPT or FINALLY expected
[Error] Form_Namen.pas(187): ';' expected but '.' found
[Error] Form_Namen.pas(189): Declaration expected but end of file found
[Fatal Error] Eindwerk.dpr(23): Could not compile used unit 'Form_Namen.pas'
Kijk dit verwachte ik al je moet natuurlijk niet alles letterlijk zo overnemen
he ! Op die manier heb je 'mischien' je oplossing wel, maar snappen doe je het
dan niet
Want het is niet Execept maar Except
Maar goed, ik zie ook nog een ander probje. en dat was dat er een END; ontbreekt
na de except.
Dus er moet niet in dsEdit of dsInsert komen, de regel controleert of je tabel in EditCode:procedure TForm1.Button1Click(Sender: TObject); var value : byte; begin try {doe hier controle of tabel in edit of instert mode staat.} if CheckBox1.Checked then value := 1 else value := 0; {doe hier het wegschrijven in juiste byte of integer veld} {doe hier een post voor het opslaan.} except ShowMessage('fout'); end; end;
of Insert mode staat ! zoniet dan zet ie em in Edit mode.
Iets in die geest.
Wat de melding :Error] Form_Namen.pas(182): Undeclared identifier: 'PostAppMessage' betreft, of de postappmessage is niet of niet correct
gedeclareerd, of het is geen geldige functie, of je moet nog een 1 of andere unit aan
de uses list toevoegen, maar goed daar kan ik je niet verder aan helpen.
Ik zou zeggen 'Have fun and Break a Legg'
Richard
PS. en als je nu de Pascal -> vB Code knop gebruikt dan zou je 'mischien' ook nog
zien dat execept niet in het rood stond.
RLD
Eeeh, misschien mis ik iets, maar is het niet handiger om gewoon bij de property ValueChecked 1 en bij de property ValueUnChecked 0 in te vullen?
Marcel
Zo ik ook weer wat geleerd
Moet toch even verder als het puntje van mijn nose kijken, ik had het inderdaad al
eens gezien maar nu net niet aan gedacht.
Richard
RLD
Het is gelukt
Geen ingewikkelde code maar wat gefoeffel in de properties
Alvast erg bedankt
Groeten,
dvdyck
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks