[Delphi] Getallen simpelweg vermenigvuldigen?

[Verwijderd]

Jongens,

Ik kom van VB6 af, en ik ben nu sinds een tijdje bezig met Delphi 6. Werkt harstikke leuk, de taal is al een stuk krachtiger. Maar nu wil ik de hoogte van een control variabel maken (in het geval dat de user een form resized). Ik doe dus:

code:

mijncontrol.height = frm_main.height * 0.3

En dat slikt ie niet. Daar heeft ie ook wel gelijk in, want frm_main.height is een integer, en 0.3 is geen integer (Extended ofzo?). Wat moet ik nu doen? VB6 slikte dit namelijk wel, dus ben ik gewend om dit te doen? Ik heb google gebruikt, en de search, maar nergens iets Hellup!

[whoami]

Dan moet je casten naar een integer:

code:

mijncontrol.height = integer(frm_main.height * 0.3);

strong typed languages zijn mooi.
weak typed languages niet.

[ Voor 25% gewijzigd door whoami op 24-01-2003 16:36 ]

[Verwijderd]

"[Error] unit_frm_main.pas(37): Invalid typecast"

en moet trouwens die '=' niet vervangen worden door ':=' ?

[ Voor 43% gewijzigd door Verwijderd op 24-01-2003 16:39 ]

[mulder]

FloatToInt, zoek eens op casten in de help

[whoami]

Verwijderd schreef op 24 januari 2003 @ 16:38:
"[Error] unit_frm_main.pas(37): Invalid typecast"

en moet trouwens die '=' niet vervangen worden door ':=' ?

Euh, ja.

[Verwijderd]

Don Facundo schreef op 24 januari 2003 @ 16:40:
FloatToInt, zoek eens op casten in de help

De functie FloatToInt staat niet in de help, en hij kent 'm ook niet (compiler error)

[Nibble]

Gevonden
Toch met round:

code:

procedure TForm1.Button1Click(Sender: TObject);
var a : real;
     b: integer;
begin
  a:= 0.3;
  b:=4;
  showmessage(IntToStr(round(b * a)));
end;

Alsjeblieft

[ Voor 174% gewijzigd door Nibble op 24-01-2003 16:50 ]

[Verwijderd]

Nibble schreef op 24 January 2003 @ 16:43:

code:

mijncontrol.height := FloatToInt(frm_main.height * 0.3);

je zou hem ook nog kunnen 'rounden'

JA! De oplossing is (tnx Nibble!):

code:

mijncontrol.height := Round(frm_main.height * 0.3);

[BdR]

dit is denk ik makkelijker

code:

mijncontrol.height := frm_main.height div 3

DIV is een simpele (grove) manier van delen, afgerond op integers.

[BdR]

maarrrr..

zo te zien gebruik je het om de plek van een knop of label aan te passen. Daar is een veel betere manier voor, gebruik 'panels' (bij Delphi component "Standard").

Plaats maar eens 2 panels op een leeg form, en verander de 'Align' property van de ene in 'alTop', en van de andere in 'alBottom'. Plaats nu je knoppen textboxes etc. op die panels.

die panels is trouwens niet iets speciaals van Delphi maar van windows, moet dus op precies dezelfde manier in VB kunnen

[FendtVario]

Als je wilt dat een component zich aanpast aan de grootte van je formulier zou je natuurlijk ook het Anchor properties kunnen gebruiken

[Verwijderd]

dit is denk ik makkelijker

code:

mijncontrol.height := frm_main.height div 3

DIV is een simpele (grove) manier van delen, afgerond op integers.

Je bedoelt zeker:

code:

mijncontrol.height := (frm_main.height * 3) div 10

[curry684]

BdR schreef op 24 January 2003 @ 16:56:
die panels is trouwens niet iets speciaals van Delphi maar van windows, moet dus op precies dezelfde manier in VB kunnen

Nope, Align is een speciale vinding van VCL, de component lib van Delphi en BCB. VB heeft wel vergelijkbare mechanismes, maar lang niet zo krachtig.

Standaard WinAPI kent niet eens een splitter, dat moet je zelf implementeren en alles messages afvangen zodat je 'gekoppelde' controls kunt resizen.