Tags:
delphi
Problembeskrivelse:
Et brat på 100 mm skal deltes i 20 stykker,det giver 20 stykker a 5 mm
Har du et forslag eller bedst en procedure eller function.
Der der med TSpinEdit1, kan dele et brat i f.eks 20 stk,
hvis max længde er 100. Og de ønskede stykke-indeling kan indskrives i en InputBox.
Nedenfor er der noge koder, jeg har forsøgt med, men uden held.
serRadius.MaxValue:= round(100/20);
De 20 indskrives InputBox'en.
Det kunne lige sågodt havde været 20 stykker man ønskes bratte delt i.
Inputbox:
Se brugen her: www.sunwind.dk/vingemenu.jpg
Hvor InputBox bruges til, at indele vingelængden i et antal længder.
procedure TfmProfilValg.Button1Click(Sender: TObject);
var
antalsek : integer;
begin
antalsek := StrToIntDef(Inputbox('Indskriv antal sektioner','Heltal','10'),-1);
if (antalsek >= serRadius.MinValue) and (antalsek <= serRadius.MaxValue) then
serRadius.Value := antalsek;
end;
Med venlig hilsen
Monie Jacobsen
E-mail: mjs at nypost dot dk