Checkbox

du opretter et integerfelt og gemmer værdien 0 når boksen ikker er checked og værdien 1 når den er

Hvis du så er endnu smartere, så bruger du en Byte, den fylder mindre! ;)
Så kan du typekonvertere sådan:

function Davs(B: Byte): Boolean;
begin
  Result := Boolean(B);
end;

Eller:

function Davs2(B: Byte): Boolean;
begin
  Result := B = 1;
end;

//hermandsen

Det er nok rigtigt, men jeg kan ikke lige se hvad du mener??? Det er ved værdien 0 og 1 er jeg ikke med på, jeg har nu oprettet en intergerfelt, men det er jo ikke rigtig et checkfelt, hvad skal jeg gøre nu???

Dit tjek-felt skal bare se på værdien i feltet. Er værdien 1, så skal det være checked, hvis den er 0, så skal den ikke være checked! :)

Hvordan typekonvertere jeg den???

Det gør du med:

function Davs(B: Byte): Boolean;
begin
  Result := Boolean(B);
end;

Det er faktisk skidesmart! F.eks. hvis du har dine egne typer, så kan du type-konvertere dem sådan.

Lad os sige at du har noget i den her retning:

type
  THest = (heHan, heHun, heHov, heSaddel, heMule, heOeje, heHale);

Så man faktisk gøre følgende:

function Davs: THest;
begin
  Result := THest(Random(7));
end;

Det ovenstående tager noget ud af typen THest. Ellers så kig i hjælpen under "Value typecasts".

Jeg bør nok lige sige at jeg anvender Hest fra borrisholt, og det bliver brugt med fuld respekt! ;)

//hermandsen